我定义了一个动态数组s:Array of Btye,请问能把流AData:TStream付给动态数组s吗
我用SetLength(s,AData.Size);AData.Read(s,AData.Size),好像不行
我用SetLength(s,AData.Size);AData.Read(s,AData.Size),好像不行
解决方案 »
- Delphi将视频加载到MemoryStream中去,播放!
- Delphi 程序帮忙看下那里出问题了。
- 定时锁机
- TADOConnectiong连接oracle问题,解决可再加分100
- delphi如何做BS结构的软件?
- 有没有返回文件夹所在路径的方法??
- 在线等待你的光临!请进入,关于reportmachine
- 一个奇怪的问题,非高手莫进!!!!(一个'Invaild variant type conversion'错误
- 高手都到那里去了........................
- 如何把用ado的程序从sqlserver移植到db2?
- 如何使用IdUDPClient和IdUDPServer来发送内存流
- 01cn 精华(2003--2004,含软件工程,Delphi,java等等,请大家帮忙提前)
AData := TMemoryStream.Create;
AData := TMemoryStream.Create;
SetLength(s,AData.Size);
AData.Read(s,AData.Size);
......
finally
AData.free;
end;
procedure TFrmMain.UDPServer_VehicleUDPRead(Sender: TObject;
AData: TStream; ABinding: TIdSocketHandle);
var
s:Array of byte;
begin
SetLength(s,AData.Size);
AData.Read(s,AData.size);
end;
好像不行
我用SetLength(s,AData.Size);AData.Read(s,AData.Size),好像不行
不行是因为你的范围搞错了
setLengths,Adata.size+1);
Adata.read(s,Adata.Size);
s:array of byte;
aStream:TStream;
begintry
aStream := TMemoryStream.Create;
...... SetLength(s,aStream.Size);
aStream.Read(pByte(s)^,aStream.Size);finally
aStream.free;
end;