Server端如何接收Client端的字串

下面程式片段是Server端接收Client端的四则运算做处理之后再回传Client端
我想再做一个接收字串的值，类似聊天室的功能，之前都是卡在开始服务后就
没有处理了，请问我应该怎么做才能接收到Client端的字串值呢

try
Log('开始服务');
while not self.Terminated do
begin
// 读取
i:=uuTCPSocket.ReadData(FSocket,mStr,0,0,#13);
if i<0 then begin Log('读取失败: '+uuTCPSocket.GetErrorStr(i)); exit; end;
delete(mStr,1,1);
// 处理
i:=0; j:=0; n1:=0; n2:=0;
while true do
begin
j:=0; i:=Pos(& ..

访客只能看到部份内容，免费 加入会员

x0

while true do
  begin
  j:=0;   i:=Pos('+',mStr); if i>0 then break;
  inc(j); i:=Pos('-',mStr); if i>0 then break;
  inc(j); i:=Pos('*',mStr); if i>0 then break;
  inc(j); i:=Pos('/',mStr); if i>0 then break;
  inc(j);
  end;
上面程式如果Client没有送+-*/不就变成无限回圈了吗?
只要再加一个 break; 在 end; 就好了, 那么字串就是 j=4
只是你输入的字串不能包含 +-*/ 不然就变成计算了

x0

是的，Client端要送出+-*/ Server端才会处理，参数mStr是从Client端所得到的字串，目前字串已经能接收到了，卡在最后的"回覆"Log，请问要怎么改才能将四则运算和接收讯息的Log分离呢?

x0

不太懂!? 你不是有 j = 4 为字串了吗?

x0

j=4会跳到else mRes:='ERROR'

我修改了一下原程式，请问如果POS第五行i:=Pos(' ',mStr); if i>0 then break;(这行是Client端接收到的字串)，要怎么修改才能跳到case j of 4: mRes:=mStr;

假设我从Client发了一个字串"How are you?"那么"How are you?"这个字串就会存在mStr里

x0

谢谢cmovies大大的回答，已解决，我再修改原程式

x0