Я передаю данные с локального диска по модему на удаленный ftp сервер. Хочется показать пользователю сколько данных уже передано.
Вот здесь вроде как и есть ответ на этот вопрос:
http://forum.vingrad.ru/index.php?showtopic=32704&st=15
RAdmin писал:
| Код |
procedure InetCallback(HInternet: HINTERNET; dwContext, dwInternetStatus: DWORD;
lpStatusInfo: Pointer; dwStatusInfoLen: DWORD); stdcall;
begin
case dwInternetStatus of
INTERNET_STATUS_REQUEST_SENT: BytesOut:=BytesOut+DWORD(lpStatusInfo^); {Upload}
INTERNET_STATUS_RESPONSE_RECEIVED: BytesIn:=bytesIn+DWORD(lpStatusInfo^); {Download}
{Это сам обрабатывай :) }
INTERNET_STATUS_RECEIVING_RESPONSE:;
INTERNET_STATUS_RESOLVING_NAME:;
INTERNET_STATUS_NAME_RESOLVED:;
INTERNET_STATUS_CONNECTING_TO_SERVER:;
INTERNET_STATUS_CONNECTED_TO_SERVER:;
INTERNET_STATUS_SENDING_REQUEST:;
INTERNET_STATUS_CTL_RESPONSE_RECEIVED:;
INTERNET_STATUS_PREFETCH:;
INTERNET_STATUS_CLOSING_CONNECTION:;
INTERNET_STATUS_CONNECTION_CLOSED:;
INTERNET_STATUS_HANDLE_CREATED:;
INTERNET_STATUS_HANDLE_CLOSING:;
INTERNET_STATUS_REQUEST_COMPLETE:;
INTERNET_STATUS_REDIRECT:;
INTERNET_STATUS_INTERMEDIATE_RESPONSE:;
INTERNET_STATUS_STATE_CHANGE:;
end;
end;
|
Судя по той теме эту процедуру нужно вызывать после того как получен InetHandle,
InetHandle := InternetOpen(PChar('FTP'), 0, nil, nil, 0);
Смотрю на процедуру и пытаюсь разобраться, что к чему там нужно:
procedure InetCallback(HInternet: HINTERNET; dwContext, dwInternetStatus: DWORD;
lpStatusInfo: Pointer; dwStatusInfoLen: DWORD); stdcall;
HInternet, dwContext, dwStatusInfoLen - не используются в процедуре, не понимаю зачем они нужны?
dwInternetStatus - видимо мне нужно указывать 31 или INTERNET_STATUS_REQUEST_SENT.
lpStatusInfo - я так понял тут нужно передавать InetHandle.
В общем не могу разобраться  .
|