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;

[SirThornberry]

das macht aber mal gar keinen Sinn. Wenn man es nicht anzeigen will braucht man auch kein TImage. Dann würde ein TPicture genügen.

[Kralle]

Moin,

das mit dem TImage von Hand funktioniert, aber löst nicht das Problem.
Mit nur einem Bild aus der Daba mag dieser Weg ja noch gangbar sein, aber wenn ich auf einem
Formular 4 bzw. 9 Bilder gleichzeitig anzeigen will und deren Pfadangaben alle in der Daba liegen
dann wäre eine Komponente die ich mit der Daba verknüpfe und die die Bilder (egal ob BMP oder JPEG)
auf Grund der in der Daba gespeicherten Pfad anzeigt.
DBImage würde das machen, wenn ich BMP-Bilder die nicht zu Groß sind in einem Grafik-Feld der Daba speichere.
Aber erstens wird die Daba dadurch schnell sehr groß und zweitens sehr langsam.

Leider reichen meine Kenntnisse nicht aus um mir eine entsprechende Komponete zu programmieren.
Also, muß ich meiner als erstes eingeschlagenen Weg über ein Frame nochmal untersuchen.

Danke, für Eure Hilfe.

MfG
Heiko

[Sir Rufo]

Ja, jetzt wird klar, warum du hier gerade auf dem falschen Baum im falschen Wald sitzt.

In deinem DB-Feld ist kein Bild gespeichert, sondern der Pfad zu einem Bild.
Also als interner Typ in Delphi ein

Code:

string

.
Woher soll denn auch bitteschön irgendeine Standardkomponente wissen, dass es sich bei dem String-Inhalt um einen Pfad zu einem Bild handelt und den es jetzt auch noch als Bild darstellen soll?

Hellsehen? Vermuten?

Ok, soweit hast du es begriffen, dass du dafür etwas bauen müsstest (aber ich befürchte aus den falschen Gründen, sonst hättest du niemals versucht TDBImage zu verwenden)

Wenn du 9 Bilder anzeigen möchtest, dann Klatsch 9x TImage auf das Formular.
Die Abfrage/Tabelle hat einen Event

Code:

AfterScroll

dort packst du dann den Code zu laden der Bilder in die TImage

Delphi-Quellcode:

Image1.Picture.LoadFromFile( ADOQuery1.FieldByName( 'Bild1' ).AsString );
{... usw ...}

Bei 9 Bilder sind das 9 Zeilen, was ja nicht wirklich aufwendig sein sollte

[Kralle]

N'abend,

Zitat von Sir Rufo:

Ja, jetzt wird klar, warum du hier gerade auf dem falschen Baum im falschen Wald sitzt.

Jein.

Zitat:

In deinem DB-Feld ist kein Bild gespeichert, sondern der Pfad zu einem Bild.

Das wählte ich so, weil es keine DB-Komponente für JPEG-Bilder gibt.
Ich hätte auch lieber einer Komponete ala TImage auf dem Formular plaziert und nur mit der Datenbank und dem Datenfeld verbunden.

Zitat:

Also als interner Typ in Delphi ein

Code:

string

.

In diesem Fall ja.

Zitat:

Woher soll denn auch bitteschön irgendeine Standardkomponente wissen, dass es sich bei dem String-Inhalt um einen Pfad zu einem Bild handelt und den es jetzt auch noch als Bild darstellen soll?

Gar nicht.

Zitat:

Hellsehen? Vermuten?

Oh ja, das wäre toll

Zitat:

Ok, soweit hast du es begriffen, dass du dafür etwas bauen müsstest

Ja.

Zitat:

(aber ich befürchte aus den falschen Gründen, sonst hättest du niemals versucht TDBImage zu verwenden)

Das mit dem TImage habe ich nur hier präsentiert, weil es hies man könnte einfach "jpeg" in die Uses eintragen und dann würde TImage auch Jpeg-Bilder genauso können wie BMPs. Einfach den Feldtyp Image wählen und fertig.

Das haben wir hier in dem Thread wiederlegt.

Zitat:

Wenn du 9 Bilder anzeigen möchtest, dann Klatsch 9x TImage auf das Formular.

Es sind am Ende aber nicht nur 9 Bilder sondern auf 2Tabs 9+4Bilder plus 2 Buttons je Bild und ein OnClick-Ereignis pro Bild.

Zitat:

Die Abfrage/Tabelle hat einen Event

Code:

AfterScroll

Den kannte ich noch nicht.

Zitat:

dort packst du dann den Code zu laden der Bilder in die TImage

Delphi-Quellcode:

Image1.Picture.LoadFromFile( ADOQuery1.FieldByName( 'Bild1' ).AsString );
{... usw ...}

ADOQuery in einer MyBase-Datenbank?

Zitat:

Bei 9 Bilder sind das 9 Zeilen, was ja nicht wirklich aufwendig sein sollte

siehe oben.

MfG
Heiko