Bild bei AfterScroll aktualisieren

[Luca Haas]

Hi Leute, ich habe einige Bilder(und andere Daten) in einer Datenbank gespeichert. Die anderen Daten stelle ich in einem DBGrid dar, und die Bilder über ein TImage.
Ein Bild lässt sich auch problemlos in das TImage laden, ich weiß nur nicht, wie ich, mein Programm, schreiben soll/kann, dass ich die Bilder über ein AfterScroll Ereignis aktualisiere.

Delphi-Quellcode:

procedure TForm1.KST_LagerbewertungQueryAfterScroll(DataSet: TDataSet);
begin
  Image1.Picture.Assign(nil);
  Image1.Picture := KST_LagerbewertungQuery.FieldByName('Bildpfad');
end;

Wenn ich es so versuche erhalte ich eine Fehlermeldung, da TPicture und TField inkompatible Typen sind.

[mikhal]

Schau die das mal an: Blobs auslesen.

Ist recht alt, funktioniert aber immer noch. Ersetze TTable durch TAdoQuery, dann sollte es funktionieren.

Grüße
Mikhal

[Luca Haas]

Danke schonmal dir Mikhal,

aber dabei bekomme ich die Fehlermeldung "Ungültige Typumwandlung", für die zweite Zeile.

Gruß Luca

[Uwe Raabe]

Was ist Bildpfad denn für ein Datentyp? Ist da wirklich das Bild drin oder steht da nur der Pfad zur Bilddatei?

[Luca Haas]

In Bildpfad steht nur der Pfad zur Bilddatei.

[mikhal]

Okay, das habe ich dann wohl falsch interpretiert. In meiner Routine wird ein Large Binary Object (BLOB) direkt an TImage übergeben, du willst aber scheinbar ein Bild aus einem Dateipfad laden. Sorry, das passt nicht.

Hier wäre wohl folgendes sinnvoller:
  Image1.Picture.Bitmap.LoadFromFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString); // BMP laden...
Grüße
Mikhal

[Luca Haas]

Okay, danke schön
So klappt es.

[mikhal]

Ja, aber nur für Bitmaps = .bmp

JPEg musst du anders angehen...

Grüße
Mikhal

[Uwe Raabe]

Lass das Bitmap weg, dann erkennt er auch andere Bildformate, so die denn auch registriert sind.

  Image1.Picture.LoadFromFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString);

[mikhal]

Muss ich bei Gelegenheit mal ausprobieren, kannte ich bis jetzt auch noch nicht.

Grüße
Mikhal