установить таймаут
fords © (2010-01-13 15:29:00)
Здравствуйте!
Использую следующую функцию для закачки файлов из инета
...
const
BufferSize = 1024*32;
var
hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: file;
sAppName: string;
fstr:TMemoryStream;
begin
fStr:=TMEmoryStream.Create;
Result := False;
sAppName := 'FireFox 5.3.5';
hSession := InternetOpen(PChar(sAppName),
INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
PChar(fileURL), nil, 0, INTERNET_FLAG_RELOAD or
INTERNET_FLAG_DONT_CACHE, 0);
try
repeat
InternetReadFile(hURL, @Buffer,
SizeOf(Buffer), BufferLen);
fstr.Write(Buffer,BufferLen);
until BufferLen = 0;
fstr.SaveToFile('c:\file.dat');
End;
finally
InternetCloseHandle(hURL);
end;
finally
InternetCloseHandle(hSession);
fstr.Free;
end;
end;
подскажите, как мне установить таймаут по которому закачка
прерывалась бы, если сервер долго не отвечает?
clickmaker (2010-01-13 15:39:00) [1]
InternetSetOption INTERNET_OPTION_RECEIVE_TIMEOUT
Наверх 
ЧАТ |
Орешник |
|
