|
> 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]
[Delphi程序]开发一个基于DCOM的局域网聊天室（二） [Delphi程序]开发一个基于DCOM的局域网聊天室（一）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
