Bilder in die Paradoxtabelle speichern ?

[OrgFreak]

Es geht auch so:

Im DbNavigator auf bearbeiten gehen und dann unten stehenden Button2 drücken.
Zuvor aber das Bild in eine Image-Komponenete holen;

Delphi-Quellcode:

begin
try
ImageOpenDlg1.execute;
if imageopendlg1.filename='' then begin
end
else begin
Image1.Picture.LoadFromFile(ImageOpenDlg1.filename);
end;

procedure TSave.Button2Click(Sender: TObject);
var c: TBitmap;
begin
c:=TBitmap.create;
c:=image1.picture.bitmap;
dbimage1.picture.bitmap:=c;
end;

Gruss

OrgFreak

[DeddyH]

Das kann man aber auch anders schreiben (bei selber Vorgehensweise):

Delphi-Quellcode:

if ImageOpenDlg1.Execute then 
  Image1.Picture.LoadFromFile(ImageOpenDlg1.filename);

procedure TSave.Button2Click(Sender: TObject);
begin
  DBImage1.Picture.Bitmap.Assign(Image1.Picture.Bitmap);
end;

[Bummi]

eine generische Methode für TPicture, also prinzipiell JPEG,PNG,WMF,BMP,GIF, hattee ich im Source unter
http://www.delphi-forum.de/viewtopic.php?t=108639
LoadSaveImageBlobs.pas
abgelegt.