Add file urlmon
Original Reporter info from Mantis: ocean
-
Reporter name:
Original Reporter info from Mantis: ocean
- Reporter name:
Description:
In Delphi there is simple way to download file (for example). Since there is already wininet, it would make sense to have urlmon too.
uses urlmon;
procedure TForm1.Button1Click(Sender: TObject);
var Source, Dest: string;
begin
Source:='http://lazarus.freepascal.org';
Dest:='C:\Windows\temp\data.txt';
if URLDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil)=0 then
showmessage('Download ok!')
else
showMessage('Error downloading '+Source);
end;
Mantis conversion info:
- Mantis ID: 23107
- Platform: Win32/64
- Version: 2.7.1
- Fixed in version: 3.0.0
- Fixed in revision: 26867 (#e96e9927)
- Monitored by: » Vincent (Vincent Snijders)
- Target version: 3.0.0