VPF::передача данных через ftp - Форум программистов

pavelv

Дата 5.7.2006, 05:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Я передаю данные с локального диска по модему на удаленный 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.

В общем не могу разобраться smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »