又要请教大家了,关于摄像头的问题 已经能在自己机器上控制摄像头了,可是如何做到像QQ一样,看到别人的影像,我知道是要把流压缩再发过去。可是如何实现呢?请指教一二。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DSPACK控件可以完成你要的功能,自己去下了看看里面的Demo只是这套控件好象已经两年多没有新版本出来了,不过已经够用了 图象的压缩和传送()procedure TForm7.Timer2Timer(Sender: TObject); //控制每秒发送图象幅数var mdata:array[1..10000] of char; k:integer; p: Pointer; FStream:TMemoryStream; Jpeg:TJPEGImage;begin FStream:=TmemoryStream.create; Jpeg:= TJpegImage.Create; Jpeg.CompressionQuality:=50; //压缩比 try Jpeg.Assign(Image10.Picture.Bitmap); Jpeg.SaveToStream(FStream); P:=FStream.Memory; FStream.Position:=0; for k:=1 to FStream.Size do mdata[k]:=pchar(dword(P)+k-1)^; IdUDPClient1.SendBuffer(mdata,FStream.Size); finally Jpeg.Free; end; FStream.Free;end; 一个combobox绑定多列数据的方法:有个问题要确认 急聘:Delphi软件工程师。 SQL语句问题 窗体显示时奇怪的问题? 请教关于Image图形处理的问题----在线盼复!! 我四个问题上个星期五的了100分,那天是我第一次上论坛回答问题,赠分了 delphi里有没有测试一个8位字符串是否为合法的日期的函数 如何控制添加的记录写回或不写回到表里去? 有看过这本《Delphi 深度探索》书的吗?看过的,参评者给分哦! 很菜的问题 怎样改变MDI子窗体的大小 [在线等]求教random()和Randomize;的用法 *.db 数据库
只是这套控件好象已经两年多没有新版本出来了,不过已经够用了
procedure TForm7.Timer2Timer(Sender: TObject); //控制每秒发送图象幅数
var
mdata:array[1..10000] of char;
k:integer;
p: Pointer;
FStream:TMemoryStream;
Jpeg:TJPEGImage;
begin
FStream:=TmemoryStream.create;
Jpeg:= TJpegImage.Create;
Jpeg.CompressionQuality:=50; //压缩比
try
Jpeg.Assign(Image10.Picture.Bitmap);
Jpeg.SaveToStream(FStream);
P:=FStream.Memory;
FStream.Position:=0;
for k:=1 to FStream.Size do mdata[k]:=pchar(dword(P)+k-1)^;
IdUDPClient1.SendBuffer(mdata,FStream.Size);
finally
Jpeg.Free;
end;
FStream.Free;
end;