Einzelnen Beitrag anzeigen

Fritz01

Registriert seit: 22. Mär 2006
Ort: Großenkneten
181 Beiträge
 
Delphi 7 Professional
 
#1

JPEG in BLOB Feld speichern

  Alt 7. Jun 2006, 20:31
Datenbank: DBase für Windows • Zugriff über: DataSource, TTable
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]
Fritz
  Mit Zitat antworten Zitat