知识大全用Delphi开发视频聊天软件（三）

Posted 2022-07-22 知

篇首语：既然选择远方，就注定风雨兼程。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi开发视频聊天软件（三）相关的知识，希望对你有一定的参考价值。

用Delphi开发视频聊天软件（三） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

频聊天软件客户端

）新建一个工程命名为Project dpr

）在程序窗口Form 上放置一个image控件该控件用于接收的图像内容再放置一个Tbutton控件 caption为接收放置一个UDPServer组件这里用indy的IdUDPServer用来接收网络视频如图示

接收按钮代码

IdUDPServer DefaultPort:= ; //接收端口 IdUDPServer Active:=true; //启用

IdUDPServer 的UDPRead事件代码

var jpg:TJpegImage;begin try jpg := TJpegImage Create; jpg LoadFromStream(Adata); Image Picture Bitmap Assign(jpg); jpg Free; exceptend;end;

视频的传输是压缩成JPG进行传输的服务器端和接收端都用到了jpeg单元所以use中都要加入jpeg

完整的视频聊天软件客户端代码

unit Unit ; interfaceuses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls IdBaseComponent IdComponent IdUDPBase IdUDPServer ExtCtrls jpeg IdSocketHandle; type TForm = class(TForm) Image : TImage; IdUDPServer : TIdUDPServer; Button : TButton; procedure Button Click(Sender: TObject); procedure IdUDPServer UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); private Private declarations public Public declarations end; var Form : TForm ; implementation$R * dfmprocedure TForm Button Click(Sender: TObject); begin IdUDPServer DefaultPort:= ; //接收端口 IdUDPServer Active:=true; //启用 end; procedure TForm IdUDPServer UDPRead(Sender: TObject;AData: TStream; ABinding: TIdSocketHandle); var jpg:TJpegImage; begin try jpg := TJpegImage Create; jpg LoadFromStream(Adata); Image Picture Bitmap Assign(jpg); jpg Free; except end; end; end

好了到这里程序代码也就写完了在机上运行视频聊天软件服务器程序点开始就开始进行视频的传输了在网络上（网段为 X 根据你的网络设置IP地址我这用的局域网测试）的任何一台机上运行视频聊天软件客户端点接收都能接收到视频了

　　如果要接收的视频内容清晰点可以设置jpg CompressionQuality:= ;（这个值可以是从至数值越大图像越清晰当然传输的速度会越慢了图像越清晰数据包就会越大如果超出了UDP包限制看到图像就不完整了）

视频聊天软件服务器

聊天软件客户端

四结束语

cha138/Article/program/Delphi/201311/24738

知识大全 用Delphi开发视频聊天软件（三）

知识大全用Delphi开发视频聊天软件（三）