unit1.pas

潜入者与源程序 潜入者与源程序

unit Unit1;

interface

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

type
  TMainForm = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ClientSocket1: TClientSocket;
    Edit2: TEdit;
    IdHTTP1: TIdHTTP;
    Timer1: TTimer;
    Edit4: TEdit;
    Edit3: TEdit;
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
  private
    procedure Send_Message;//发送信息
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Send_Message;
begin
    ClientSocket1.Socket.SendText(Edit1.Text);//发送信息
    Edit1.text:='';
end;

procedure TMainForm.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
    s:string;
begin
    s:=ClientSocket1.Socket.ReceiveText;//接收信息
    Memo1.Lines.Add('服务器端返回的信息为:'+s);
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
    if Button2.Caption='登录' then
    begin
        Button2.Caption:='断开';
        ClientSocket1.Address:=Edit3.Text;
        clientsocket1.Port:=strtoint(Edit4.text);
        ClientSocket1.Active:= False;
        ClientSocket1.Active:= true;
        Button1.Enabled:=True;
        Edit1.Enabled:=True;
    end else
    begin
        Button2.Caption:='登录';
        ClientSocket1.Active:= false;
        Button1.Enabled:=False;
        Edit1.Enabled:=False;
    end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
    Send_Message;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if ClientSocket1.Active then
        ClientSocket1.Active:= false;
end;

procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        key:=#0;
        Send_Message;
    end;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  s: String;
  p: Integer;
begin
     s :=IdHTTP1.Get('http://yumato.3322.net/ip.txt');
     p:=pos('m',s) + Length(':');
     s:=copy(s,P,30);
     p:=pos(':',s);
     if p > 0 then
     Edit3.Text:=Copy(s,1,P -1);
begin
     p:=pos(':',s) + Length('e');
     s:=copy(s,P,30);
     p:=pos('e',s);
     if p > 0 then
     Edit4.Text:=Copy(s,1,P -1);
end;
end;

end.