Ich habe mal Bilder in einer Datenbank gespeichert. Statt OpenPictureDialog kann man natürlich auch einen Pfad und den Namen des Bildes angeben. Folgende Prozedur:
Delphi-Quellcode:
procedure TF_Formblaetter.FileOpenItemClick(Sender: TObject);
var FS: TFileStream;
begin
if OpenPictureDialog1.Execute then begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DataModul.Presentation.Edit;
FS := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
try
DataModul.PresentationLogo.LoadFromStream(FS);
finally
FS.Free;
end;
DataModul.PresentationLogoname.AsString := OpenPictureDialog1.FileName;
DataModul.Presentation.Post;
end else
Image1.Picture:= nil;
end;
[edit=Sharky]Dephi-Tags gesetzt. Mfg, Sharky[/edit]