u_client.pas

delphi 完全原代码,可以在d7 and windows xp下编译通过

unit U_Client;

interface

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

type
  TF_Client = class(TForm)
    Panel1: TPanel;
    ClientSocket1: TClientSocket;
    Button1: TButton;
    Memo2: TMemo;
    Memo1: TMemo;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Client: TF_Client;
  ClientOk:boolean=false;
implementation

{$R *.dfm}
// 单击连接主机按钮时弹出一个对话框
procedure TF_Client.Button1Click(Sender: TObject);
var
  serverip:string;
begin
  if InputQuery('连接主机', '输入主机IP地址:', Serverip) then  //弹出一个对话框提示用户输入主机地址
    if Length(Serverip) > 0 then
      begin
        ClientSocket1.Host := Serverip; // 主机的IP地址
        ClientSocket1.Active := True; // 连接主机
      end;
end;
//连接