 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2060 | 回復: 8 | |||
| 【獎勵】 本帖被評價2次，作者zyj8119增加金幣 1.4 個 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
[資源]
【轉(zhuǎn)帖】用Delphi開發(fā)視頻聊天軟件 已有1人參與
|
|||
|
一、引言 我們知道視頻聊天軟件的關鍵技術在于采集視頻，并實時傳輸給聊天軟件在線的人。對于視頻的采集，這里采用微軟公司的關于數(shù)字視頻的一個軟件包VFW（Video for Windows）。相信很多人對它都很熟習，VFW能使應用程序通過數(shù)字化設備從傳統(tǒng)的模擬視頻源得到數(shù)字化的視頻剪輯，VFW的一個關鍵思想是播放時不需要專用硬件。為了解決數(shù)字視頻數(shù)據(jù)量大的問題，需要對數(shù)據(jù)進行壓縮，而VFW引進了AVI的文件標準。該標準未規(guī)定如何對視頻進行捕捉、壓縮及播放，僅規(guī)定視頻和音頻該如何存儲在硬盤上及在AVI文件中交替存儲視頻幀和與之相匹配的音頻數(shù)據(jù)。通過VFW，開發(fā)人員通過發(fā)送消息或設置屬性來捕捉、播放和編輯視頻剪輯。當用戶在安裝VFW時，安裝程序會自動地安裝配置視頻所需要的組件，如設備驅(qū)動程序、視頻壓縮程序等。VFW主要由6個模塊組成。VFW功能模塊： AVICAP.DLL 包含執(zhí)行視頻捕捉的函數(shù)，它給AVI文件的I/O處理和視頻、音頻設備驅(qū)動程序提供一個高級接口 MSVIDEO.DLL 包含一套特殊的DrawDib函數(shù)，用來處理屏幕上的視頻操作 MCIAVI.DRV 包括對VFW的MCI命令解釋器的驅(qū)動程序 AVIFILE.DLL 包含由標準多媒體I/O（mmio）函數(shù)提供的更高的命令，用來訪問.AVI文件 ICM 壓縮管理器，用于管理的視頻壓縮/解壓縮的編譯碼器（Codec） ACM 音頻壓縮管理器，提供與ICM相似的服務，適用于波形音頻 對于視頻的傳輸，我們使用UDP來傳，因為UDP傳輸速度快，TCP是面向連接的，建立連接時雙方需經(jīng)過三次握手，數(shù)據(jù)傳輸可靠，F(xiàn)TP、telnet等就是基于TCP的，UDP是面向非連接的，發(fā)出信息不需對方確認，但這樣速度比TCP快，但有可能丟失數(shù)據(jù)，象SMTP、tftp等就是基于UDP的。另外UDP還支持廣播，UDP廣播兩種，一種是directed broadcast，比如你的網(wǎng)段是192.168.0.X，你就往192.168.0.255發(fā)就可以了。另一種是limited broadcast,廣播地址是255.255.255.255 |
回復此樓» 收錄本帖的淘帖專輯推薦
 程序語言箱 |
