JPEG-Datenbankkomponente für Delphi

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