Работа с PROXY

[odd]

Короче передо мной стоит задача перейти на заданный URL через проксю.
Кто нибудь такое уже делал? Объясните мне как такое делается.
А то я с сетью мало работал. Мало опыта.

[Piligrim]

с прокси работают просто, соединяешься с ним шлешь запрос вида

GET http://forum.boolean.name HTTP/1.1\r\n 


а он тебе возвращает обычный ответ

[odd]

Сообщение от pilgrim

с прокси работают просто, соединяешься с ним шлешь запрос вида

GET http://forum.boolean.name HTTP/1.1\r\n 


а он тебе возвращает обычный ответ

Спасибо. Я попробую.

[Phantom]

А точнее так (написал в две строки для наглядности):

GET /index.php HTTP/1.1\r\n
Host: forum.boolean.name\r\n

P.S: Одно время много грабил (сайты в смысле, гг), есть некоторый навык =)

[odd]

А можно небольшой исходничек? Что-то не получается...

[Phantom]

Только если на php =)
Может прокси дохлая?

[odd]

Ну всё таки. Выложите примерчик на MP. Пусть и с дохлой проксей.

[Phantom]

Так должно работать. Я так коннектился, но не через прокси. А сейчас компилируется, но не идёт (тот же самый код не работает). Я как раз недавно скачал с твоего сайта архивом либы и распаковал с заменой в папку для либ. У тебя какая-то другая либа по ходу. Не та, с которой я раньше делал. Раньше работало, а сейчас эмулятор при запуске вылетает.
socket://127.0.0.1:8080 - это на адрес прокси поменяй.

program SocketConnect;
////////////////////////////////////////////
uses socket; 
////////////////////////////////////////////
var
  i,l           : integer;
  s             : string;
////////////////////////////////////////////
function fgets : string;
     begin
      s:='';
      i:=0;
      while (socket.available=0) and (i<10) do
       begin
      delay(100);
      i:=i+1;
       end;
      while socket.available<>0 do
       begin
      s:=s+chr(socket.read);
       end;
      fgets:=s;
     end;
////////////////////////////////////////////
procedure fputs(s:string);
     begin
      l:=length(s);
      i:=0;
      while (i<l) and (socket.write(ord(getChar(s,i)))=0) do i:=i+1;
     end;
////////////////////////////////////////////
begin
////////////////////////////////////////////
  if socket.open('socket://127.0.0.1:8080')=0 then
   begin

  s:='GET / HTTP/1.1'                                     +chr(13)+chr(10)+
     'Host: boolean.name'                                 +chr(13)+chr(10)+
     'Content-Type: application/x-www-form-urlencoded'    +chr(13)+chr(10)+
     'Content-length: 0'                                  +chr(13)+chr(10)+
     'Connection: Close'                                  +chr(13)+chr(10)+
     'User-Agent: Phantom''s User Agent'                  +chr(13)+chr(10)+
     'Referer: http://microsoft.com/'                     +chr(13)+chr(10)+chr(13)+chr(10);

  fputs(s);
    drawText(fgets,0,0);
  socket.close;

     end else drawText('No Socket!!!',5,5);
  repaint;
  delay(3000);
////////////////////////////////////////////
end. 


[odd]

Сообщение от Phantom_wc

Так должно работать. Я так коннектился, но не через прокси. А сейчас компилируется, но не идёт (тот же самый код не работает). Я как раз недавно скачал с твоего сайта архивом либы и распаковал с заменой в папку для либ. У тебя какая-то другая либа по ходу. Не та, с которой я раньше делал. Раньше работало, а сейчас эмулятор при запуске вылетает.
socket://127.0.0.1:8080 - это на адрес прокси поменяй.

Я исправил данный глюк. Просто скачай мой сборник снова. Там лежит уже исправленная версия библиотеки Lib_socket.
PS: Огромное спасибо за помощь по Socket'ам!