Быстрая скачка данных

← →
Ivolg (2005-01-19 13:25) [0]

Привет уважеемые программеры! Помогите плиз, не откажите :)! Есть страничка, с неё я скачиваю картинку N.gif :

function TForm1.GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize=1024;
var
hSession, hURL:HInternet;
Buffer:array[1..BufferSize] of Byte;
BufferLen:DWORD;
f:File;
sAppName:string;
begin
Result:=False;
sAppName:=ExtractFileName(Application.ExeName);
hSession:= InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);

try
hURL:=InternetOpenURL(hSession,
PChar(fileURL),nil,0,0,0);
try
AssignFile(f,FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen);
BlockWrite(f,Buffer, BufferLen);

until BufferLen=0;
CloseFile(f);
Result:=True;

finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end;
end.
procedure TForm1.ButtonClick(Sender: TObject);
var
FileOnNet, LocalFileName: string;
begin
dir:=ExtractFilePath(paramstr(0))+"pogoda.gif";
FileOnNet:="http://www.proba.net/flash/n.gif";
LocalFileName:="C:\n.gif";
По чему-то когда я нажимаю на кнопку скачать, то приложение виснет, пока не скатается файл! Как можно зделать чтобы приложение не висло? Или чтобы быстрее качался файл??? СПАСИБО заранее!!!

← →
Seeker © (2005-01-19 16:47) [1]

...
repeat
Application.ProcessMessages;
...

скачку в поток

Быстрая скачка данных Найти похожие ветки