| > end;
end;
当然上面的程序所分析的字符串（说给谁，谁说的，是否是悄悄话）都是在speak时产生的，这相当的简单：
//客户端的speak
procedure TClientMainForm.Button1Click(Sender: TObject);
var
content:string;
begin
if Edit1.Text='''''''' then
begin
application.MessageBox(''''不能发空消息。'''',''''DCOMChatClient'''',MB_ICONINFORMATION);
exit;
end;
if length(edit1.Text)>100 then
begin
application.MessageBox(''''说话内容过长。'''',''''DCOMChatClient'''',MB_ICONINFORMATION);
exit;
end;
if CheckBox1.Checked then
Content:=UserName+'''' 悄悄的对 ''''+SpeakToCBx.Text+'''' 说：''''+edit1.Text+''''SecretSpeak''''
//可以看到悄悄话功能和说话对象的功能只是在字符串上的简单处理罢了
else
Content:=UserName+'''' 对 ''''+SpeakToCBx.Text+'''' 说：''''+edit1.Text;
ChatServer.Server.SpeakTo(Content,RoomID);
edit1.Clear;
end;
至此这个程序已经基本完善了，我们可以打包发布它，以免去最终用户配置DCOM的麻烦。 (全文完)
上一页 [1] [2] [3] | 
