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;

[mkinzler]

Wenn das Feld 'Pfad' heißt: Ja

[Jack23]

Ah ok aber wie und wo muss ich das dann einbauen? Er sagt immer "INITIALIZATION erwartet aber Beziechner Pfad erhalten"

[mkinzler]

Hast du die Variable deklariert?

[Jack23]

Ich habe nur den Code eingebaut wie er oben steht. Wie Variable Definieren?

[mkinzler]

Wie wäre es mal mit einem Grundlagentutorial von Pascal bzw Delphi? Die Codebeispiele sollen nur die Lösung anskizzieren und können nicht als Musterlösung für Cut&Paste-Programmierer dienen.
Bei Pascal muss man jede Variable die man verwenden will vorher deklarieren.

[Jack23]

Das ist aber kein Pascal das ist Delphi.

und außerdem habe ich das nicht einfach so kopiert.

Sondern es sieht bei mir so aus:

Delphi-Quellcode:

procedure TForm9.test(Sender: TObject);
//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;
end;

Wie definiere ich die Variable Pfad?

[mkinzler]

Delphi ist aber Pascal und es gilt das selbe jede variable vor der Verwendung zu deklarieren:

Delphi-Quellcode:

procedure TForm9.test(Sender: TObject);
var
    Pfad: string;
begin
//Auslesen des Pfades
Pfad :=ADOQuery1.FieldByName('Pfad').AsString;

Außerdem fehlte das begin

[DeddyH]

Hast Du den Verlauf den Threads nicht gelesen?

Delphi-Quellcode:

procedure TForm9.test(Sender: TObject);
begin
  //Versuchen, die Grafik ins Image zu laden
  try
    Image1.Picture.Graphic.LoadFromFile(ADOQuery1.FieldByName('Pfad').AsString);
  except
    ShowMessage('Fehler beim Laden der Grafik');
  end;
end;

[edit] begin und Einrückungen hinzugefügt [/edit]

[Jack23]

Achso das ist definieren. Das wusste ich nicht. Aber wie sieht es denn mit ADOQuery1 aus? Da kommt auch die Meldung Undefinierter Bezeichner: 'ADOQuery1'. Wie muss ich die denn definieren?

[DeddyH]

Hast Du denn eine ADOQuery auf dem Formular?

[Jack23]

Nein die ist auf einem anderen. Das mit der ADOQuery1 ist aber oben unter uses eingebunden.

[DeddyH]

Dann lautet die Syntax auch

Delphi-Quellcode:

AnderesForm.AdoQuery1

[mkinzler]

Dann kannst du dieses mit

Delphi-Quellcode:

<Formname>.ADOQuery1

ansprechen

[DeddyH]

Ha, einmal schneller als mkinzler gewesen :zwinker:

[mkinzler]

Ich würde mal sagen, gleichschnell

[DeddyH]

Vermutlich hatten wir deshalb beide keinen roten Kasten.

[Jack23]

So habe ich das jetzt gemacht.

Delphi-Quellcode:

Form2.ADOQuery1.FieldByName

jetzt kommt aber diese Meldung

Form2 enthält keine Element namens ADOQuery1

edit erledigt. nur ein kleiner tippfehler.

[mkinzler]

Du solltest dich trotzdem mal den Grundlagen zuwenden.

[Jack23]

Jetzt habe ich nur noch ein kleines Problem. Den Pfad dynamisch machen. z.B. C:\jpg.jpg

Wenn ich aber jetzt das Programm auf einen anderen Computer mache ist vielleicht der pfad ganz anders. Also möchte ich es so haben das die Bilder immer im gleichen Ordner wie die exe sind z.B. \bilder\jpg.jpg

Ich hoffe das ist klar wie ich das meine.

[DeddyH]

Lass Dir mal ExtractFilePath(ParamStr(0)) ausgeben ;)

[mkinzler]

Den Paf der Exe kannst du mit

Delphi-Quellcode:

ExtractFilePath (ParamStr(0));

ermitteln

[DeddyH]

:bouncing4: Noch einmal und ich mach den Sekt auf :bounce1:

[Jack23]

:hello:


Ah perfekt danach habe ich gesucht.

Nur jetzt habe ich ein Problem. Es wird gar kein Bild angezeigt.

Auch ohne ExtractFilePath (ParamStr(0));. Habe ich gerade getestet. Ich weiß nicht was da los ist.

Mein Code sieht jetzt so aus:

Delphi-Quellcode:

Image1.Picture.Graphic.LoadFromFile(Form2.ADOQuery1.FieldByName('Pfad').AsString);

Und das Bild liegt in C:\test.jpg

[DeddyH]

Ist denn die Datenmenge geöffnet?

[Jack23]

Ich habe gerade überlegt. Kann ich statt der ADOQuery1 auch eine DataSource nutzen?

[mkinzler]

Eine DataSource ist aber nur eine Bindeglied zwischen einer Datensensitiven Komponente und einem DataSet (Query, Table, usw)

[DeddyH]

Du bräuchtest ein Dataset, und eine Query ist so eins.

[Jack23]

Achso. ich dachte es ist besser weil mein DB Memo u.s.w auch alle eine DataSource nutzen.

Aber mit einer ADOQuery geht es nicht. ich versuche mal zu erklären warum.

Mein erstes Fenster sieh so aus:

DBGrid und ein Button. Wenn ich auf den Button klicke erscheinen in dem DBGRID ein paar Einträge.

Ich mache dann auf dem Eintrag im DBGrid einen Doppelklick. Dann erscheint ein neues Fenster wieder mit einem DBGrid aber nur mit dem eben angeklickten Eintrag. Und unter dieses DBgrid soll jetzt mein Bild angezeigt werden was genau zu diesem Eintrag passt.

[DeddyH]

Delphi-Quellcode:

DBGrid.DataSource.Dataset.FieldByName('Pfad').AsString

[Jack23]

Es soll aber trotzdem noch als TImage angezeigt werden.