Senin, 15 Juni 2015

Source Code Delphi 7 Proxy Server With IdHTTP 2015

Berikut adalah Informasi seputar Source Code Delphi 7 Proxy Server With IdHTTP 2015 dan sebelumnya juga mimin sudah share seputar Contoh Sederhana Code Delphi IdTcp Server Client 2015 dan berikut adalah contoh source code dasar untuk proxy server pada borland delphi 7 yang bisa anda pelajari da tentunya bisa anda kembangkan lagi dan bisa anda satukan dengan keperluan yang lainnya silahkan disimak dan untuk contoh yang jadinya silahkan bisa anda download pada akhir postingan.

Source Code Delphi 7 Proxy Server
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit5: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure IdHTTP1Connected(Sender: TObject);
    procedure IdHTTP1Disconnected(Sender: TObject);
    procedure IdHTTP1ProxyAuthorization(Sender: TObject;
      Authentication: TIdAuthentication; var Handled: Boolean);
    procedure Button2Click(Sender: TObject);
  private

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add('Coneccted');
  IdHTTP1.ProxyParams.ProxyServer := edit1.text;
  IdHTTP1.ProxyParams.ProxyPort := StrToInt (edit2.text);
  IdHTTP1.Get(edit5.text)
end;

procedure TForm1.IdHTTP1Connected(Sender: TObject);
begin
memo1.Lines.Add('Disconnected');
button1.Enabled := True;
button2.Enabled := False;
end;

procedure TForm1.IdHTTP1Disconnected(Sender: TObject);
begin
memo1.Lines.Add('Coneccted');
button1.Enabled := False;
button2.Enabled := True;
end;

procedure TForm1.IdHTTP1ProxyAuthorization(Sender: TObject;
  Authentication: TIdAuthentication; var Handled: Boolean);
begin
idhttp1.ProxyParams.ProxyUsername := edit4.Text;
idhttp1.ProxyParams.ProxyPassword := edit5.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Add('Disconnected');
button1.Enabled := True;
button2.Enabled := False;
end;

end.

Untuk Contoh source code jadinya bisa anda download secara Gratis DISINI dan itu saja info seputar Source Code Delphi 7 Proxy Server With IdHTTP 2015 semoga bermanfaat dan terima kasih.

Baca Juga: Cara Membuat Inject Internet Gratis Telkomsel 3 Aon Indosat XL Axis 2015