此文章是vip文章,如何查看?  

1,点击链接获取密钥 http://nicethemes.cn/product/view29882.html

2,在下方输入文章查看密钥即可立即查看当前vip文章


DELPHI XE 10.3 三层数据库应用 尝鲜 之一

  • 时间:
  • 浏览:
  • 来源:互联网

按照https://blog.csdn.net/qq_25439957/article/details/90293387安装好TServerSocket和TCLIENTSocket;

在DELPHI XE10.3中新建一个 VCL应用。取名为Pserver,配置如下

object SSKServer: TServerSocket
    Active = True
    Port = 2018             //---------------------->客户端必须跟这里一致。否联接不上
    ServerType = stNonBlocking
    OnClientRead = SSKServerClientRead 
    Left = 140
    Top = 48
  end;

  object Memo1: TMemo
    Left = 24
    Top = 248
    Width = 393
    Height = 201
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end

procedure TForm2.SSKServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.lines.add(Socket.ReceiveText);
end;
 


在DELPHI XE10.3中新建另一个 VCL应用。取名为Pclient,配置如下

object SCKClient: TClientSocket
    Active = True
    ClientType = ctNonBlocking
    Host = 'winserver'   //------------------->这是服务器的计算机名
    Port = 2018

    OnConnect = SCKClientConnect
    Left = 168
    Top = 104
  end

 

procedure Tdmclient.SCKClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Socket.SendText('您好') ;
end;
 


OK

 

先运行服务器,再运行客户端

结果在服务器端的MEMO1中显示    您好

 

 

具体应用请看下一节

本文链接http://element-ui.cn/news/show-577350.aspx