[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

> I tried : Table1BlobField1.Assign(Memo1.lines) but this
>  won't work. Get an error message telling me that this
>  field is not a BLOB.

I had found this snip of code in a mag. some time back.  It seems to
work well.  It uses a TStringList which should work with the TMemo.

procedure TMain1.ListBoxToDBMemo(DestTable: TTable; Destfield: String;
SourceList: TStringList);
var
BlobStream1: TBlobStream;
begin
BlobStream1:=TBlobStream.Create(TMemoField(DestTable.FieldByName(
DestField)),bmWrite);
try
   BlobStream1.Write(SourceList.GetText^,StrLen(SourceList.GetText));
   finally
      BlobStream1.free;
   end;
end;

procedure TMain1.DBMemoToListBox(SourceTable: TTable; SourceField:
String; DestList: TStringList);
var
BlobStream1:  TBlobStream;
begin
BlobStream1:=TBlobStream.Create(TMemoField(SourceTable.FieldByName(
SourceField)),bmRead);
try
   DestList.LoadFromStream(BlobStream1);
   finally
     BlobStream1.free;
   end;
end;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]