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:

Zitat von shmia (Beitrag 1057202)

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:

Zitat von himitsu (Beitrag 1057326)

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

Delphi-Quellcode:

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:

Zitat von Sir Rufo (Beitrag 1057375)

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 :-D

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

[Sir Rufo]

Zitat:

Zitat von Kralle (Beitrag 1057399)

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.

Was ist denn hier widerlegt worden?
Speicher ein JPEG in der DB in ein BLOB-Feld.
Verbinde dieses BLOB-Feld mit TDBImage und das Bild wird angezeigt. (das mit der jpeg unit nicht vergessen)
Niemand konnte ahnen, dass du mit TDBImage ein Feld verknüpft hast, wo in einem string ein Pfad steht. Das hätte dir jeder hier sofort um die Ohren gehauen. :roll:

Zitat:

Zitat von Kralle (Beitrag 1057399)

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.

Entschuldige, aber meine :glaskugel: ist im Moment etwas trübe ... und die SIcht auf deinen Bildschirm etwas streifig.

Ich fasse es gerne für Dich etwas besser:

Zitat:

Wenn du n Bilder anzeigen möchtest, dann Klatsch n-mal TImage auf das Formular. Die OnClick-Ereignisse kannst du ja auch schon zur DesignTime setzen. Geht aber auch zur Laufzeit. So wie es der Herr wünscht

Zitat:

Zitat von Kralle (Beitrag 1057399)

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?

Das muss ich wohl überlesen haben ... oh nee, du hast es nirgendwo mit einem Wort erwähnt ... erwähnte ich schon die :glaskugel: ist trübe? :roll:

Und nochmal allgemein:

Zitat:

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

[Satty67]

Zitat:

Zitat von Sir Rufo (Beitrag 1057400)

Speicher ein JPEG in der DB in ein BLOB-Feld.
Verbinde dieses BLOB-Feld mit TDBImage und das Bild wird angezeigt. (das mit der jpeg unit nicht vergessen)
Niemand konnte ahnen, dass du mit TDBImage ein Feld verknüpft hast, wo in einem string ein Pfad steht.

Aus seinem Beispiel:

TDBImage - Fieldname Bild - FieldKind fkData - BlobType ftGraphic

Den Pfad-String speichert er zwar auch, aber wird nicht von TDBImage (aus der DB) verwendet. Das TImage liegt z.Z. nur auf dem Formular, um beim Laden einen Gegenkontrolle zu haben.

Was hier nicht funktioniert, ist das erste Einlesen des JPG-Bildes in die Datenbank via

Delphi-Quellcode:

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.filename);

.
weshalb in der Datenbank auch das Blob-Feld leer bleibt. Bei BMP/GIF funktioniert die Methode aber.

PS: Funktioniert mit keinem nachträglich registrierten Bild-Typ, also auch nicht mit PNG/TIF via GraphicEx.

***

So wie es aussieht will er schon die Bilder in der Datenbank halten und nicht nur die Dateinamen, aber nicht als unkomprimiertes BMP. Die Dateinamen waren nur eine Alternative um notfalls ein TImage statt TDBImage verwenden zu können (müssen).

***

Schlagt mich nicht, aber ich glaube er hat soweit recht. TDBImage kann kein komprimiertes JPG-Imgage direkt darstellen.

Ohne es zu testen, der Umweg über

Delphi-Quellcode:

DBImage1.Picture.Assign(JPEGImage1.Picture);

.
speichert wohl auch nur RAW-Daten im Blob, oder?