Timage aus Blobfeld

[dataspider]

... oder mit CreateBlobStream:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  AStream: TStream;
begin
  MyTable.Active := true;
  MyTable.First;
  AStream := MyTable.CreateBlobStream(FieldByName('Picture'), bmRead);
  try
    image1.Picture.LoadFromStream(AStream);
  finally
    AStream.Free;
  end;
end;

Cu, Frank