JPEG-Datenbankkomponente für Delphi

[Kralle]

Moin,

lt. Wikipedia gibt es "JPEG" seit 1992 und "Delphi" seit 1995, aber eine Komponete, die ich mit der Datenbank verknüpfen kann und die ein JPEG darstellt dessen Speicherort in der Daba gespeichert ist, scheint es nicht zu geben oder kenne ich nur nicht die Zauberwörter für die Suche?

Gruß Heiko

P.S. mir selber eine entsprechende Komponete schreiben kann ich leider nicht.

[shmia]

Du musst nur die Unit jpeg per Uses in dein Programm einbinden und schon kannst du JPeg-Bilder mit der Komponente TDBImage anzeigen.
Die VCL hat intern ein Plugin-System für Grafikformate.
Durch das Einbinden der Unit jpeg kennt die VCL das Grafikformat und kann es benützen.

[Kralle]

Moin,

Zitat von shmia:

Du musst nur die Unit jpeg per Uses in dein Programm einbinden und schon kannst du JPeg-Bilder mit der Komponente TDBImage anzeigen.
Die VCL hat intern ein Plugin-System für Grafikformate.
Durch das Einbinden der Unit jpeg kennt die VCL das Grafikformat und kann es benützen.

Hier ein kleines D2006 Programm und das kann kein JPEG (siehe linkes Fenster) trotz der eingebunden Unit.
http://www.rompel.cc/downloads/jpeg_test.zip

Gruß Heiko

P.S. Die Upload des Forums lies kein Hochladen zu.

[himitsu]

Es kann sein, daß du vorher das JPEG in ein TJpegImage (oder wie das nochmal heißt) reinladen mußt.
Danach kannst du dieses via DBImage.Picture.Assign in die andere Komponente reinladen.

[Kralle]

Hallo,

Zitat von himitsu:

Es kann sein, daß du vorher das JPEG in ein TJpegImage (oder wie das nochmal heißt) reinladen mußt.
Danach kannst du dieses via DBImage.Picture.Assign in die andere Komponente reinladen.

Also, mit einem DBImage1.Picture.Assign(Image1.Picture); wird das JPEG auch im TDBImage dagestellt.
Jetzt muss ich mir noch Gedanken machen, wie ich das nutze ohne sichtbare TImage-Komponente.
Einfach unsichtbar schalten wäre wohl nicht so dolle - oder?

MfG
Heiko

[Sir Rufo]

äh, wie wäre es mit einfach zur Laufzeit erzeugen? Also nicht auf die Form klatschen

Delphi-Quellcode:

var
  img : TImage;

  img := TImage.Create( nil );
  try
    {...}
  finally
    img.Free;
  end;