Ограничение времени выполнения функции

[Crystallon]

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

function HTTPGetFile(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);
    if hURL <> nil then  begin
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
        FMain.Gauge1.Progress:=FMain.Gauge1.Progress+BufferLen;
        FMain.pr1.Width:=Trunc(progressX*FMain.Gauge1.Progress/FMain.Gauge1.MaxValue);
      until
        BufferLen = 0;
      CloseFile(f);
      Result := True;
    finally
      InternetCloseHandle(hURL);
    end;
  end;
  finally
    InternetCloseHandle(hSession);
  end;
    FMain.Gauge1.Progress:=0;
    FMain.pr1.Width:=0;
end;

[kakawkin]

а что если в таймер пихануть Tag=1 и в тело:
if timer1.tag= then timer1.enable:=false ?????

[Crystallon]

Конечно это первая мысль которая пришла мне в голову, перед выполнением функции запустить таймер, и на окончание таймера поставить нужный мне код, но я вспомнил что к примеру с idHTTP такое не прокатило, т.к. программа висела пока idHTTP не вернет управление, по этому решил это даже не пробовать.

[XeruH]

const
  MaxTickCount = ваше максимальное число;
...
Aborted: Boolean;
TickCount: Cardinal;
...
Rewrite(f,1);
Aborted := False;
TickCount := GetTickCount;
repeat
...
if (GetTickCount - TickCount) >= MaxTickCount then
begin
  Aborted := True;
  Break;
end; 
until
..

А потом если Aborted = True то выполняете ваши действия.

[Johnson]

Я, конечно, извиняюсь, но все нормальные люди пишут такие процедуры как загрузку файлов из интернета, загрузку больших файлов с диска, сложные и нудные мат опецации, (и другие "утомительные" процедуры) на исполнение в отдельном потоке... а в теле функции загрузки постоянно обновлять таймер, который по эвенту убивает поток (таймер обычно на 2-3 минуты ставлю)
написал бы пример, но сейчас дельфи нет под рукой...

алгоритм мне видится таким:
при старте потока создается и подключается idHTTP и создается остановленый таймер, передаются ему адрес ресурса и путь к файлу (и т.п.)
while not(idHTTP.connected) do sleep 20;
if idHTTP.connected then начать загрузку, запустить таймер
записать часть в файл, остановить и снова запустить таймер
по завершении загрузки таймер не останавливать.

по таймеру idHTTP.Free;Timer1.Free;TNewThread. Terminate;

Вот думаю, что как-то так... Но не уверен в работоспособности - писал "на коленках"

type
	TNewThread = class (TThread)
	protected
		Procedure Execute; override;
	public
		fileURL,FileName:string;
	private
		hSession, hURL: HInternet;
		Timer1:TTimer;
		f: file;
		Buffer: array[1..BufferSize] of Byte;
		BufferLen: DWORD;
		sAppName: string;
		procedure TimerEvent(Sender:TObject);
	end;
var
	NewThread:TNewThread;
const
	BufferSize = 1024;
...

Procedure TNewThread.Execute;
begin
	Timer1:=TTimer.Create(nil);
	Timer1.Interval:=120000; {2min)
	Timer1.Enabled:=false;
	Timer1.OnTimer:=TimerEvent;
	
  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);
    if hURL <> nil then  begin
		try
			AssignFile(f, FileName);
			Rewrite(f,1);
			repeat
				InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
				BlockWrite(f, Buffer, BufferLen);
				Timer1.Enabled:=false;Timer1.Enabled:=true;
			until BufferLen = 0;
			CloseFile(f);
			Result := True;
		finally
			InternetCloseHandle(hURL);
		end;
	end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

procedure TNewThread.TimerEvent(Sender:TObject);
begin
	Timer1.Free;
	idHTTP.Free;
	NewThread.Terminate;
end;

procedire TMainForm.Button1Click(Sender:TObject);
begin
	NewThread:=TNewThread.Create(true);
	NewThread.FreeOnTerminate:=true;
	NewThread.Priority:=tpNormal;
	NewThread.OnTerminate:=NewThreadTerminate;
	NewThread.Adress:='нужный адрес файла в сети';
	NewThread.destfile:='c:\1.txt';
	NewThread.Resume;
end;

а прогресс через Synchronize сделать, думаю, не трудно...