» 猜你喜歡
求調(diào)劑
已經(jīng)有3人回復
-
265求調(diào)劑
已經(jīng)有4人回復
-
085700資源與環(huán)境308求調(diào)劑
已經(jīng)有6人回復
-
一志愿吉林大學材料學碩321求調(diào)劑
已經(jīng)有12人回復
-
286分人工智能專業(yè)請求調(diào)劑愿意跨考！
已經(jīng)有3人回復
-
329求調(diào)劑
已經(jīng)有5人回復
-
申請回稿延期一個月，編輯同意了。但系統(tǒng)上的時間沒變，給編輯又寫郵件了，沒回復
已經(jīng)有4人回復
-
材料學碩318求調(diào)劑
已經(jīng)有5人回復
-
一志愿中國海洋大學，生物學，301分，求調(diào)劑
已經(jīng)有6人回復
-
081700化工學碩調(diào)劑
已經(jīng)有3人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 有誰用過畫工藝流程圖的軟件
已經(jīng)有5人回復
- 【分享】別告訴我你會用WORD （搜索無重復）【已搜索無重復】
已經(jīng)有766人回復
- 【分享】幾款windows mobile手機小游戲推薦【已搜索無重】
已經(jīng)有36人回復
- 求軟件，想在單位內(nèi)部建視頻聊天服務器事！
已經(jīng)有7人回復
- 【分享】[12-07]精挑細選綠色軟件推薦下載[清清心整理]【已搜索無重復】
已經(jīng)有6人回復
- 【求助】ORCA, Turbomole, Gamess這些軟件比GAUSSIAN有什么優(yōu)勢嗎
已經(jīng)有4人回復
3樓2010-12-02 16:38:20
|
二、視頻聊天軟件的開發(fā)步驟 2.1 創(chuàng)建捕捉窗口，采集視頻 在進行視頻捕捉之前必需要先創(chuàng)建一個捕捉窗口，并應以此為基礎進行所有的捕捉及設置操作。捕捉窗口可用AVICap窗口類的"CapCreateCaptureWindow"函數(shù)來創(chuàng)建，其窗口風格可設置為WSCHILD和WS_VISIBLE參數(shù)。 有了捕捉窗口，我們就可以將視頻流和音頻流捕捉到一個AVI文件中；動態(tài)地同視頻和音頻輸入器件連接或斷開；用Overlay或Preview模式對輸入的視頻流進行實時顯示，設置捕捉速率，顯示控制視頻源、視頻格式及視頻壓縮的對話框，創(chuàng)建、保存或載入調(diào)色板，將圖像和相關的調(diào)色板拷貝到剪貼板，將捕捉的單幀圖像保存到BMP格式文件中。 2.2 捕捉窗口和驅(qū)動程序的關聯(lián) 僅僅一個捕捉窗口是不能工作起來的，它必須要與一個設備相關聯(lián)才能取得視頻信號。用函數(shù)CapDriverConnect可使捕捉窗與其設備驅(qū)動程序相關聯(lián)。 2.3設置視頻設備的屬性 通過設置TcaptureParms結構變量的各個成員變量，可以控制設備的采樣頻率、中斷采樣按鍵、狀態(tài)行為。設置好TcaptureParms結構變量后，可以用函CapCaptureSetSetup使設置生效。之后還可以用CapPreviewScale、CapPreviewRate設置預覽的比例與速度，也可以直接使用設備的默認值。 2.4打開預覽 利用函數(shù)CapOverlay可選擇是否采用疊加模式預覽，以使系統(tǒng)資源占用小，視頻顯示速度加快。然后用CapPreview啟動預覽功能，這時就可以在屏幕上看到來自攝像頭的圖像了。 2.5使用捕捉窗回調(diào)函數(shù) 前的四個步驟就可以建立一個基本的視頻捕捉程序了，如果想自己處理從設備捕捉到的視頻數(shù)據(jù)，則要使用捕捉窗回調(diào)函數(shù)來處理，比如一幀一幀地獲得視頻數(shù)據(jù)，也可以以流的方式獲得視頻數(shù)據(jù)等等。 2.6傳輸視頻流 使用回調(diào)函數(shù)可以取得第一幀的數(shù)據(jù)，我們使用網(wǎng)絡技術將數(shù)據(jù)發(fā)給其它機器，其它機品將接收的數(shù)據(jù)顯示出來。 2.7接收視頻 接收UDP數(shù)據(jù)，同時將接收到的數(shù)據(jù)回顯出來，這樣就可以看到遠處傳來的視頻了。 三、用Delphi編寫程序代碼 微軟的VFW SDK只有VC和VB版，并沒有Delphi版，不過在網(wǎng)上可以找到VFW.PAS文件，F(xiàn)W.PAS文件聲明了調(diào)用DLL中的各個函數(shù)和變量。（注：源代碼中提供了VFW.PAS文件） 下面就以Delphi7開發(fā)一個網(wǎng)絡視頻聊天軟件，聊天軟件分兩個程序，一個是視頻采集程序并進行UDP廣播的視頻聊天軟件服務器，另一個是接收UDP廣播程序顯示傳來的視頻數(shù)據(jù)的視頻聊天軟件客戶端。 3.1建立視頻聊天軟件服務器 |
2樓2010-12-02 16:37:45
|
3.1.2在Form1上放置一個Tpanel控件，該控件用于顯示視頻。之后再放置兩個Tbutton控件，一個caption為"開始",另一個Name為"停止"，放置一個UDP組件，這里用indy的IdUDPClient用來傳輸視頻，如圖示：  3.1.3定義全局變量 CapWnd:THandle; //定義捕捉窗句柄 CapParms:TcaptureParms; //用于設置設備屬性的結構變量 BMPINFO:TBitmapInfo; //BMP圖像信息 3.1.4編碼事件代碼 開始按鈕代碼： CapWnd := capCreateCaptureWindow('我的窗口', WS_VISIBLE or WS_CHILD,//窗口樣式 0, //X坐標 0, //Y坐標 panel1.Width, //窗口寬 panel1.Height, //窗口高 panel1.handle, //窗口句柄 0); //通常為0 if CapWnd = 0 then exit; //定義幀捕捉回調(diào)函數(shù) CapSetCallbackOnFrame(CapWnd,FrameCallBack); CapParms.dwRequestMicroSecPerFrame:=1; CapParms.fLimitEnabled:=FALSE; CapParms.fCaptureAudio:=FALSE; CapParms.fMCIControl:=FALSE; CapParms.fYield:=TRUE; CapParms.vKeyAbort:=VK_ESCAPE; CapParms.fAbortLeftMouse:=False; CapParms.fAbortRightMouse:=FALSE; //讓設置生效 CapCaptureSetSetup(capWnd,@CapParms,sizeof(TCAPTUREPARMS)); CapPreviewRate(capWnd,33); //設置預覽視頻的頻率 CapCaptureSequenceNoFile(capWnd); //如果要捕捉視頻流，則要使用函數(shù)來指定不生成文件，不然會自動生成AVI文件 CapDriverConnect(CapWnd,0); //連接攝像頭設備，第二個參數(shù)是個序號，當系統(tǒng)中裝有多個顯示驅(qū)動程序時，其值分別依次為0到總個數(shù)如果有多個攝像頭，那么就是0->1->2 capGetVideoFormat(capWnd, @BMPINFO,sizeof(TBitmapInfo)); //取得視頻圖像數(shù)據(jù)頭 CapPreviewScale(capWnd,TRUE); //是否縮放 CapOverlay(capWnd,true); //指定是否使用疊加模式，true為使用，否則為falseCapPreview(capWnd,true); 回調(diào)函數(shù)代碼： var hd:Thandle; jpg:TJpegImage; memStream :TMemoryStream; Bitmap:TBitmap; begin //將數(shù)據(jù)顯在Image， Bitmap:=TBitmap.Create; Bitmap.Width :=BMPINFO.bmiHeader.biWidth; // New size of Bitmap Bitmap.Height:=BMPINFO.bmiHeader.biHeight; hd:= DrawDibOpen; DrawDibDraw(hd,Bitmap.canvas.handle,0,0,_ BMPINFO.BmiHeader.biwidth,BMPINFO.bmiheader.biheight,_ @BMPINFO.bmiHeader,lpVHdr^.lpData,0,0,BMPINFO.bmiHeader.biWidth,_ BMPINFO.bmiHeader.biheight,0); DrawDibClose(hd); //發(fā)送數(shù)據(jù) memStream := TMemoryStream.Create; jpg := TJpegImage.Create; jpg.Assign(Bitmap); jpg.CompressionQuality := 10; //jpg壓縮質(zhì)量 jpg.JPEGNeeded; jpg.Compress; jpg.SaveToStream(memStream); jpg.Free; //因為UDP數(shù)據(jù)包有大小限制，這里如果超出部分，就沒有傳輸，完全可以發(fā)幾次發(fā)出去 Form1.IdUDPClient1.BroadcastEnabled:=true;//用廣播功能 if memStream.Size>Form1.IdUDPClient1.BufferSize then //向192.168.0.X網(wǎng)段廣播，端口 9001 Form1.IdUDPClient1.SendBuffer('192.168.0.255',9001,memStream.Memory^,Form1.IdUDPClient1.BufferSize) else Form1.IdUDPClient1.SendBuffer('192.168.0.255',9001,memStream.Memory^,memStream.Size); memStream.Free; Bitmap.Free; End; 停止代碼： capCaptureAbort(CapWnd); //停止捕捉 capDriverDisconnect(CapWnd); //將捕捉窗同驅(qū)動器斷開 完整的視頻聊天軟件服務器代碼： unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,VFW, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,jpeg;type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; Button2: TButton; IdUDPClient1: TIdUDPClient; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; CapWnd:THandle; //定義捕捉窗句柄 CapParms:TcaptureParms; //用于設置設備屬性的結構變量 BMPINFO:TBitmapInfo; //BMP圖像信息 implementation{$R *.dfm} function FrameCallBack(hWnd: HWND; lpVHdr: PVIDEOHDR): LongInt;stdcall; var hd:Thandle; jpg:TJpegImage; memStream :TMemoryStream; Bitmap:TBitmap; begin //將數(shù)據(jù)顯在Image， Bitmap:=TBitmap.Create; Bitmap.Width :=BMPINFO.bmiHeader.biWidth; // New size of Bitmap Bitmap.Height:=BMPINFO.bmiHeader.biHeight; hd:= DrawDibOpen; DrawDibDraw(hd,Bitmap.canvas.handle,0,0,BMPINFO.BmiHeader.biwidth,BMPINFO._ bmiheader.biheight,@BMPINFO.bmiHeader,_ lpVHdr^.lpData,0,0,BMPINFO.bmiHeader.biWidth,BMPINFO.bmiHeader.biheight,0); DrawDibClose(hd); //發(fā)送數(shù)據(jù) memStream := TMemoryStream.Create; jpg := TJpegImage.Create; jpg.Assign(Bitmap); jpg.CompressionQuality := 10; //jpg壓縮質(zhì)量 jpg.JPEGNeeded; jpg.Compress; jpg.SaveToStream(memStream); jpg.Free; //因為UDP數(shù)據(jù)包有大小限制，這里如果超出部分，就沒有傳輸，完全可以發(fā)幾次發(fā)出去 Form1.IdUDPClient1.BroadcastEnabled:=true;//用廣播功能 if memStream.Size>Form1.IdUDPClient1.BufferSize then //向192.168.0.X網(wǎng)段廣播，端口 9001 Form1.IdUDPClient1.SendBuffer('192.168.0.255',9001,memStream.Memory^,Form1.IdUDPClient1.BufferSize) else Form1.IdUDPClient1.SendBuffer('192.168.0.255',9001,memStream.Memory^,memStream.Size); memStream.Free; Bitmap.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin CapWnd := capCreateCaptureWindow('我的窗口', WS_VISIBLE or WS_CHILD,//窗口樣式 0, //X坐標 0, //Y坐標 panel1.Width, //窗口寬 panel1.Height, //窗口高 panel1.handle, //窗口句柄 0); //通常為0 if CapWnd = 0 then exit; //定義幀捕捉回調(diào)函數(shù) CapSetCallbackOnFrame(CapWnd,FrameCallBack); CapParms.dwRequestMicroSecPerFrame:=1; CapParms.fLimitEnabled:=FALSE; CapParms.fCaptureAudio:=FALSE; CapParms.fMCIControl:=FALSE; CapParms.fYield:=TRUE; CapParms.vKeyAbort:=VK_ESCAPE; CapParms.fAbortLeftMouse:=False; CapParms.fAbortRightMouse:=FALSE; //讓設置生效 CapCaptureSetSetup(capWnd,@CapParms,sizeof(TCAPTUREPARMS)); CapPreviewRate(capWnd,33); //設置預覽視頻的頻率 CapCaptureSequenceNoFile(capWnd); //如果要捕捉視頻流，則要使用函數(shù)來指定不生成文件，不然會自動生成AVI文件 CapDriverConnect(CapWnd,0); //連接攝像頭設備，第二個參數(shù)是個序號，當系統(tǒng)中裝有多個顯示驅(qū)動程序時，其值分別依次為0到總個數(shù)如果有多個攝像頭，那么就是0->1->2 capGetVideoFormat(capWnd, @BMPINFO,sizeof(TBitmapInfo)); //取得視頻圖像數(shù)據(jù)頭 CapPreviewScale(capWnd,TRUE); //是否縮放 CapOverlay(capWnd,true); //指定是否使用疊加模式，true為使用，否則為false CapPreview(capWnd,true);end;procedure TForm1.Button2Click(Sender: TObject); begin capCaptureAbort(CapWnd); //停止捕捉 capDriverDisconnect(CapWnd); //將捕捉窗同驅(qū)動器斷開 end; end. |
4樓2010-12-02 16:39:33
|
3.2建立視頻聊天軟件客戶端  3.2.1新建一個工程，命名為Project2.dpr 3.2.2在程序窗口Form2上放置一個image控件，該控件用于接收的圖像內(nèi)容，再放置一個Tbutton控件，caption為"接收",，放置一個UDPServer組件，這里用indy的IdUDPServer用來接收網(wǎng)絡視頻，如圖示： 接收按鈕代碼： IdUDPServer1.DefaultPort:=9001; //接收端口 IdUDPServer1.Active:=true; //啟用 IdUDPServer1的UDPRead事件代碼： var jpg:TJpegImage;begin try jpg := TJpegImage.Create; jpg.LoadFromStream(Adata); Image1.Picture.Bitmap.Assign(jpg); jpg.Free; exceptend;end; 視頻的傳輸是壓縮成JPG進行傳輸?shù)�，服務器端和接收端都用到了jpeg單元，所以use中都要加入jpeg。 完整的視頻聊天軟件客戶端代碼： unit Unit2; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, ExtCtrls,jpeg,IdSocketHandle; type TForm1 = class(TForm) Image1: TImage; IdUDPServer1: TIdUDPServer; Button1: TButton; procedure Button1Click(Sender: TObject); procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); begin IdUDPServer1.DefaultPort:=9001; //接收端口 IdUDPServer1.Active:=true; //啟用 end; procedure TForm1.IdUDPServer1UDPRead(Sender: TObject;AData: TStream; ABinding: TIdSocketHandle); var jpg:TJpegImage; begin try jpg := TJpegImage.Create; jpg.LoadFromStream(Adata); Image1.Picture.Bitmap.Assign(jpg); jpg.Free; except end; end; end. 好了，到這里程序代碼也就寫完了。在機上運行視頻聊天軟件服務器程序，點開始就開始進行視頻的傳輸了，在網(wǎng)絡上（網(wǎng)段為192.168.0.X，根據(jù)你的網(wǎng)絡設置IP地址，我這用的局域網(wǎng)測試）的任何一臺機上運行視頻聊天軟件客戶端點接收都能接收到視頻了。 如果要接收的視頻內(nèi)容清晰點，可以設置jpg.CompressionQuality:=10;（這個值可以是從1至100，數(shù)值越大，圖像越清晰，當然傳輸?shù)乃俣葧铰�，圖像越清晰，數(shù)據(jù)包就會越大，如果超出了UDP包限制，看到圖像就不完整了） |
5樓2010-12-02 16:40:36
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 286分人工智能專業(yè)請求調(diào)劑愿意跨考！ +3 | lemonzzn 2026-03-17 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 294求調(diào)劑材料與化工專碩 +14 | 陌の森林 2026-03-18 | 14/700 |
|
|
|
[考研] 324分 085600材料化工求調(diào)劑 +3 | llllkkkhh 2026-03-18 | 3/150 |
|
|
|
[考研] 一志愿中海洋材料工程專碩330分求調(diào)劑 +7 | 小材化本科 2026-03-18 | 7/350 |
|
|
|
[考研] 332求調(diào)劑 +3 | ydfyh 2026-03-17 | 3/150 |
|
|
|
[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +3 | 生物工程調(diào)劑 2026-03-17 | 7/350 |
|
|
|
[考研] 一志愿武理材料305分求調(diào)劑 +5 | 想上岸的鯉魚 2026-03-18 | 6/300 |
|
|
|
[考研] 085600材料與化工 +5 | 安全上岸！ 2026-03-16 | 5/250 |
|
|
|
[考研] 085601專碩，總分342求調(diào)劑，地區(qū)不限 +5 | share_joy 2026-03-16 | 5/250 |
|
|
|
[考研] 299求調(diào)劑 +5 | △小透明* 2026-03-17 | 5/250 |
|
|
|
[考研] 0703化學求調(diào)劑 總分331 +3 | ZY-05 2026-03-13 | 3/150 |
|
|
|
[考博] 26博士申請 +3 | 1042136743 2026-03-17 | 3/150 |
|
|
|
[考研] 332求調(diào)劑 +6 | Zz版 2026-03-13 | 6/300 |
|
|
|
[考研] 290求調(diào)劑 +3 | p asserby. 2026-03-15 | 4/200 |
|
|
|
[考研] 考研調(diào)劑 +3 | 淇ya_~ 2026-03-17 | 5/250 |
|
|
|
[考研] [導師推薦]西南科技大學國防/材料導師推薦 +3 | 尖角小荷 2026-03-16 | 6/300 |
|
|
|
[考研] 070300化學學碩求調(diào)劑 +6 | 太想進步了0608 2026-03-16 | 6/300 |
|
|
|
[考研] 327求調(diào)劑 +6 | 拾光任染 2026-03-15 | 11/550 |
|
|
|
[考研] 26考研一志愿中國石油大學(華東)305分求調(diào)劑 +3 | 嘉年新程 2026-03-15 | 3/150 |
|
|
|
[考研] 材料與化工 323 英一+數(shù)二+物化，一志愿：哈工大 本人本科雙一流 +4 | 自由的_飛翔 2026-03-13 | 5/250 |
|