cproxy.pas

delphi深度探索第二版随书光盘所附内容

{-----------------------------------------------------------------------------
 Unit Name: CProxy
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   演示如何代理模式应用
 History:
            2003-6-6 创建本单元
-----------------------------------------------------------------------------}


unit CProxy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP,
  StdCtrls;

type
  TForm1 = class(TForm)
    idmpt1: TIdMappedPortTCP;
    mmoRequest: TMemo;
    lbl1: TLabel;
    mmoResponse: TMemo;
    lbl2: TLabel;
    procedure idmpt1Execute(AThread: TIdMappedPortThread);
    procedure FormCreate(Sender: TObject);
    procedure idmpt1OutboundData(AThread: TIdMappedPortThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.idmpt1Execute(AThread: TIdMappedPortThread);
begin
  //
  mmoRequest.Lines.Add(AThread.NetData);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  mmoRequest.Lines.Clear;
  mmoResponse.Lines.Clear;
end;

procedure TForm1.idmpt1OutboundData(AThread: TIdMappedPortThread);
begin
  //
  mmoResponse.Lines.Add(AThread.NetData);
end;

end.