Как записать в BLOB поле большой текст (более 255)?
Материал из DRKB
Как записать в BLOB поле большой текст (более 255)?[править | править код]
var
S: TBlobStream;
B: Pointer;
c: Integer;
begin
Table1.Edit;
S := TBlobStream.Create(Table1BlobField as TBlobField, bmWrite); { кажется, так }
try
C := S.Write(B, C);
Table1.Post;
finally
S.Destroy;
end;
end;
или так
var
S: TMemoryStream;
B: pointer;
C: integer;
begin
S := TMemoryStream.Create;
try
Table1.Edit;
S.Clear;
S.SetSize(C);
C := S.Write(B, C);
(Table1BlobField as TBlobField).LoadFromStream(S);
S.Clear;
Table1.Post;
finally
S.Destroy;
end;
end;
Source: Взято с http://delphiworld.narod.ru
ID: 02479