Я порешал так , "без DataSet"
Добавить запись в Blob поле через запрос.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
procedure TfmGeneral.Button2Click(Sender: TObject);
begin
TestinsertDataInSERVERS(RichEditNotes);
end;
function TestinsertDataInSERVERS(perRichEditNote:TRichEdit):TIBQuery;
var
per_IBQuery:TIBQuery;
Stm: TMemoryStream ; //USES dbtables TBLTMemoryStream;
begin
// ïðîöåäóðà äëÿ çàïèñè ââåäåíûõ äàííûõ
per_IBQuery:=my_initialization_TIBQuery_insert(per_IBQuery); //èíèöèàëèçèðóåì ïåðåìåííóþ è ïåðåäàåì åé ïàðàìåòðû
per_IBQuery.Active := False;
per_IBQuery.SQL.Clear;
per_IBQuery.SQL.Add('insert into SERVERS '
+ '(notes'
+ ')'
+ ' values ('
+ ':perNOTES'
+ ')');
Stm := TMemoryStream.Create;
Stm.Position:=0;
try
perRichEditNote.PlainText := False;
perRichEditNote.Lines.SaveToStream(Stm);
per_IBQuery.ParamByName('perNOTES').LoadFromStream( Stm, ftBlob);
Stm.Position := 0;
finally
FreeAndNil(Stm);
end;
per_IBQuery.ExecSQL;
fmConnectToBase.IBTransaction2.Commit;
FreeAndNil(per_IBQuery); //Ýêâèâàëåíòíî: People. Free; People := nil;
end;
Извлечь данные из Blob
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
procedure TfmGeneral.Button3Click(Sender: TObject);
begin
TestGetDataFromSERVERS(RichEditNotes)
end;
function TestGetDataFromSERVERS(perRichEditNote:TRichEdit):TRichEdit;
var
per_IBQuery:TIBQuery;
stm: TStream;
begin
per_IBQuery:=my_initialization_TIBQuery_insert(per_IBQuery); //èíèöèàëèçèðóåì ïåðåìåííóþ è ïåðåäàåì åé ïàðàìåòðû
per_IBQuery.Active:=false;
per_IBQuery.SQL.Clear;
per_IBQuery.SQL.Add('select * from SERVERS WHERE ID = 312');
per_IBQuery.Active:=true;
per_IBQuery.Last;
stm := per_IBQuery.CreateBlobStream( per_IBQuery.FieldByName('NOTES'), bmRead);
try // finally // ãðóçèìñÿ èç íåãî
Stm.Position:=0;
perRichEditNote.PlainText:=false;
perRichEditNote.Lines.LoadFromStream(stm);
//Stm.Read(perRichEditNote, sizeof(perRichEditNote) );
result:=perRichEditNote;
finally
FreeAndNil(Stm);
FreeAndNil(per_IBQuery); //Ýêâèâàëåíòíî: People. Free; People := nil;
end;
