 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2057 | 回復(fù): 8 | |||
| 【獎勵】 本帖被評價2次，作者zyj8119增加金幣 1.4 個 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
[資源]
【轉(zhuǎn)帖】用Delphi開發(fā)視頻聊天軟件 已有1人參與
|
|||
|
一、引言 我們知道視頻聊天軟件的關(guān)鍵技術(shù)在于采集視頻，并實(shí)時傳輸給聊天軟件在線的人。對于視頻的采集，這里采用微軟公司的關(guān)于數(shù)字視頻的一個軟件包VFW（Video for Windows）。相信很多人對它都很熟習(xí)，VFW能使應(yīng)用程序通過數(shù)字化設(shè)備從傳統(tǒng)的模擬視頻源得到數(shù)字化的視頻剪輯，VFW的一個關(guān)鍵思想是播放時不需要專用硬件。為了解決數(shù)字視頻數(shù)據(jù)量大的問題，需要對數(shù)據(jù)進(jìn)行壓縮，而VFW引進(jìn)了AVI的文件標(biāo)準(zhǔn)。該標(biāo)準(zhǔn)未規(guī)定如何對視頻進(jìn)行捕捉、壓縮及播放，僅規(guī)定視頻和音頻該如何存儲在硬盤上及在AVI文件中交替存儲視頻幀和與之相匹配的音頻數(shù)據(jù)。通過VFW，開發(fā)人員通過發(fā)送消息或設(shè)置屬性來捕捉、播放和編輯視頻剪輯。當(dāng)用戶在安裝VFW時，安裝程序會自動地安裝配置視頻所需要的組件，如設(shè)備驅(qū)動程序、視頻壓縮程序等。VFW主要由6個模塊組成。VFW功能模塊： AVICAP.DLL 包含執(zhí)行視頻捕捉的函數(shù)，它給AVI文件的I/O處理和視頻、音頻設(shè)備驅(qū)動程序提供一個高級接口 MSVIDEO.DLL 包含一套特殊的DrawDib函數(shù)，用來處理屏幕上的視頻操作 MCIAVI.DRV 包括對VFW的MCI命令解釋器的驅(qū)動程序 AVIFILE.DLL 包含由標(biāo)準(zhǔn)多媒體I/O（mmio）函數(shù)提供的更高的命令，用來訪問.AVI文件 ICM 壓縮管理器，用于管理的視頻壓縮/解壓縮的編譯碼器（Codec） ACM 音頻壓縮管理器，提供與ICM相似的服務(wù)，適用于波形音頻 對于視頻的傳輸，我們使用UDP來傳，因?yàn)閁DP傳輸速度快，TCP是面向連接的，建立連接時雙方需經(jīng)過三次握手，數(shù)據(jù)傳輸可靠，F(xiàn)TP、telnet等就是基于TCP的，UDP是面向非連接的，發(fā)出信息不需對方確認(rèn)，但這樣速度比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 |
回復(fù)此樓» 收錄本帖的淘帖專輯推薦
 程序語言箱 |
» 猜你喜歡
0817 化學(xué)工程 299分求調(diào)劑 有科研經(jīng)歷 有二區(qū)文章
已經(jīng)有17人回復(fù)
-
一志愿武漢理工材料工程專碩調(diào)劑
已經(jīng)有5人回復(fù)
-
0856調(diào)劑，是學(xué)校就去
已經(jīng)有7人回復(fù)
-
申博26年
已經(jīng)有3人回復(fù)
-
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑
已經(jīng)有10人回復(fù)
-
0703化學(xué)調(diào)劑 ，六級已過，有科研經(jīng)歷
已經(jīng)有12人回復(fù)
-
294求調(diào)劑材料與化工專碩
已經(jīng)有13人回復(fù)
-
288求調(diào)劑
已經(jīng)有14人回復(fù)
-
307求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑
已經(jīng)有5人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 有誰用過畫工藝流程圖的軟件
已經(jīng)有5人回復(fù)
- 【分享】別告訴我你會用WORD （搜索無重復(fù)）【已搜索無重復(fù)】
已經(jīng)有766人回復(fù)
- 【分享】幾款windows mobile手機(jī)小游戲推薦【已搜索無重】
已經(jīng)有36人回復(fù)
- 求軟件，想在單位內(nèi)部建視頻聊天服務(wù)器事！
已經(jīng)有7人回復(fù)
- 【分享】[12-07]精挑細(xì)選綠色軟件推薦下載[清清心整理]【已搜索無重復(fù)】
已經(jīng)有6人回復(fù)
- 【求助】ORCA, Turbomole, Gamess這些軟件比GAUSSIAN有什么優(yōu)勢嗎
已經(jīng)有4人回復(fù)
 聊天軟件客戶端 四、結(jié)束語 在這里，我把自己的一些經(jīng)驗(yàn)和代碼拿出來與大家一起分享，請高手不要扔雞蛋啊，我真的是花了不少力氣的！看了這篇文章后，相信你也可以自己動手做一個網(wǎng)絡(luò)視頻聊天軟件，也可以做個類似MSN、QQ、E話通一樣的視頻聊天軟件，有了網(wǎng)絡(luò)視頻就可以在千里之外和家人進(jìn)行可視通訊了。上面的示例程序還有很多地方需要改進(jìn)的，比如視頻的壓縮可以用其它視頻壓縮編碼器進(jìn)行壓縮，這里只講了傳輸圖像，并沒有聲音，再改一下就才能傳輸音視頻了，有興趣的朋友不妨自己動手去試一試。 |
