Delphi Bilder aus Stream Laden

Thema durchsuchen

Ansicht

Themen-Optionen

Bilder aus Stream Laden

Ein Thema von Pro_RJ · begonnen am 10. Jan 2010 · letzter Beitrag vom 11. Jan 2010

Vorheriger Beitrag

Nächster Beitrag

Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
949 Beiträge

Delphi 10.2 Tokyo Professional

Re: Bilder aus Stream Laden

10. Jan 2010, 17:26

Hi,

versuche es mal so:

zusammenfalten · markieren

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