Кто может написать?

[alex0097]

Нужн исходник программы рабочей. Который работае с прокси.
Тоесть:
вводишь ip и port
и подклчюаешься к прокси. ( к любому прокси серверу).

Кто напишет выложите сюда вмести со своим номером кошельком заплачу $

[kangreon]

http://programmersforum.ru/showthread.php?t=105624

[alex0097]

мне нужн исходник...

[kangreon]

Разве там нету исходника?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ip, port, Username, Password : string;
  IdHTTP1: TIdHTTP;
begin
  IdHTTP1 := TIdHTTP.Create;
  ip := '128.10.19.52';
  port := '3128';
  Username :='';
  Password :='';
  idhttp1.ProxyParams.ProxyServer:=ip;
  idhttp1.ProxyParams.ProxyPort:=strtoint(port);
  IdHTTP1.ProxyParams.ProxyUsername := Username;
  IdHTTP1.ProxyParams.ProxyPassword := Password;
  idhttp1.ProxyParams.BasicAuthentication:=true;
  IdHTTP1.Get('http://www.myip.ru/get_ip.php?loc=');
end;

end.

[alex0097]

. Исходник не работает в том то и прикол. ладно поступим так. кто может закомпилировать его. и вместе с исходняком прислать

[Stilet]

alex0097, что еще программа должна делать и сколько ты готов заплатить?

[alex0097]

подключатся к сокетам 4,5 и к http

оплата договорная

[Stilet]

А кроме подключения?

[alex0097]

Больше ни чего.
Что бы подключался.
И при кнопке Восстановить IP. он востанавливал свой IP какой и былбез прокси

[codekick]

Пиши в асю, сделаю