Зависание

[JRcoker]

Вобщем модуль Wininet собственно функция...

function 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 TForm2.Button1Click(Sender: TObject);
var FileOnNet, LocalFileName: string;
begin
   FileOnNet:='http://localhost/11.png'';
   LocalFileName:='1.png';
   if GetInetFile(FileOnNet,LocalFileName)=True then
   begin
   Image1.Picture.LoadFromFile('1.png');
   end
   else
   ShowMessage('Произашел облом!:(')
end;

Работает все нормально но не пойму как убрать зависание во время закачки...

[Ozerich]

используй application.processmessages

[JRcoker]

Приведи пример...

[Arigato]

Приведи пример...

Ставте Application.ProcessMessages в том месте, где идет долгий цикл, что бы прога не висела.

[JRcoker]

Ставлю...Всеровно виснет...

[Ozerich]

repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
application.processmessages
until BufferLen = 0;

[JRcoker]

По проще можно?..

[FaTaL]

Выноси функцию в поток и всё будет нормально.

[Stilet]

По проще можно?..

Куда уж проще? Можно конечно отдельным потоком закачивать файл, но вариант выше самый простой.
Кстати прошелся бы отладчиком на предмет зависающих мест проги...