Question

delphi编程

初学delphi,想知道如何在自己的电脑上建立服务器和客户机!网上的教程说的太复杂了,哪位大侠能讲解点通俗易懂的,实现最简单的功能就行!比如就是选择某个组件,经过相关的参数设置,点击"连接"按钮,然后程序显示"与**已成功连接"!这样最简单的就行!谢啦!

Answer 1

客户端：
打开delphi，新建一个工程，
1、在控件板上面找到Internet选项卡，选择ClientSocket控件放入窗体，设置它的Assress属性为'127.0.0.1'(本机通讯)，Port属性为1234（设置端口）
2、在窗体上放一个Button控件，添加单击事件代码如下
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Active:= true;
end;
3、编译运行程序

服务器端
打开delphi，新建一个工程，
1、在控件板上面找到Internet选项卡，选择ServerSocket控件放入窗体，先设置Port属性为1234（设置端口需要与客户端一致）、再将Active属性设置为True。
2、在窗体上加入一个Label控件
3、为ServerSocket控件的Onlisten、OnClientConnect、OnClientDisconnect加入如下代码
procedure TForm1.ServerSocket1Listen(Sender: TObject;
Socket: TCustomWinSocket);
begin
Label1.Caption:= '等待连接';
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Label1.Caption:= '连接成功';
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Label1.Caption:= '连接断开';
end;
4、编译运行程序

之后就可以进行连接试验了，先运行服务端，在运行客户端，点击客户端窗体上的按钮，即可看到你想要的效果

Answer 2

Delphi是个不错的程序语言！界面好，兼容所有数据库。“熊猫烧香”就是用Delphi编写的！