7樓2010-12-02 16:42:52
|
二、視頻聊天軟件的開發(fā)步驟 2.1 創(chuàng)建捕捉窗口，采集視頻 在進(jìn)行視頻捕捉之前必需要先創(chuàng)建一個捕捉窗口，并應(yīng)以此為基礎(chǔ)進(jìn)行所有的捕捉及設(shè)置操作。捕捉窗口可用AVICap窗口類的"CapCreateCaptureWindow"函數(shù)來創(chuàng)建，其窗口風(fēng)格可設(shè)置為WSCHILD和WS_VISIBLE參數(shù)。 有了捕捉窗口，我們就可以將視頻流和音頻流捕捉到一個AVI文件中；動態(tài)地同視頻和音頻輸入器件連接或斷開；用Overlay或Preview模式對輸入的視頻流進(jìn)行實(shí)時顯示，設(shè)置捕捉速率，顯示控制視頻源、視頻格式及視頻壓縮的對話框，創(chuàng)建、保存或載入調(diào)色板，將圖像和相關(guān)的調(diào)色板拷貝到剪貼板，將捕捉的單幀圖像保存到BMP格式文件中。 2.2 捕捉窗口和驅(qū)動程序的關(guān)聯(lián) 僅僅一個捕捉窗口是不能工作起來的，它必須要與一個設(shè)備相關(guān)聯(lián)才能取得視頻信號。用函數(shù)CapDriverConnect可使捕捉窗與其設(shè)備驅(qū)動程序相關(guān)聯(lián)。 2.3設(shè)置視頻設(shè)備的屬性 通過設(shè)置TcaptureParms結(jié)構(gòu)變量的各個成員變量，可以控制設(shè)備的采樣頻率、中斷采樣按鍵、狀態(tài)行為。設(shè)置好TcaptureParms結(jié)構(gòu)變量后，可以用函CapCaptureSetSetup使設(shè)置生效。之后還可以用CapPreviewScale、CapPreviewRate設(shè)置預(yù)覽的比例與速度，也可以直接使用設(shè)備的默認(rèn)值。 2.4打開預(yù)覽 利用函數(shù)CapOverlay可選擇是否采用疊加模式預(yù)覽，以使系統(tǒng)資源占用小，視頻顯示速度加快。然后用CapPreview啟動預(yù)覽功能，這時就可以在屏幕上看到來自攝像頭的圖像了。 2.5使用捕捉窗回調(diào)函數(shù) 前的四個步驟就可以建立一個基本的視頻捕捉程序了，如果想自己處理從設(shè)備捕捉到的視頻數(shù)據(jù)，則要使用捕捉窗回調(diào)函數(shù)來處理，比如一幀一幀地獲得視頻數(shù)據(jù)，也可以以流的方式獲得視頻數(shù)據(jù)等等。 2.6傳輸視頻流 使用回調(diào)函數(shù)可以取得第一幀的數(shù)據(jù)，我們使用網(wǎng)絡(luò)技術(shù)將數(shù)據(jù)發(fā)給其它機(jī)器，其它機(jī)品將接收的數(shù)據(jù)顯示出來。 2.7接收視頻 接收UDP數(shù)據(jù)，同時將接收到的數(shù)據(jù)回顯出來，這樣就可以看到遠(yuǎn)處傳來的視頻了。 三、用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)絡(luò)視頻聊天軟件，聊天軟件分兩個程序，一個是視頻采集程序并進(jìn)行UDP廣播的視頻聊天軟件服務(wù)器，另一個是接收UDP廣播程序顯示傳來的視頻數(shù)據(jù)的視頻聊天軟件客戶端。 3.1建立視頻聊天軟件服務(wù)器 |
2樓2010-12-02 16:37:45
3樓2010-12-02 16:38:20
|
3.1.2在Form1上放置一個Tpanel控件，該控件用于顯示視頻。之后再放置兩個Tbutton控件，一個caption為"開始",另一個Name為"停止"，放置一個UDP組件，這里用indy的IdUDPClient用來傳輸視頻，如圖示：  3.1.3定義全局變量 CapWnd:THandle; //定義捕捉窗句柄 CapParms:TcaptureParms; //用于設(shè)置設(shè)備屬性的結(jié)構(gòu)變量 BMPINFO:TBitmapInfo; //BMP圖像信息 3.1.4編碼事件代碼 開始按鈕代碼： CapWnd := capCreateCaptureWindow('我的窗口', WS_VISIBLE or WS_CHILD,//窗口樣式 0, //X坐標(biāo) 0, //Y坐標(biāo) 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; //讓設(shè)置生效 CapCaptureSetSetup(capWnd,@CapParms,sizeof(TCAPTUREPARMS)); CapPreviewRate(capWnd,33); //設(shè)置預(yù)覽視頻的頻率 CapCaptureSequenceNoFile(capWnd); //如果要捕捉視頻流，則要使用函數(shù)來指定不生成文件，不然會自動生成AVI文件 CapDriverConnect(CapWnd,0); //連接攝像頭設(shè)備，第二個參數(shù)是個序號，當(dāng)系統(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; //因?yàn)閁DP數(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ū)動器斷開 完整的視頻聊天軟件服務(wù)器代碼： 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; //用于設(shè)置設(shè)備屬性的結(jié)構(gòu)變量 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; //因?yàn)閁DP數(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坐標(biāo) 0, //Y坐標(biāo) 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; //讓設(shè)置生效 CapCaptureSetSetup(capWnd,@CapParms,sizeof(TCAPTUREPARMS)); CapPreviewRate(capWnd,33); //設(shè)置預(yù)覽視頻的頻率 CapCaptureSequenceNoFile(capWnd); //如果要捕捉視頻流，則要使用函數(shù)來指定不生成文件，不然會自動生成AVI文件 CapDriverConnect(CapWnd,0); //連接攝像頭設(shè)備，第二個參數(shù)是個序號，當(dāng)系統(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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 288求調(diào)劑 +14 | 于海海海海 2026-03-19 | 14/700 |
|
|---|---|---|---|---|
|
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +3 | 葵梓衛(wèi)隊 2026-03-18 | 5/250 |
|
|
|
[考研] 一志愿西安交通大學(xué)材料工程專業(yè) 282分求調(diào)劑 +5 | 楓橋ZL 2026-03-18 | 7/350 |
|
|
|
[考研] 304求調(diào)劑 +3 | 曼殊2266 2026-03-18 | 3/150 |
|
|
|
[考研] 085600材料與化工調(diào)劑 324分 +10 | llllkkkhh 2026-03-18 | 12/600 |
|
|
|
[考研] 一志愿中海洋材料工程專碩330分求調(diào)劑 +7 | 小材化本科 2026-03-18 | 7/350 |
|
|
|
[考研] 274求調(diào)劑 +6 | S.H1 2026-03-18 | 6/300 |
|
|
|
[考研] 304求調(diào)劑 +6 | 司空. 2026-03-18 | 6/300 |
|
|
|
[考研] 085700資源與環(huán)境308求調(diào)劑 +3 | 墨墨漠 2026-03-18 | 3/150 |
|
|
|
[考研] 085601專碩，總分342求調(diào)劑，地區(qū)不限 +5 | share_joy 2026-03-16 | 5/250 |
|
|
|
[考研] 收復(fù)試調(diào)劑生 +4 | 雨后秋荷 2026-03-18 | 4/200 |
|
|
|
[考博] 26博士申請 +3 | 1042136743 2026-03-17 | 3/150 |
|
|
|
[考研] 211本，11408一志愿中科院277分，曾在中科院自動化所實(shí)習(xí) +6 | Losir 2026-03-12 | 7/350 |
|
|
|
[考研] 275求調(diào)劑 +4 | 太陽花天天開心 2026-03-16 | 4/200 |
|
|
|
[考研] 274求調(diào)劑 +5 | 時間點(diǎn) 2026-03-13 | 5/250 |
|
|
|
[考研]
 11408 一志愿西電，277分求調(diào)劑
+3
|
zhouzhen654 2026-03-16 | 3/150 |
|
|
|
[考研] 333求調(diào)劑 +3 | 文思客 2026-03-16 | 7/350 |
|
|
|
[考研] 321求調(diào)劑 +5 | 大米飯！ 2026-03-15 | 5/250 |
|
|
|
[考研] 中科大材料專碩319求調(diào)劑 +3 | 孟鑫材料 2026-03-13 | 3/150 |
|
|
|
[碩博家園] 085600 260分求調(diào)劑 +3 | 天空還下雨么 2026-03-13 | 5/250 |
|