Bild aus Datenbank in TImage Komponente

[Metallicwar]

Ich habe eine Lösung:

Delphi-Quellcode:

        
sBlobFile := 'c:\Test.jpg';
if qryGetDAtaBild.BlobSize > 0 then
 begin
  qryGetDAtaBild.SaveToFile(sBlobFile);

  Frames.Image1.Picture.LoadFromFile(sBlobFile);
  DeleteFile(sBlobFile);
 end;

[xZise]

Was hältst du davon wenn du keine Datei verwendest? Das Programm kann ja nicht unterscheiden ob es aus den RAM oder von der HDD kommt. Weil SaveToFile und LoadFromFile wiederum benutzen auch nur Streams.

Also würde ich es so schreiben:

Delphi-Quellcode:

var
  buffer : TStream;
begin
  buffer := TMemoryStream.Create;
  try
    qryGetDAtaBild.SaveToStream(buffer);
    Frames.Image1.Picture.LoadFromStream(buffer);

Ich hoffe doch den Rest kriegst du noch hin

Vielleicht habe ich das auch übersehen, aber von welchen Typ ist qryGetDataBild?

MfG
Fabian

[DeddyH]

Das klingt nach TQuery

[Metallicwar]

richtig DeddyH
--> qryGetDAtaBild: TBlobField; Inkompatible Typen String und TStream;

[DeddyH]

Nee, nicht richtig. TQuery stammt von TDataset ab, TBlobField von TField.

[Metallicwar]

ok
könnt ihr mir bei der Fehlermeldung weiterhelfen?

[DeddyH]

Zeig mal etwas mehr Code.

[Metallicwar]

Delphi-Quellcode:

        if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          qryGetDAtaBild.SaveToFile(stBild);
          Frames.Image1.Picture.LoadFromFile(stBild);
        end;

ist eigentlich der selbe den du oben gepostet hast.

[DeddyH]

Delphi-Quellcode:

        if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          try
            qryGetDAtaBild.SaveToStream(stBild); //Stream statt File
            Frames.Image1.Picture.LoadFromStream(stBild); //s.o.
          finally
            stBild.Free;
          end;
        end;

[Metallicwar]

Frames.Image1.Picture.LoadFromStream(stBild); --> Auf protected Symbol T.Picture.LoadFromStream kann nicht zugegriffen werden.

...Picture. kennt keine procedure die LoadFromStream heißt.