[ProDaNTe]

Сразу говорю ни чем кроме Wininet пользоваться не собираюсь, первое как соединиться через прокси, делал так не работает

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

if Form5.sCheckBox18.Checked=true then begin  hInet := InternetOpen('Opera/9.80 (Windows NT 6.1; Edition Next) Presto/2.12.378 Version/12.50', { CERN_PROXY_INTERNET_ACCESS,    nil,    nil,    0);}   INTERNET_OPEN_TYPE_PROXY,    PChar(Form5.sEdit8.Text+':'+Form5.sEdit9.Text),    nil,    0);     //    InternetOpen('Mozilla/5.0', INTERNET_OPEN_TYPE_PROXY, 'xxx.xxx.xxx.xxx:xxx', nil,0) if Form5.sCheckBox19.Checked=false then begin     InternetConnect (hInet,                          PChar(Form5.sEdit8.Text),                          StrToInt64(Form5.sEdit9.Text),                          nil,                          nil,                          0,                          0,                          0); end else begin        InternetConnect (hInet,                          PChar(Form5.sEdit8.Text),                          StrToInt64(Form5.sEdit9.Text),                          PChar(Form5.sEdit10.Text),                           PChar(Form5.sEdit11.Text),                          0,                          0,                          0); end;

А главное как сделать "URL автоматической настройки сервиса прокси"?
Пожалуйста помогите тупню...

[NumLock]

рабочий пример:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

var   FSession: HINTERNET;   FConnect: HINTERNET;   FRequest: HINTERNET;     szAcceptTypes: array [0..1] of PChar;     BufferLength: DWORD;   Data: DWORD;   Indx: DWORD;     FileStream: TFileStream;     Buffer: PChar;   NumberOfBytesAvailable: DWORD;   NumberOfBytesRead: DWORD;   begin //  FSession:=InternetOpen('Mozilla/4.0', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);   FSession:=InternetOpen('Mozilla/4.0', INTERNET_OPEN_TYPE_PROXY, '115.25.216.6:80', nil, 0);   if FSession=nil then RaiseLastOSError;     FConnect:=InternetConnect(FSession, '2ip.ru', INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);   if FConnect=nil then RaiseLastOSError;     szAcceptTypes[0]:='text/*';   szAcceptTypes[1]:=nil;   FRequest:=HttpOpenRequest(FConnect, 'GET', '/', 'HTTP/1.1', '', @szAcceptTypes, 0, 0);   if FRequest=nil then RaiseLastOSError;     if not HttpSendRequest(FRequest, nil, 0, nil, 0) then RaiseLastOSError;     FileStream:=TFileStream.Create('2ip.htm', fmCreate);   try     while True do     begin       if not InternetQueryDataAvailable(FRequest, NumberOfBytesAvailable, 0, 0) then RaiseLastOSError;       Buffer:=GetMemory(NumberOfBytesAvailable);       try         if not InternetReadFile(FRequest, Buffer, NumberOfBytesAvailable, NumberOfBytesRead) then RaiseLastOSError;         if NumberOfBytesRead=0 then Break;         FileStream.Write(Buffer^, NumberOfBytesRead);       finally         FreeMemory(Buffer);       end;     end;   finally     FileStream.Free;   end;     BufferLength:=SizeOf(Data);   Indx:=0;   if not HttpQueryInfo(FRequest, HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE, @Data, BufferLength, Indx) then RaiseLastOSError;   ShowMessage(IntToStr(Data));       InternetCloseHandle(FRequest);   InternetCloseHandle(FConnect);   InternetCloseHandle(FSession); end;

косяки доработать самому)

[ProDaNTe]

Спасибо большое, огроменное, а с файлами pac не знаешь как работать они просто каждый раз при новом соединении скачиваются и от туда парсится адрес прокси? Или как вообще работает автоматическая настройка прокси с урл?


Из твоего примера 115.25.216.6:80 - это прокси как я понял, а 2ip.ru - что или 115.25.216.6 это и есть 115.25.216.6

Или

Код:

1 2 3 4

соединение с прокси FSession:=InternetOpen('Mozilla/4.0', INTERNET_OPEN_TYPE_PROXY, '115.25.216.6:80', nil, 0); - а тут соединение с сайтрм с которого я хочу получить данные? FConnect:=InternetConnect(FSession, '2ip.ru', INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0); -

[NumLock]

115.25.216.6:80 это ip : port одного из бесплатных китайских прокси, взятых первым из списка http://proxy-besplatno.com/
2ip.ru это сайт куда делаем запрос. используем его, чтобы убедиться что наш реальный ip скрыт и что мы теперь китайцы.

про

а с файлами pac не знаешь как работать они просто каждый раз при новом соединении скачиваются и от туда парсится адрес прокси? Или как вообще работает автоматическая настройка прокси с урл?

не совсем понял.

[ProDaNTe]

115.25.216.6:80 это ip : port одного из бесплатных китайских прокси, взятых первым из списка http://proxy-besplatno.com/
2ip.ru это сайт куда делаем запрос. используем его, чтобы убедиться что наш реальный ip скрыт и что мы теперь китайцы.

То есть как мне сделать что бы потом только использовать FConnect, не могу понять суть?

Ну есть такая настройка в браузерах авто настройка прокси с помощью урл, там вставляется ссылка на pac файл, а оттуда уже берутся адрес и порт прокси!

[ProDaNTe]

115.25.216.6:80 это ip : port одного из бесплатных китайских прокси, взятых первым из списка http://proxy-besplatno.com/
2ip.ru это сайт куда делаем запрос. используем его, чтобы убедиться что наш реальный ip скрыт и что мы теперь китайцы.

То есть как мне сделать что бы потом только использовать FConnect, не могу понять суть?

Ну есть такая настройка в браузерах авто настройка прокси с помощью урл, там вставляется ссылка на pac файл, а оттуда уже берутся адрес и порт прокси!
Спасибо тебе огромное NumLock, разобрался как система работает!