Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2010, 20:33   #1
Astron
Пользователь
 
Регистрация: 05.03.2010
Сообщений: 48
По умолчанию Настройка прокси

Ниже представлен код авторегистатора для 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 вне форума Ответить с цитированием
Старый 15.03.2010, 20:35   #2
Astron
Пользователь
 
Регистрация: 05.03.2010
Сообщений: 48
По умолчанию

Я пытался настраивать создав процедуру GetProxy и запуская её когда необходимо поменять IP но начались частые асинхроные ошибки к тому же проблемы с нерабочими проксями...
Astron вне форума Ответить с цитированием
Старый 16.03.2010, 13:43   #3
KREGI
Форумчанин
 
Аватар для KREGI
 
Регистрация: 29.11.2008
Сообщений: 333
По умолчанию

Код:
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;
я так делал...
Если помог - Весы слева
KREGI вне форума Ответить с цитированием
Старый 16.03.2010, 15:29   #4
Astron
Пользователь
 
Регистрация: 05.03.2010
Сообщений: 48
По умолчанию

У меня приложение написано на более низком уровнее.... вы предлогаете использовать инди, у меня же написано на сокетах)
Astron вне форума Ответить с цитированием
Старый 17.03.2010, 00:06   #5
KREGI
Форумчанин
 
Аватар для KREGI
 
Регистрация: 29.11.2008
Сообщений: 333
По умолчанию

Astron, нашел в интернете, особо не разбирался что там написано... спать охота... =)
Если помог - Весы слева
KREGI вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Настройка wi-fi. stenl1 Компьютерное железо 5 11.11.2009 17:26
НАСТРОЙКА Superlotles Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 8 23.09.2009 22:31
Прокси FROSTMORN Безопасность, Шифрование 2 20.11.2008 15:17
Прокси russian-stalker Общие вопросы Delphi 1 07.09.2008 19:36
Прокси Simply-Art Свободное общение 4 19.05.2007 13:25