unit1.~pas

罗小平<<delphi精要>>一书源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Get_ComputerName: String;
var
  iSize: LongWord;
  ComputerName: PChar;
begin
  iSize := MAX_COMPUTERNAME_LENGTH;
  GetMem(ComputerName, iSize);
  GetComputerName(ComputerName, iSize);
  Result := ComputerName;
  FreeMem(ComputerName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ServerSocket1 do
  begin
    Port := 5643;
    Open; //或者Active := True;
  end;
  with ClientSocket1 do
  begin
    Port := 5643;
    Host := Get_ComputerName;
    Open; //或者Active := True;
  end;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Socket.SendText('ClientSocket1你好！')
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage(Socket.ReceiveText);
end;

end.