Bild über TImage aus der Datenbank holen?

[Jack23]

Hallo

ich habe ein TImage und möchte drüber aus der Datenbank ein Bild anzeigen lassen.

Das Bild ist in der Datenbank so gespeichert: C:\Image.jpg

Wie bekomme ich das hin?

[DeddyH]

Hier mal ein Beispiel aus einem Testprojekt von mir (deshalb die blöden Bezeichner):

Delphi-Quellcode:

procedure TFrmMain.LoadPic;
var Stream: TStream;
    aJPG: TJPEGImage;
begin
  ZQuery1.Close;
  with ZQuery1.SQL do
    begin
      Clear;
      Add('SELECT Grafik FROM Bild');
      Add('WHERE ID = :id');
     end;
  ZQuery1.ParamByName('id').AsInteger := PKnoten(TreeView1.Selected.Data)^.KnotenId;
  ZQuery1.Open;
  if (ZQuery1.RecordCount > 0) and not ZQuery1.FieldByName('Grafik').IsNull and ZQuery1.FieldByName('Grafik').IsBlob then
    begin
      //Hier ist der interessante Teil
      aJPG := TJPEGImage.Create;
      Stream := ZQuery1.CreateBlobStream(ZQuery1.FieldByName('Grafik'),bmRead);
      try
        aJPG.LoadFromStream(Stream);
        Image1.Picture.Graphic := aJPG;
        FitImage;
      finally
        Stream.Free;
        aJPG.Free;
      end;
    end
  else
    begin
      Image1.Picture.Assign(nil);
      Label1.Visible := true;
    end;
end;

[edit] Oder ist nur der Pfad in der DB abgelegt? [/edit]

[Jack23]

Es ist nur der Pfad in der DB abgelegt.

[SirThornberry]

dann

Delphi-Quellcode:

Image.picture.LoadFromFile(DateinameAusDatenbank);

[DeddyH]

Das ist doch viel einfacher.

Delphi-Quellcode:

//Auslesen des Pfades
query.SQL.Text := 'SELECT Pfad FROM Tabelle WHERE Bedingung';
query.Open;
Pfad := Query.FieldByName('Pfad').AsString;
//Versuchen, die Grafik ins Image zu laden
try 
  aJPG := TJPEGImage.Create;
  try
    aJPG.LoadFromFile(Pfad);
    Image1.Picture.Graphic := aJPG;
  except
    ShowMessage('Fehler beim Laden der Grafik');
  end;
finally
  aJPG.Free;
end;

Getippt und nicht getestet.

[SirThornberry]

das erzeugen des JPEG-Image ist überflüssig wenn die unit jpeg eingebunden ist. Dadurch kann TPciture mit LoadFromFile das JPEG laden.

[DeddyH]

War mir auch gerade aufgefallen, aber Du warst schneller, bevor ich editieren konnte ;)

[Jack23]

Ich danke euch schon mal. Nun habe ich aber ein Problem.

So sieht meine jetzige Abfrage aus:

Delphi-Quellcode:

procedure TForm9.test(Sender: TObject);
begin
 ADOQuery1.Active:=false;
 ADOQuery1.Sql.Clear;
 ADOQuery1.Sql.Add('SELECT * FROM abc WHERE a like "%" ORDER BY test asc');
 ADOQuery1.Active:=true;
end;

Nach dieser Abfrage werden die Daten in einem neuem Fenster, in einem DBGrid angezeigt.
neben diesem DBgrid befindet sich das TImage. Wie bekomme ich die Daten von der oben genannten Abfrage mit deinem Code in das TImage?

[mkinzler]

Betreibe doch einfach einen Wissenstranfer und ersetzte Query durch ADOQuery1

[Jack23]

Also meinst du das so?

Delphi-Quellcode:

//Auslesen des Pfades
 Pfad :=ADOQuery1.FieldByName('Pfad').AsString;
//Versuchen, die Grafik ins Image zu laden
try
  aJPG := TJPEGImage.Create;
  try
    aJPG.LoadFromFile(Pfad);
    Image1.Picture.Graphic := aJPG;
  except
    ShowMessage('Fehler beim Laden der Grafik');
  end;
finally
  aJPG.Free;
  end;
end;