Главная страница
    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
Время: 0.038 c
1-41204
Agent[007]
2003-11-01 22:07
2003.11.13
Case ... of <a>:<b>; end;


1-41274
Reddy
2003-10-31 14:01
2003.11.13
Запрет на запуск дубликата MDI-формы


1-41322
kex86
2003-10-31 08:23
2003.11.13
Как сообщить всем приложениям об изменении списка запущенных проц


14-42053
Sergo
2003-10-24 09:39
2003.11.13
Теория алгоритмов


3-40982
Виталий Панасенко
2003-10-16 18:22
2003.11.13
LocalSQL





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский