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

  • 相关阅读:
    【LeetCode-栈】栈排序
    【LeetCode-数组】旋转数组
    【LeetCode-数组】两个数组的交集 II
    【LeetCode-树】二叉树的层次遍历 II
    【LeetCode-字符串】Fizz Buzz
    【LeetCode-数组】数组的相对排序
    解决Oracle表中数据乱码的问题
    docker搭建mysql 用户名密码忘记了怎么办
    java中如何将string 转化成long
    http三次握手四次挥手
  • 原文地址:https://www.cnblogs.com/fengju/p/6173885.html
Copyright © 2011-2022 走看看