VPF::Использование прокси в WinSock - Форум программистов

shinobi2222

Дата 14.1.2009, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.1.2009

Репутация: нет
Всего: нет

Код

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils, WinSock;

var
  WSA: TWSAData;
  Sock: TSocket;
  Server: TSockAddr;

function LookupName(host: string): TInAddr;
var
  HostEnt: PHostEnt;
  InAddr: TInAddr;
begin
  HostEnt := gethostbyname(PChar(host));
  FillChar(InAddr, SizeOf(InAddr), 0);
  if HostEnt <> nil then
    begin
      with InAddr, HostEnt^ do
        begin
          S_un_b.s_b1 := h_addr^[0];
          S_un_b.s_b2 := h_addr^[1];
          S_un_b.s_b3 := h_addr^[2];
          S_un_b.s_b4 := h_addr^[3];
        end;
    end;
  Result := InAddr;
end;

procedure SendString(s: string);
var
  Buffer: array[0..255] of char;
begin
  StrPCopy(Buffer, s);
  Send(Sock, Buffer, length(s), 0);
end;

var
  Buffer: array[0..255] of char;
  Bufflen, Recved: SmallInt;

begin
  WSAStartup(MAKEWORD(1,0), WSA);
  Sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  ZeroMemory(@Server,SizeOf(Server));
  Server.sin_family:=AF_INET;
  Server.sin_port:=htons(80);
  Server.sin_addr:=LookupName('www.lol.ru');
  if Connect(Sock, Server, SizeOf(Server)) = 0 then
    begin
      SendString('GET / HTTP/1.1'#13#10);
      SendString('Host: www.lol.ru'#13#10);
      SendString('Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5'#13#10);
      SendString('Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3'#13#10);
      SendString('Accept-Encoding: gzip,deflate'#13#10);
      SendString('Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'#13#10);
      SendString(#13#10);
    end;
  repeat
    Bufflen := SizeOf(Buffer);
    Recved := Recv(Sock, Buffer, Bufflen, 0);
    write(Buffer);
  until Recved = 0;
  CloseSocket(Sock);
  WSACleanup;
  readln;
end.

Вот код GET запроса на сайт через WinSock, объясните пожалуйста как в данном коде сделать поддержку прокси???

Virtuals

Дата 15.1.2009, 08:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 2
Всего: 11

Код



Server.sin_port:=htons(портпрокси);
  Server.sin_addr:=LookupName('адреспрокси');
  if Connect(Sock, Server, SizeOf(Server)) = 0 then
    begin
      SendString('connect www.lol.ru:80'#13#10);
      SendString(#13#10);
дождатся соединения

      SendString('GET / HTTP/1.1'#13#10);
      SendString('Host: www.lol.ru'#13#10);
      SendString('Accept: text.............

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »