在一次连接中，NMStrmServ能否将信息反馈给NMStrm? (300分)

原题为：
在 NMStrm 与 NMStrmServ 的一次连接中，
NMStrmServ如何将信息反馈给NMStrm?

改为：
在一次连接中，NMStrmServ能否将信息反馈给NMStrm?

你是问怎么做还是原理？

>>千兄：是怎么做。
NMStrm 向 NMStrmServ 发一字串。
在同一次连接中，NMStrmServ 将该字串大写后的结果传回 NMStrm。

谢谢。

>将该字串大写----->有个函数记不得了好象是CAP开头的吧。
》传回 NMStrm 给你一个UDP的例子吧用法和nmstrm差不多我就不改了。
procedure TForm1.Button1Click(Sender: TObject);
var
MyStream: TMemoryStream;
TmpStr: String;
Begin
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemoteHost := Edit1.Text;
NMUDP1.RemotePort := StrToInt(Edit2.Text);
TmpStr := Edit3.Text;
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[1], Length(Edit3.Text));
NMUDP1.SendStream(MyStream);
finally
MyStream.Free;
end;
end;

procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
MyStream: TMemoryStream;
TmpStr: String;
begin
MyStream := TMemoryStream.Create;
try
NMUDP1.ReadStream(MyStream);
SetLength(TmpStr,NumberBytes);
MyStream.Read(TmpStr[1],NumberBytes);
Memo1.Lines.Add(FromIP+': '+TmpStr);
finally
MyStream.Free;
end;
end;
然后调用函数变为大写后用上面同样的程序传回。

发字符串何必用流呢?用UDP的SendText不好吗?

用TNMStrm的话就在OnMSG里用NMStrmServ1.SendStream反馈就行了.

>>red：发字符串何必用流呢?
发字符串以及大写是为了方便调试。

半个小时没调试出来。幸亏没和red一起去。哈

老千辛苦了哦

困惑。

看来此题无解。将原题改一下：
在一次连接中，NMStrmServ能否将信息反馈给NMStrm?

就到这里吧。