Re: Gif

Return to index

Author

Message

Yernar

Posted: 01/21/2003 10:07:38

That will be correct:

function TfmMyApp.SaveRecord: boolean;

var Stream: TStream;

begin

  Stream := TMemoryStream.Create;

  try

    result:=rve.SaveRVFToStream(Stream,False);

    Stream.Position := 0; // reset to the beginning after saving

    tblDBFile1.Edit;

    TBlobField(tblDBFile1.FieldByName('TEXT')).LoadFromStream(Stream);

    tblDBFile1.Post;

    Modified:=false;

  finally

    Stream.Free;

  end;

end;