请问如何声明8个StreamBuffer类型的数组啊?因为我要开辟8个缓冲区,如果一个个创建比较麻烦,况且不利于代码的编写,请指教!下面是其中的一个缓冲区的代码,但是我要创建8个,如何实现呢?请指教!
声明:
StreamBuffer:array[0..65535] of byte; //64K字节,UDP发送的最大包长度(缓冲区)
Bufflength:integer;
sendvideo: TIdUDPClient;
status: integer;
函数:ReadStreamData(通道句柄,缓冲区,缓冲大小,帧类型)
status:=ReadStreamData(channelHwnd[0],@StreamBuffer,@Bufflength,@FrameType); case FrameType of
$00001: //PktIFrames I帧包
begin
//I帧网络发送
if (sendvideo.Active) then
begin
if sendvideo.Active then sendvideo.SendBuffer(StreamBuffer,Bufflength);
end;
memo1.Lines.Add('I帧长度:'+inttostr(Bufflength));
end;
$00004: //PktBBPFrames B帧包
begin
//B帧网络发送
if ((sendvideo.Active) then
begin
if sendvideo.Active then sendvideo.SendBuffer(StreamBuffer,Bufflength);
end;
memo1.Lines.Add('B帧长度:'+inttostr(Bufflength));
end;
声明:
StreamBuffer:array[0..65535] of byte; //64K字节,UDP发送的最大包长度(缓冲区)
Bufflength:integer;
sendvideo: TIdUDPClient;
status: integer;
函数:ReadStreamData(通道句柄,缓冲区,缓冲大小,帧类型)
status:=ReadStreamData(channelHwnd[0],@StreamBuffer,@Bufflength,@FrameType); case FrameType of
$00001: //PktIFrames I帧包
begin
//I帧网络发送
if (sendvideo.Active) then
begin
if sendvideo.Active then sendvideo.SendBuffer(StreamBuffer,Bufflength);
end;
memo1.Lines.Add('I帧长度:'+inttostr(Bufflength));
end;
$00004: //PktBBPFrames B帧包
begin
//B帧网络发送
if ((sendvideo.Active) then
begin
if sendvideo.Active then sendvideo.SendBuffer(StreamBuffer,Bufflength);
end;
memo1.Lines.Add('B帧长度:'+inttostr(Bufflength));
end;
解决方案 »
- 我在ADOQuery BeforeEdit事件写代码 ,得到了更改的是那些字段!
- 自写控件消息捕获的问题.
- 根据一个表,设计报表。。。
- 有没有合肥的DELPHI开发人员,帮我找一下工作?
- ehlib控件支持对单元格的部分文字变色吗?比如一个字段内容为“我是一个程序员”,只对“程序员”改变颜色
- 组件的初始化!
- 关于Delphi注册的疑问!!!Up有分。
- 请问函数后面加上一个abstract,有什么用?????????????????????
- ShellExecute(self.Handle, 'Open','USBHolte.exe',Pchar('username='+CurOperatorCode + ' password='+EncodePass), 'USB', 0);
- 一个高难度的问题,高手请进。
- 如何实现程序自动定时运行,反复提交url到服务器,并定时自动关闭程序?
- 求TreeView和Timer的全部属性与方法
BUF_SIZE = 65535;var
ptrBuf: array[0..7] of Pointer;
nTmp : Integer;
begin
for nTmp:= 0 to 7 do begin
GetMem(@ptrBuf[0], SizeOf(BYTE) * BUF_SIZE); //...
end;指针可以当作数组,只要你明白数组是怎么实现的。 StreamBuffer:array[0..65535] of byte; 我不知道这样能不能运行。我估计系统的栈没有那么大(一般是2K)。除非你是全局的。