Настройка прокси

[Astron]

Ниже представлен код авторегистатора для garena.com как можно настроить этот код на прокси(сокс,хттп без разницы) без прокси всё отлично работает, заранее спасибо. Ну если у кого есть какие то замечание высказывайте Я самоучка как правильно делать незнаю) делаю как могу)))

unit GM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Registry, ScktComp;


type
  TForm1 = class(TForm)
 ...описание компонентов...
  myT = class(tthread)
private
procedure Gold;
protected
procedure execute; override;
end;

var
  Form1: TForm1;
  MyT1: myT;
  SC1,SC2,Flagconnect,Flag,fReg,online1,online2:byte;
  Token:string;
  bufer,bufer2:widestring;


implementation

{$R *.dfm}
procedure Getproxy;
begin
Form1.Memo1.Lines.Add('Âêë ïðîêñè');
end;

procedure Potoc;
begin
myT1:= myT.create(true);
myT1.freeonterminate := true;
myT1.priority := tpLowest;
myT1.resume;
end;

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Self.Close;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Label1.Font.Color:=clRed;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=clAqua;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Reg : TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.CreateKey('Profile');
Reg.OpenKey('Profile',false);
Reg.WriteString('UID',Edit1.Text);
Reg.WriteString('Login',Edit2.Text);
Reg.WriteString('Password',Edit3.Text);
Reg.CloseKey;
Reg.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
reg:TRegistry;
ini:Tinifile;
Count,i:integer;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Profile',false);
Edit1.Text:=Reg.ReadString('UID');
Edit2.Text:=Reg.ReadString('Login');
Edit3.text:=reg.ReadString('Password');
Reg.CloseKey;
Flagconnect:=1;
online1:=0;
freg:=0;
online2:=0;
If FileExists(extractfilepath(paramstr(0))+'Proxy.txt') then begin
ListBox1.Items.LoadFromFile(extractfilepath(paramstr(0))+'Proxy.txt');end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Edit5.text:=inttostr(Trackbar1.Position+1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
IF FlagConnect=1 then begin
Form1.ClientSocket1.Active:=False;
Form1.ClientSocket1.Host:='sng.garena.com';
Form1.ClientSocket1.Port:=80;
Form1.ClientSocket1.Active:=true;

ProgressBar1.Max:=StrToInt(Edit5.text);

Form1.ClientSocket2.Active:=False;
Form1.ClientSocket2.Host:='174.36.58.139';
Form1.ClientSocket2.Port:=80;
Form1.ClientSocket2.Active:=True;
FlagConnect:=2;
end;
end;


procedure myT.Gold;
var
buf,buf1,buf2,buf3,reg_st:widestring;
n,j:integer;
user,mail:string;
begin

If (SC1=1) and (SC2=1) then begin


If Flag=0 then begin
{Обработка данных}
end;



If Flag=2 then begin
{Обработка данных}
end;

If Flag=4 then begin
{Обработка данных}
end;

If Flag=6 then begin
{Обработка данных}
end;

If Flag=8 then begin
{Обработка данных}
end;

end;


procedure myT.execute;
begin
Gold;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
If online1=0 then begin
Shape3.Brush.Color:=clgreen;
SC1:=1;
potoc;
online1:=1
end;
end;

procedure TForm1.ClientSocket2Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
If online2=0 then begin
SC2:=1;
potoc;
Shape4.Brush.Color:=clgreen;
online2:=1
end;
end;



procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  s:widestring;
  Error:byte;
begin
S:=S+ClientSocket1.Socket.ReceiveText;
Memo2.text:=Memo2.text+S;

If Flag=1 then begin
{Обработка данных}
end;

IF Flag=3 then begin
{Обработка данных}
end;

If Flag=5 then begin
end;
{Обработка данных}
end;


procedure TForm1.ClientSocket2Read(Sender: TObject;
  Socket: TCustomWinSocket);
 var
  S:WideString;
begin
S:=S+ClientSocket2.Socket.ReceiveText;
Memo2.text:=Memo2.text+s;

If Flag=7 then begin
{Обработка данных}
end;

end;


procedure TForm1.Button11Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit6.Text+':'+Edit7.text);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin

listBox1.Items.Delete(listBox1.ItemIndex);
end;

procedure TForm1.Button8Click(Sender: TObject);
var
i: integer;

begin
ListBox1.Items.SaveToFile(extractfilepath(paramstr(0))+'Proxy.txt');
end;

end.

[Astron]

Я пытался настраивать создав процедуру GetProxy и запуская её когда необходимо поменять IP но начались частые асинхроные ошибки к тому же проблемы с нерабочими проксями...

[KREGI]

procedure TForm1.Button2Click(Sender: TObject);
begin
try
 IdHTTP1.ProxyParams.ProxyUsername:=Edit2.Text;
 IdHTTP1.ProxyParams.ProxyPassword:=Edit3.Text;
 IdHttp1.ProxyParams.ProxyPort:=StrToInt(Edit4.Text);
 IdHTTP1.ProxyParams.ProxyServer:=Edit5.Text;
 IdHTTP1.Connect;
 if IdHTTP1.Connected then
 Button2.Enabled:=False
 except on EConvertError do
 ShowMessage('Заполните необходимые поля');
end;
end;

я так делал...

[Astron]

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

[KREGI]

Astron, нашел в интернете, особо не разбирался что там написано... спать охота... =)