+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد دانلود فایل با دلفی (/showthread.php?tid=2157)
سورس کد دانلود فایل با دلفی - Amin_Mansouri - 04-22-2012
با سورس زیر که در دلفی نوشته شده است میتونید یک برنامه رو دانلود کنید فقط کافیه تابع زیر رو فراخوانی کنید :
کد:
function DownloadURLToFile(const URL, FileName: string): Boolean;
begin
// URLDownloadFile returns true if URL exists even if file not created
// hence we also check file has been created.
Result := Windows.Succeeded(
UrlMon.URLDownloadToFile(nil, PChar(URL), PChar(FileName), 0, nil)
) and SysUtils.FileExists(FileName);
end;