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;
但是为什么我连接上以后,服务器端启动,就是没有把客户端的名字加进去呢?
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;
但是为什么我连接上以后,服务器端启动,就是没有把客户端的名字加进去呢?