zoukankan      html  css  js  c++  java
  • delphi tcp/ip IdTCPServer1实例一

    unit Unit1;

    interface

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

    type
      TForm1 = class(TForm)
        IdTCPServer1: TIdTCPServer;
        Button1: TButton;
        Edit1: TEdit;
        Edit2: TEdit;
        Label1: TLabel;
        Label2: TLabel;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure IdTCPServer1Execute(AThread: TIdPeerThread);
        procedure Button2Click(Sender: TObject);

      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
     IdTCPServer1.Bindings.Clear;
     IdTCPServer1.Bindings.Add.IP:='192.168.1.126';
     IdTCPServer1.Bindings.Add.Port:=168;
     IdTCPServer1.Active:=true;
     if  IdTCPServer1.Active then
           //showmessage('Server running')
           edit1.Text:='Server running'
           else
           edit1.Text:='Server stop'

    end;

    procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

    var
       m_string:string;
    begin
      m_string:=AThread.Connection.ReadLn();

      if m_string='begin' then
      begin
           AThread.Connection.WriteLn('我是要传的文字!');
           edit1.Text:='准备传输';
           exit;
           end;
      if m_string='end' then
      begin
           edit1.Text:='传输结束';
           exit;
           end;
      if m_string='qx' then
      begin
            edit1.Text:='取消传输';
            exit;
            end;
    end;


    procedure TForm1.Button2Click(Sender: TObject);
    begin
       IdTCPServer1.Destroy;

       edit1.Text:='Server stop';
    end;

    end.

    源代码下载:http://download.csdn.net/source/1261880

  • 相关阅读:
    使用Maven Helper解决Maven依赖冲突
    bzoj 1037[ZJOI2008]生日聚会Party
    bzoj 1031[JSOI2007]字符加密
    bzoj 1029 [JSOI2007]建筑抢修
    bzoj 1025[SCOI2009]游戏
    bzoj 1027[JSOI2007]合金
    bzoj 1024[SCOI2009]生日快乐
    bzoj 1023[SHOI2008]cactus仙人掌图
    bzoj 1022 [SHOI2008]小约翰的游戏John
    bzoj 1021[SHOI2008]Debt 循环的债务
  • 原文地址:https://www.cnblogs.com/bhlsheji/p/4007009.html
Copyright © 2011-2022 走看看