[elsouro]

Программа по нажатию кнопки скачивает из интернета определенный файл такой функцией

Код:

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;

Как сделать, чтобы она не зависала на время пока скачивается файл? Добавлял Indy Antifreeze - не помогает...
Может быть использовать какой-нить другой способ скачки?

[Autumn]

Если я не ошибаюсь, эта функция из DelphiWorld. Но даже если она не оттуда - вынеси ее в отдельный поток (TThread) и будет тебе счастье.

P.S: можно после каждого прохождения цикла вставить Application.ProcessMessages, но это будет не так эффективно.

[elsouro]

Да, функцию не я писал. Вот попробовал потоки:

Код:

procedure TThreadDL.Execute;                             
 begin
     Synchronize(DoWork);
 end;

procedure TThreadDL.DoWork;
 begin
 GetInetFile(picurl, LocalFile);
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TThreadDl.Create(false);
end;

но все равно подвисает, что я не так делаю?)

[NumLock]

Synchronize выполняет метод в основном потоке. лекарство:

PHP код:

procedure TThreadDL.Execute;                             
begin
  GetInetFile(picurl, LocalFile);
end; 


[elsouro]

Сообщение от NumLock

Synchronize выполняет метод в основном потоке. лекарство:

PHP код:

procedure TThreadDL.Execute;                             
begin
  GetInetFile(picurl, LocalFile);
end; 


Спасибо за совет, но, к сожалению, не помогло...
Собственно, суть этой части программы в том, что она скачивает картинку (png) из интернета, показывает на форме и сохраняет в папку. Может ли программа зависать на последних двух операциях?

[NumLock]

Сообщение от elsouro

не помогло...

так не бывает. уверен, что TThreadDL от TThread унаследован?