Форум: "Начинающим";
Текущий архив: 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.44 MB
Время: 0.005 c