Bilder aus Stream Laden

[Alter Mann]

Hi,

versuche es mal so:

Delphi-Quellcode:

procedure   TXXXX.ReadImage(aFieldName : String);
var
  BS : TStream;
  MS : TMemoryStream;
begin
  BS := Query.CreateBlobStream(Query.FieldByName(aFieldName), bmRead);
  BS.Seek(0, soFromBeginning);
  MS := TMemoryStream.Create;
  MS.CopyFrom(BS, BS.Size);
  MS.Position := 0;
  Image321.Bitmap.LoadFromStream(MS);
  MS.Free;
  BS.Free;
end;

Alter Mann