socketconnection1的问题。(9分)

  • 主题发起人 主题发起人 delphiboy
  • 开始时间 开始时间
D

delphiboy

Unregistered / Unconfirmed
GUEST, unregistred user!
客户端:
procedure TForm1.SocketConnection1Login(Sender: TObject;
Username,
Password: String);
begin
socketconnection1.AppServer.log(username,password);
end;
在应用程序服务器端,但有客户端连接的时候,就
应用程序服务器端:
procedure tctapp.loguser(const username ,password:widestring);
begin
unit1pp.form1.listbox1.items.add(username);
end;

但是为什么我连接上以后,服务器端启动,就是没有把客户端的名字加进去呢?
 
你可以由服务端发送一个消息到客户端,再发一个指定消息回来就知道是否连上了。
 
连上了。应用层已经启动。
 
服務端的函數是loguser,客戶端調用的是Log
這兩個是一個函數麼?
 
把服务端改成function,返回一个值到客户端,来判断是否成功.你用log和loguser,没有报错吗?
 
Client 利用 IAppServer 向 Server 传送 UserName 和 PassWord ,同时得到回传的一个 Boolean 变量,判断是否通通过,同时在Server 端判断是否添加
unit1pp.form1.listbox1.items.add(username);
改为 form1.listbox1.items.add(username);
 
多人接受答案了。
 
后退
顶部