Как записать в 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