procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
mStream:TMemoryStream;
strData:String;
begin
mStream:=TMemoryStream.Create;
Try
NMUDP1.ReadStream(mStream);
SetLength(strData,NumberBytes);
mStream.Read(strData[1],NumberBytes);//为什么是StrData[1],而不是StrData呢?
txtGet.Text:=StrData;
finally
mStream.Free;
end;
end;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
mStream:TMemoryStream;
strData:String;
begin
mStream:=TMemoryStream.Create;
Try
NMUDP1.ReadStream(mStream);
SetLength(strData,NumberBytes);
mStream.Read(strData[1],NumberBytes);//为什么是StrData[1],而不是StrData呢?
txtGet.Text:=StrData;
finally
mStream.Free;
end;
end;
解决方案 »
- 关于winrar的一个较奇怪的问题--路径?
- delphi怎样动态修改水晶报表的数据源
- 本菜鸟编了一套机动车申请驾驶证管理软件!还有链接下载......
- 请教
- 怎样用递归把一个目录下的结构反映到一个树中?
- 如何輸入特殊字符如1/8等到DBEDIT中並存入數據庫且能列印!
- 我在用EXE调用dll时,弹出exe文件不能找到dll入口的错误,究竟是怎么回事????谢谢~
- 加密问题:怎样用DES加密?
- 请问在哪里可以找到devexpress的全套控件
- 各位大侠,请进来讨论关于B/S模式的套打(标准格式打印)问题。
- 如何使用TDBRichEdit?
- 请问:用fastreport做报表,如果要用到临时表,在什么事件中建立比较合适呢?
strdata[1],如果你定义时改成 strdata:array[0..1023]of char;的话,则就可以直接使用
strdata了