Допустим http заголовок отсылается через сокет а в сокете задается и и порт хттп прокси.Как в этом случае обрабатывать исключительные ситуации возникающие с проксей? к примеру если прокси берутся из списка и какая то прокся в этом списке уже сдохла,или это просто не прокся, как это отловить? Или я вот недавно пытался получать содержимое хтмл страницы через прокси ,только получалось в 3 из 5 раз.Иногда бывало такое запрос отослался recv вроде как что принимает но в буффере пусто Почему так случается и как это можно предупредить? И где можно посмотреть ошибки которые может возвращять прокся?
На то, сдохла прокся или нет, можешь тупо проверку соединения делать. Чтобы узнать, что это проксик попробуй отсылать http запросы с различными методами для проверки типа OPTIONS, вроде должно помочь
Вообще перед юзаньем прокси попробуй пинговать её, чтобы не терять много времяни на коннект(код пинга - простой очень). Если пингуется то юзаешь её пока нужно. если вдруг connect не прошел то пингуй снова. если не пингуется то удаляй из списка. На счет прокси или нет - Удобно очень проверять по контрольной странице. К примеру твой какойнить твой скрипт в инете котоырй будет говорить ОК. Ну или яндекс или подобные вещи. Главное чтобы ты точно знал что смог подключиться. На счет recv принимает но буфер пуской. Может ты не правильно загружаешь данные? Или может возникнуть проблема с проверкой буфера если там попадется символ \0 НА счет кода ответа HTTP прокси то первое что шлет он это будет типа HTTP/1.0 404 Not Found Сам код можешь получить выбрав среднее слово. типа s:='HTTP/1.0 404 Not Found....'; code:=inttostr(copy(s,pos(' ',s)+1,3)); Коды ответов сервера ищи в RFC2616 и RFC3143
нет. стандартными функциями. В более развернутом виде это выглядит так: Нижеследующий код с легкостью можно переписать в несколько десятков строк, без дополнительного использования левых модулей. Code: unit raw_ping; interface uses Windows, SysUtils, Classes; // Типы данных для настройки пингования type TSunB = packed record s_b1, s_b2, s_b3, s_b4: byte; end; TSunW = packed record s_w1, s_w2: word; end; PIPAddr = ^TIPAddr; TIPAddr = record case integer of 0: (S_un_b: TSunB); 1: (S_un_w: TSunW); 2: (S_addr: longword); end; IPAddr = TIPAddr; type ip_option_information = record Ttl : byte; Tos : byte; Flags : byte; OptionsSize : byte; OptionsData : pointer; end; type ICMP_ECHO_REPLY = record Address : IPAddr; Status : ULONG; RoundTripTime : ULONG; DataSize : Word; Reserved : Word; Data : Pointer; Options : IP_OPTION_INFORMATION; PingBuf: array[0..31] of char; end; function IcmpCreateFile : THandle; stdcall; external 'icmp.dll'; function IcmpCloseHandle (icmpHandle : THandle) : boolean; stdcall; external 'icmp.dll' function IcmpSendEcho (IcmpHandle : THandle; DestinationAddress : IPAddr; RequestData : Pointer; RequestSize : Smallint; RequestOptions : pointer; ReplyBuffer : Pointer; ReplySize : DWORD; Timeout : DWORD) : DWORD; stdcall; external 'icmp.dll'; function Ping(InetAddress : string) : boolean;// Пингует заданный адрес procedure TranslateStringToTInAddr(AIP: string; var AInAddr);// Конвертирование адреса. implementation uses WinSock; procedure TranslateStringToTInAddr(AIP: string; var AInAddr);// Конвертирование адреса var phe:PHostEnt; pac:PChar; GInitData:TWSAData;// для работы с библиотекой сокетов begin WSAStartup($101, GInitData);// Инит библиотеки сокетов try phe:=GetHostByName(PChar(AIP));// получить адресс сервера по имени if Assigned(phe) then begin pac:=phe^.h_addr_list^; if Assigned(pac) then // Конвертирование begin with TIPAddr(AInAddr).S_un_b do begin s_b1 := Byte(pac[0]); s_b2 := Byte(pac[1]); s_b3 := Byte(pac[2]); s_b4 := Byte(pac[3]); end; end else begin raise Exception.Create('Error getting IP from HostName');// если ошибка end; end else begin raise Exception.Create('Error getting HostName'); end; except FillChar(AInAddr, SizeOf(AInAddr), #0); end; WSACleanup; end; function Ping(InetAddress : string) : boolean;// пингование var Handle : THandle;// дискриптор InAddr : IPAddr;// Адресс для пингования DW:DWORD;//результат пингования Reply : ICMP_ECHO_REPLY;// Буфер для получения ответа ответа PingBuf: array[0..31] of char;// Буфер для отправки begin result := false;// установка что сервер не пингуется Handle := IcmpCreateFile;// Создание ICMP if Handle = INVALID_HANDLE_VALUE then exit; // Если ошибка, то выход TranslateStringToTInAddr(InetAddress, InAddr);// Конвертирование адреса Reply.Data := @pingBuf;// Естановка адреса буфера Reply.DataSize := 32;// Установка размера бофера DW:=IcmpSendEcho(Handle, InAddr, @PingBuf, 32, nil, @reply, SizeOf(icmp_echo_reply)+32 , 3000);// Полыска эхо запроса if DW <> 0 then result:=true;// Если !=0 то значит сервак пингуется. Установки пингуеости exit;// выход // IcmpCloseHandle(Handle); // только для win 9x end; end.
функцию резолва (TranslateStringToTInAddr) можеш найти где угодно на Сях. А функцию Ping перевести на Си не составит труда. Она и так маленькая и там не используется некаких дельфийских прибамбасов