Habs jetzt so gemacht, dass ich die File zuerst in einem txt-File speichere.
So funktionierts:
Delphi-Quellcode:
procedure Tfrm_main.Button5Click(Sender: TObject);
const
// URL Location
SourceFile = '
http://blabla.de/bla.php';
// Where to save the file
DestFile = '
c:\bla.txt';
begin
if DownloadFile(SourceFile, DestFile)
then
begin
ShowMessage('
Download succesful!');
// Show downloaded image in your browser
ShellExecute(Application.Handle, PChar('
open'), PChar(DestFile),
PChar('
'),
nil, SW_NORMAL)
end
else
ShowMessage('
Error while downloading ' + SourceFile)
end;