تحميل ملف من الانترنت بواسطة الدافي

uses

URLMon, ShellApi;

function DownloadFile(SourceFile, DestFile: string): Boolean;

begin

try

Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;

except

Result := False;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

const

// URL Location

SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';

// Where to save the file

DestFile = 'c:\temp\google-image.gif';

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;