winsocket.~pas

所有delphi的入门例子

unit winsocket;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    IdTCPServer1: TIdTCPServer;
    IdTCPClient1: TIdTCPClient;
    Button3: TButton;
    Button4: TButton;
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  cmd: string; //接收到客户端的字符串信息
begin
  with AThread.Connection do //已经连街上的一个进程
  begin
    cmd := UpperCase(ReadLn); //客户端发送的命令字符串
    edit3.Text := cmd;
    WriteLn('it is OK');
  end;

  edit4.Text := IdTCPClient1.ReadLn;
  

//  AThread.Connection.IOHandler.Components .WriteStrings('fdsfsdf');
//  AThread.Connection.WriteLn('fkskfskf');
//  AThread.Connection.IOHandler.Send('fsfsf',5);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  IdTCPClient1.Connect; //连接
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 //IdTCPClient1.Disconnect;
 //idtcpserver1.Threads.UnlockList;
 //idtcpserver1.Threads.Destroy;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   IdTCPClient1.WriteLn(edit2.text); //提示服务器开始接收

end;

procedure TForm1.Button1Click(Sender: TObject);
var   i:integer;
begin
  for i:=0 to idtcpserver1.Threads.LockList.Count-1 do
    begin
     if TIdPeerThread(idtcpserver1.Threads.LockList.Items[i]).Connection.Connected  = true then
        TIdPeerThread(idtcpserver1.Threads.LockList.Items[i]).Connection.WriteLn(edit1.text);
    end;

  edit4.Text := IdTCPClient1.ReadLn;
 

end;




procedure TForm1.FormDestroy(Sender: TObject);
begin
 IdTCPClient1.Disconnect;
 IdTCPServer1.Destroy ;
 //IdTCPServer1.Dispatch();
 //TCPServer1

end;

end.