Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Internetten dosya download etmek

uses UrlMon; function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; // Kullanimi: procedure TForm1.Button1Click(Sender: TObject); begin if DownloadFile('http://www.delphiturk.com/messenger/messenger20.zip', 'c:\messenger20.zip') then ShowMessage('Yükleme islemi basarili') else ShowMessage('Yükleme islemi basarisiz') end;