Bild über TImage aus der Datenbank holen?

[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?