Danke,
aber kannst Du mir bitte genau beschreiben wie ich das machen soll.
Bin noch nicht so fit mit Delphi.
Hab das mit der u.g. Routine gemacht. Ich möchte dazu aber keine visuellen Komponenten benutzen. Vielleicht kannst du mir die Routine ändern.
Danke.
Delphi-Quellcode:
procedure TSaveGraph.Button1Click(Sender: TObject);
var
jp: TJPEGImage;
i : integer;
begin
While not FotoTable.EOF do
begin
jp := TJPEGImage.Create;
try
with jp do
begin
Assign(DBImage1.Picture.Bitmap);
SaveToFile(c:\bilder\'+ IntToStr (FotoTableInvNummer.Value)+ '.jpg')
end;
finally
jp.Free;
end;
FotoTable.Next;
end;
end;
[edit=MrSpock]Codetags eingefügt. Mfg, MrSpock[/edit]