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& :stupid:

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