| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите, найти ошибку
Кирил © (2003-09-09 20:57:00)
Сижу под проксей с обязательной регистраций. Надо закачать файл из интернета, а вместо него закачивается ответ прокси о не прохождении идентификации.
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;
Кирил (2003-09-09 21:40:00) [1]
А толку? все равно эта прокся изнутри в наружу
Mixan (2003-09-09 21:32:00) [2]
Дай номер порта, имя и пароль
Кирил (2003-09-09 21:07:00) [3]
proxy.salut.ru
Mixan (2003-09-09 21:03:00) [4]
Дай адрес прокси для отладки проги
| |
