JPEG-Datenbankkomponente für Delphi

[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

[Sir Rufo]

Zitat von Kralle:

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.

Zitat von Kralle:

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 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 von Kralle:

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 ist trübe?

Und nochmal allgemein:

Zitat:

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

[Satty67]

Zitat von Sir Rufo:

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
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
DBImage1.Picture.Assign(JPEGImage1.Picture); .
speichert wohl auch nur RAW-Daten im Blob, oder?