Форум: "Начинающим";
Текущий архив: 2010.03.14;
Скачать: [xml.tar.bz2];
Вниз
установить таймаут Найти похожие ветки
← →
fords (2010-01-13 15:29) [0]Здравствуйте!
Использую следующую функцию для закачки файлов из инета
...
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) [1]InternetSetOption INTERNET_OPTION_RECEIVE_TIMEOUT
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.03.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c
