PDA

View Full Version : داونلود فایل همراه با ProgressBar


Saeid59_m
سه شنبه 29 خرداد 1386, 09:47 صبح
سلام

می خواهم برنامه ای بنویسم که یک فایل رو داونلود کنه ولی با Progress‌
ممنون
SYNDROME
سه شنبه 29 خرداد 1386, 16:02 عصر
با سلام

سلام
می خواهم برنامه ای بنویسم که یک فایل رو داونلود کنه ولی با Progress‌
ممنون
یک نمونه است ولی برای کپی کردن فایل ببین به کارت می خوره.
http://barnamenevis.org/forum/showthread.php?t=43385&highlight=Progress
Saeid59_m
سه شنبه 29 خرداد 1386, 16:30 عصر
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;


مثال :

SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
DestFile = 'c:\temp\google-image.gif';

البته آقای SoftDev‌این کار رو تو برنام اش انجام داده
شاید با این کد دوستان بتونن بهتر راهنمائی کنند
ممنون