delphi mysql 三层_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中显示    您好

具体应用请看下一节