unit1.pas

来自「demonstrates how to use Delphi with Win」· PAS 代码 · 共 96 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    cs: TClientSocket;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure csConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure csConnecting(Sender: TObject; Socket: TCustomWinSocket);
    procedure csDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure csError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure csLookup(Sender: TObject; Socket: TCustomWinSocket);
    procedure csRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
cs.Active := true;
end;

procedure TForm1.csConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.lines.add('Status: Connected');
end;

procedure TForm1.csConnecting(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.lines.add('Status: Connecting');
end;

procedure TForm1.csDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.lines.add('Status: Disconnected');
end;

procedure TForm1.csError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
memo1.lines.add('Status: Error: '+inttostr(errorcode));
end;

procedure TForm1.csLookup(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.lines.add('Status: Lookup');
end;

procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
var s,t:string;
i,j:integer;
partbeg,partend:integer;
params:array[1..4] of string;
begin
s := socket.ReceiveText;
memo1.lines.add('Recieved: '+s);

partbeg := 0;
partend := 0;

t:=s;
  for i := 1 to 3 do begin
    partend := Pos(' ', t); 
    params[i] := Copy(t, 1, partend - 1); 
    Delete(t, 1, partend); 
  end; 
  params[4] := t;
  delete(params[4],length(params[4]),1);

label2.Caption := params[4]+'->'+params[3];



end;

end.