Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
Кирил   (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]

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



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 1.253 c
3-40833
___Nikolay
2003-10-21 11:21
2003.11.13
Почему-то виснет....................................


1-41560
Layner
2003-10-27 15:06
2003.11.13
У кого есть ф-я сохранения-чтения StringGrid в txt файл


7-42197
iWorm
2003-08-27 03:54
2003.11.13
Клавиатура


1-41661
PrettyFly
2003-10-25 13:55
2003.11.13
Есть такая фишка...


14-41974
Ёжик
2003-10-17 22:26
2003.11.13
Кто сколько может выпить пива?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский