Помогите, найти ошибку

← →
Кирил (2003-09-09 20:57) [0]

Сижу под проксей с обязательной регистраций. Надо закачать файл из интернета, а вместо него закачивается ответ прокси о не прохождении идентификации.
edit3 - имя прокси
edit4 - порт прокси
edit5 - имя пользователя
edit6 - пароль пользователя

var hSession, hURL: HINTERNET;
strUsername,strPassword:PChar;
PIInfo : PInternetProxyInfo;
BufferLen: DWORD;
Buffer:array [1..1024] of Byte;
begin
hSession:=InternetOpen(PCHAR(Form1.Caption), INTERNET_OPEN_TYPE_PROXY, PChar(Edit3.Text), PChar(Edit4.Text), 0);
New (PIInfo) ;
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;
PIInfo^.lpszProxy := PChar(Edit3.Text+":"+Edit4.Text);
InternetSetOption(hSession, INTERNET_OPTION_PROXY, piinfo, SizeOf(PInternetProxyInfo));
Dispose(piinfo);
strUsername:=PChar(Edit5.Text);
InternetSetOption(hSession, INTERNET_OPTION_PROXY_USERNAME, @strUsername, length(strusername));
strPASSWORD:=PChar(Edit6.Text);
InternetSetOption(hSession, INTERNET_OPTION_PROXY_PASSWORD, @strPASSWORD, length(strPASSWORD));
hURL:= InternetOpenUrl(hSession, UrlFile, nil, 0, 0, 0);
Repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
until BufferLen=0;

end;

← →
Mixan © (2003-09-09 21:03) [1]

Дай адрес прокси для отладки проги

← →
Кирил (2003-09-09 21:07) [2]

proxy.salut.ru

← →
Mixan © (2003-09-09 21:32) [3]

Дай номер порта, имя и пароль

← →
Кирил (2003-09-09 21:40) [4]

А толку? все равно эта прокся изнутри в наружу

Помогите, найти ошибку Найти похожие ветки