Einzelnen Beitrag anzeigen

Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
934 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

Re: Bild aus Datenbank laden.

  Alt 25. Dez 2009, 22:00
Hi,

suche mal nach Blobfield und
dir werden Informationen zu Teil, die weit über das hinausgehen was du brauchst.

In Delphi könnte das ganze so aussehen:
Delphi-Quellcode:
procedure Txxxxx.ReadImage;
var
  BS : TStream;
  MS : TMemoryStream;
begin
  BS := Query.CreateBlobStream(Query.FieldByName('Thumb'), bmRead);
  BS.Seek(0, soFromBeginning);
  MS := TMemoryStream.Create;
  MS.CopyFrom(BS, BS.Size);
  MS.Position := 0;
  FImage.LoadFromStream(MS);
  MS.Free;
  BS.Free;
end;
Viel Spaß

PS Falls du kein FImage hast, oder in deiner DB es kein Feld 'Thumb' gibt; pass die
Werte entsprechend deinem Gusto an.
  Mit Zitat antworten Zitat