Einzelnen Beitrag anzeigen

OrgFreak

Registriert seit: 1. Sep 2011
60 Beiträge
 
Turbo Delphi für Win32
 
#51

AW: Bilder in die Paradoxtabelle speichern ?

  Alt 4. Mär 2012, 15:40
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

Geändert von mkinzler ( 5. Mär 2012 um 08:00 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat