URLDownloadToFile Timeout setzen

[DeddyH]

Moin,

ich suche schon seit 2 Tagen nach einer Möglichkeit, einen Timeout für URLDownloadToFile anzugeben. Ist das wirklich nicht vorgesehen (das kann ich mir fast nicht vorstellen)? Alle Vorschläge, die ich ergooglen konnte, bezogen sich auf eine "Frickellösung" mit Timern o.ä. im OnProgress des Callbacks. Hat vielleicht jemand noch eine andere Idee?

[Bernhard Geyer]

leg es in einen Tread und kill denn Thread falls nach x Sekunden die Datei noch nicht erzeugt wurde.

[DeddyH]

Das wäre eine Möglichkeit, Danke.

[Luckie]

Zitat von DeddyH:

Moin,

ich suche schon seit 2 Tagen nach einer Möglichkeit, einen Timeout für URLDownloadToFile anzugeben. Ist das wirklich nicht vorgesehen (das kann ich mir fast nicht vorstellen)? Alle Vorschläge, die ich ergooglen konnte, bezogen sich auf eine "Frickellösung" mit Timern o.ä. im OnProgress des Callbacks. Hat vielleicht jemand noch eine andere Idee?

Was ist daran eine Frickellösung? Beim Start merkst du dir mit GetTickCount die Zeit, das machst du auch im OnProgress Ereignsi der Callback Funktion und dann vergleichst du eben, wie viel Zeit vergangen ist.

[himitsu]

du könntest aber auch auf andere APIs umsteigen, wo soetwas vorgesehn ist


z.B.

Delphi-Quellcode:

hSession := InternetOpen('User', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
InternetSetOption(hSession, INTERNET_OPTION_CONNECT_TIMEOUT,      ...
InternetSetOption(hSession, INTERNET_OPTION_SEND_TIMEOUT,         ...
InternetSetOption(hSession, INTERNET_OPTION_RECEIVE_TIMEOUT,      ...
InternetSetOption(hSession, INTERNET_OPTION_DATA_SEND_TIMEOUT,    ...
InternetSetOption(hSession, INTERNET_OPTION_DATA_RECEIVE_TIMEOUT, ...
InternetSetOption(hSession, INTERNET_OPTION_DISCONNECTED_TIMEOUT, ...
hURL := InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0);
Try
  ...
    If not InternetReadFile(hURL, @Buffer[1], BufferSize, BufferLength) Then
  ...
Finally
  InternetCloseHandle(hURL);
  InternetCloseHandle(hSession);
End;