JPEG in BLOB Feld speichern

[Fritz01]

Hallo,
da habe ich wieder ein Problem. Es sollen bmp und/oder jpeg Bilder in einem BlobFeld gespeichert werden.
Bei bmp mache ich das so, und das funktioniert auch.

Delphi-Quellcode:

procedure TForm1.ReadButtonClick(Sender: TObject);
begin
  with Table1 do
  Image1.Picture.Assign(FieldByName('Bild'));
end;

procedure TForm1.WriteButtonClick(Sender: TObject);
begin
 with Table1 do
  begin
   table1.Insert;
   table1.FieldByName('bild').Assign(Image1.Picture);
   table1.Post;
 end;
end;

Nun habe ich die bei USES jpeg eingefügt.
Wie geht das mit jpeg Bildern?
Fritz01

[edit=SirThornberry]Delphi-Tags ergänzt - Mfg, SirThornberry[/edit]

[mkinzler]

Zitat:

Wie geht das mit jpeg Bildern?

Müßte geanuso gehen, weil in der Unit jpeg nur ein Formatfilter füt TImage steckt.

[Fritz01]

Hi MKINZLER,
nein, leider nicht! Hier kommt die Fehlermeldung:
TPicture kann nicht zu TBloField zugewiesen wereden.
Fritz01

[Klaus01]

Hallo Fritz01,

mal bitte hier schauen -> http://forum.dsdt.info/viewtopic.php?p=183788&
und darin dann diesen -> http://www.swissdelphicenter.ch/de/showcode.php?id=1271

Grüße
Klaus

[Gerd01]

Kodier doch einfach die jpeg mit base64. Dann musst du dir über den Dateityp keine Gedanken machen. Na und dann dekodieren mit base64 wenn du es liest.

[marabu]

Hallo Fritz,

vielleicht ist dieser Beitrag für dich interessant: JPG als BLOB in FireBird-Tabelle speichern

Grüße vom marabu

Edit: Link auf Beitrag #5 durch Link auf Beitrag #2 ersetzt.

[Karstadt]

http://forum.dsdt.info/viewtopic.php?p=183788&

[Fritz01]

Hallo,
habe hier http://www.mike-kraemer.de/html/blob..._paradox_.html ein Beispiel gefunden, alles exakt so gemacht. TImage, Paradox Tabelle, Blob binär usw. Es funktioniert nicht bei JPEG
Was mache ich da nur falsch??
Vielleicht weiß da jemand eine Lösung und postet diese.
Fritz01

[mikhal]

Verwendest du zum Anzeigen ein TDBimage? Damit habe nur schlechte Erfahrungen gemacht, sobald JPEG ins Spiel kam. Darum verwende ich zur Darstellung grundsätzlich TImage.

Grüße
Mikhal

[Fritz01]

Hallo Mikhal,

ich habe mich exakt an das Beispiel gehalten, und ich habe TImage verwendet.
Habe allerdings Delphi 4, sollte es daran liegen?
Fritz01