Прокси через TidMappedPortTCP

[Johnson]

Здравствуйте, уважаемые!
Хочу написать прокси (с функциями маршрутизатора), покурив инет нашел несложный пример на TidMappedPortTCP
Собсно наваял, но столкнулся с ошибками:

unit SDIMAIN;
interface
uses Windows, Classes, Graphics, Forms, Controls, Menus,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  ActnList, ToolWin, Mask, RzEdit, RzSpnEdt, IdBaseComponent, IdComponent,
  IdCustomTCPServer, IdMappedPortTCP,SysUtils;
type
  TSDIAppForm = class(TForm)
    IdMappedPortTCP: TIdMappedPortTCP;
    ProxyServer_Button: TButton;
    ProxyServer_MappedHost_Edit: TEdit;
    ProxyServer_DefaultPort_SpinEdit: TRzSpinEdit;
    ProxyServer_MappedPort_SpinEdit: TRzSpinEdit;
    procedure ProxyServer_ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SDIAppForm: TSDIAppForm;
implementation
{$R *.dfm}
procedure TSDIAppForm.ProxyServer_ButtonClick(Sender: TObject);
begin
if IdMappedPortTCP.Active then
      begin
        IdMappedPortTCP.Active:=false;
        ProxyServer_DefaultPort_SpinEdit.Enabled:=true;
        ProxyServer_MappedHost_Edit.Enabled:=true;
        ProxyServer_MappedPort_SpinEdit.Enabled:=true;
        ProxyServer_Button.Caption:='Старт';
      end
      else
      begin
        try
          IdMappedPortTCP.DefaultPort:=StrToInt(ProxyServer_DefaultPort_SpinEdit.Text);
          IdMappedPortTCP.MappedHost:=ProxyServer_MappedHost_Edit.Text;
          IdMappedPortTCP.MappedPort:=StrToInt(ProxyServer_MappedPort_SpinEdit.Text);
          IdMappedPortTCP.Active:=true;
          ProxyServer_Button.Caption:='Стоп';
        except
        end;
          ProxyServer_DefaultPort_SpinEdit.Enabled:=false;
          ProxyServer_MappedHost_Edit.Enabled:=false;
          ProxyServer_MappedPort_SpinEdit.Enabled:=false;
      end;
end;

end.

Делаю так: настраиваю программку на сторонний прокси (122.144.11.169:8080)
ИЕ настраиваю на 127.0.0.1:8080
Пытаюсь открыть страницу, дельфя прерывает процесс с такой ошибкой:

First chance exception at $7C812AFB. Exception class EIdNotASocket with message 'Socket Error # 10038
Socket operation on non-socket.'. Process SDIAPP.exe (2016)

На сокетах писать ой как нехочется, желательно на Инди... Подскажите, в чем может быть ошибка?

PS: извиняюсь, ступил... надо было в другом разделе создать...

[Квэнди]

Socket operation on non-socket. Эта ошибка частенько возникает при слишком низких тайм-аутах или слишком маленьких размеров пакетов.

[Johnson]

спасибо, сейчас попробую поковырять...
а не ткнете носом в линк с нормальными примерами работы с этим компонентом?

[raxp]

...вот делал когда-то прокси-сервис на основе TIdMappedPortTCP для людей у которых инет на работе отсутствует, но которые могут "договориться" со знакомым у которых он есть в локалке... сервис устанавливается у знакомого, а браузер человека, у которого инета нет, настраивается на ip и порт этого знакомого и... вуа-ля (см. вложение - переименуй в dpr)

инсталляция сервиса - i
деинсталляция сервиса - u

зы: при использовании TIdMappedPortTCP и желании шифрации и учета трафика, поковырять генофонд компонента все-же придется, т.к. в явном виде данные возможности в нем не присутствуют.

[Johnson]

raxp, спасибо большое, сейчас буду разбираться)

Возник кстати ещё один вопрос по этому компоненту...
Нашел пример работы с ним, там есть такая вот процедура:

procedure TForm1.MAPExecute(AThread: TIdMappedPortThread); 
begin // Входящие пакеты
  fs.Write(#13#10'>>>>'#13#10,8); // пишем в лог маркер входящих пакетов
  fs.Write(AThread.NetData[1], Length(AThread.NetData)); // пишем в лог данные
end;

Всё вроде бы отлично, но проблема в том, что у меня видимо версия Инди другая, у меня нет метода(?) .NetData в компоненте... да и объект совсем другой:

procedure TSDIAppForm.IdMPTCPConnect(AContext: TIdContext);
begin
memo1.Lines.Add(AContext.Binding.PeerIP);
end;

пришлось его в Юзес добавлять... я что-то не то делаю, или дело в компоненте?

[raxp]

да, обновите версию indy... в старом такого свойства нет.

[Johnson]

а разве с бдс2007 не indy 10 стоит?..

[raxp]

...не в курсе, у меня delphi6.

[Johnson]

Ну в общем попытался инсталить инди10... матюгается, что dclIndyCore100.bpl уже имеется запущеный... в папке бинарников лежит, видимо инди10 уже установлена =\ как отменить установку? просто файлы поудалять?

[raxp]

да, при закрытом delphi в папке project/bpl поудалять все файлы с этими именами.. также можно в инсталляторе из самой delphi - components/ components packages сделать remove bpl нужного...