 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2081 | 回復(fù): 8 | |||
| 【獎(jiǎng)勵(lì)】 本帖被評(píng)價(jià)2次，作者zyj8119增加金幣 1.4 個(gè) | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
[資源]
【轉(zhuǎn)帖】用Delphi開發(fā)視頻聊天軟件 已有1人參與
|
|||
|
一、引言 我們知道視頻聊天軟件的關(guān)鍵技術(shù)在于采集視頻，并實(shí)時(shí)傳輸給聊天軟件在線的人。對(duì)于視頻的采集，這里采用微軟公司的關(guān)于數(shù)字視頻的一個(gè)軟件包VFW（Video for Windows）。相信很多人對(duì)它都很熟習(xí)，VFW能使應(yīng)用程序通過數(shù)字化設(shè)備從傳統(tǒng)的模擬視頻源得到數(shù)字化的視頻剪輯，VFW的一個(gè)關(guān)鍵思想是播放時(shí)不需要專用硬件。為了解決數(shù)字視頻數(shù)據(jù)量大的問題，需要對(duì)數(shù)據(jù)進(jìn)行壓縮，而VFW引進(jìn)了AVI的文件標(biāo)準(zhǔn)。該標(biāo)準(zhǔn)未規(guī)定如何對(duì)視頻進(jìn)行捕捉、壓縮及播放，僅規(guī)定視頻和音頻該如何存儲(chǔ)在硬盤上及在AVI文件中交替存儲(chǔ)視頻幀和與之相匹配的音頻數(shù)據(jù)。通過VFW，開發(fā)人員通過發(fā)送消息或設(shè)置屬性來捕捉、播放和編輯視頻剪輯。當(dāng)用戶在安裝VFW時(shí)，安裝程序會(huì)自動(dòng)地安裝配置視頻所需要的組件，如設(shè)備驅(qū)動(dòng)程序、視頻壓縮程序等。VFW主要由6個(gè)模塊組成。VFW功能模塊： AVICAP.DLL 包含執(zhí)行視頻捕捉的函數(shù)，它給AVI文件的I/O處理和視頻、音頻設(shè)備驅(qū)動(dòng)程序提供一個(gè)高級(jí)接口 MSVIDEO.DLL 包含一套特殊的DrawDib函數(shù)，用來處理屏幕上的視頻操作 MCIAVI.DRV 包括對(duì)VFW的MCI命令解釋器的驅(qū)動(dòng)程序 AVIFILE.DLL 包含由標(biāo)準(zhǔn)多媒體I/O（mmio）函數(shù)提供的更高的命令，用來訪問.AVI文件 ICM 壓縮管理器，用于管理的視頻壓縮/解壓縮的編譯碼器（Codec） ACM 音頻壓縮管理器，提供與ICM相似的服務(wù)，適用于波形音頻 對(duì)于視頻的傳輸，我們使用UDP來傳，因?yàn)閁DP傳輸速度快，TCP是面向連接的，建立連接時(shí)雙方需經(jīng)過三次握手，數(shù)據(jù)傳輸可靠，F(xiàn)TP、telnet等就是基于TCP的，UDP是面向非連接的，發(fā)出信息不需對(duì)方確認(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ù)此樓» 收錄本帖的淘帖專輯推薦
 程序語言箱 |
» 猜你喜歡
070300一志愿211，312分求調(diào)劑院校
已經(jīng)有4人回復(fù)
-
332求調(diào)劑
已經(jīng)有10人回復(fù)
-
279求調(diào)劑
已經(jīng)有6人回復(fù)
-
310求調(diào)劑
已經(jīng)有9人回復(fù)
-
材料專碩 085600求調(diào)劑
已經(jīng)有3人回復(fù)
-
0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可
已經(jīng)有12人回復(fù)
-
生物技術(shù)與工程
已經(jīng)有8人回復(fù)
-
085602 化學(xué)工程專碩 340分求調(diào)劑
已經(jīng)有4人回復(fù)
-
292求調(diào)劑
已經(jīng)有8人回復(fù)
-
297求調(diào)劑
已經(jīng)有13人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 有誰用過畫工藝流程圖的軟件
已經(jīng)有5人回復(fù)
- 【分享】別告訴我你會(huì)用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)勢(shì)嗎
已經(jīng)有4人回復(fù)
6樓2010-12-02 16:41:33
|
二、視頻聊天軟件的開發(fā)步驟 2.1 創(chuàng)建捕捉窗口，采集視頻 在進(jìn)行視頻捕捉之前必需要先創(chuàng)建一個(gè)捕捉窗口，并應(yīng)以此為基礎(chǔ)進(jìn)行所有的捕捉及設(shè)置操作。捕捉窗口可用AVICap窗口類的"CapCreateCaptureWindow"函數(shù)來創(chuàng)建，其窗口風(fēng)格可設(shè)置為WSCHILD和WS_VISIBLE參數(shù)。 有了捕捉窗口，我們就可以將視頻流和音頻流捕捉到一個(gè)AVI文件中；動(dòng)態(tài)地同視頻和音頻輸入器件連接或斷開；用Overlay或Preview模式對(duì)輸入的視頻流進(jìn)行實(shí)時(shí)顯示，設(shè)置捕捉速率，顯示控制視頻源、視頻格式及視頻壓縮的對(duì)話框，創(chuàng)建、保存或載入調(diào)色板，將圖像和相關(guān)的調(diào)色板拷貝到剪貼板，將捕捉的單幀圖像保存到BMP格式文件中。 2.2 捕捉窗口和驅(qū)動(dòng)程序的關(guān)聯(lián) 僅僅一個(gè)捕捉窗口是不能工作起來的，它必須要與一個(gè)設(shè)備相關(guān)聯(lián)才能取得視頻信號(hào)。用函數(shù)CapDriverConnect可使捕捉窗與其設(shè)備驅(qū)動(dòng)程序相關(guān)聯(lián)。 2.3設(shè)置視頻設(shè)備的屬性 通過設(shè)置TcaptureParms結(jié)構(gòu)變量的各個(gè)成員變量，可以控制設(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啟動(dòng)預(yù)覽功能，這時(shí)就可以在屏幕上看到來自攝像頭的圖像了。 2.5使用捕捉窗回調(diào)函數(shù) 前的四個(gè)步驟就可以建立一個(gè)基本的視頻捕捉程序了，如果想自己處理從設(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í)將接收到的數(shù)據(jù)回顯出來，這樣就可以看到遠(yuǎn)處傳來的視頻了。 三、用Delphi編寫程序代碼 微軟的VFW SDK只有VC和VB版，并沒有Delphi版，不過在網(wǎng)上可以找到VFW.PAS文件，F(xiàn)W.PAS文件聲明了調(diào)用DLL中的各個(gè)函數(shù)和變量。（注：源代碼中提供了VFW.PAS文件） 下面就以Delphi7開發(fā)一個(gè)網(wǎng)絡(luò)視頻聊天軟件，聊天軟件分兩個(gè)程序，一個(gè)是視頻采集程序并進(jìn)行UDP廣播的視頻聊天軟件服務(wù)器，另一個(gè)是接收UDP廣播程序顯示傳來的視頻數(shù)據(jù)的視頻聊天軟件客戶端。 3.1建立視頻聊天軟件服務(wù)器 |
2樓2010-12-02 16:37:45
3樓2010-12-02 16:38:20
|
3.1.2在Form1上放置一個(gè)Tpanel控件，該控件用于顯示視頻。之后再放置兩個(gè)Tbutton控件，一個(gè)caption為"開始",另一個(gè)Name為"停止"，放置一個(gè)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ù)來指定不生成文件，不然會(huì)自動(dòng)生成AVI文件 CapDriverConnect(CapWnd,0); //連接攝像頭設(shè)備，第二個(gè)參數(shù)是個(gè)序號(hào)，當(dāng)系統(tǒng)中裝有多個(gè)顯示驅(qū)動(dòng)程序時(shí)，其值分別依次為0到總個(gè)數(shù)如果有多個(gè)攝像頭，那么就是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ū)動(dòng)器斷開 完整的視頻聊天軟件服務(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ù)來指定不生成文件，不然會(huì)自動(dòng)生成AVI文件 CapDriverConnect(CapWnd,0); //連接攝像頭設(shè)備，第二個(gè)參數(shù)是個(gè)序號(hào)，當(dāng)系統(tǒng)中裝有多個(gè)顯示驅(qū)動(dòng)程序時(shí)，其值分別依次為0到總個(gè)數(shù)如果有多個(gè)攝像頭，那么就是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ū)動(dòng)器斷開 end; end. |
4樓2010-12-02 16:39:33
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求調(diào)劑 +10 | 張zz111 2026-03-27 | 11/550 |
|
|---|---|---|---|---|
|
[考研] 295求調(diào)劑 +5 | wei-5 2026-03-26 | 5/250 |
|
|
|
[考研] 材料與化工328分調(diào)劑 +9 | 。，。，。，。i 2026-03-23 | 9/450 |
|
|
|
[考研] 085600，材料與化工321分求調(diào)劑 +10 | 大饞小子 2026-03-28 | 10/500 |
|
|
|
[考研] 317分 一志愿南理工材料工程 本科湖工大 求調(diào)劑 +10 | 芋泥小鈴鐺 2026-03-28 | 10/500 |
|
|
|
[考研] 311求調(diào)劑 +6 | 冬十三 2026-03-24 | 6/300 |
|
|
|
[考研] 一志愿：西北大學(xué)，英一數(shù)一408-284分求調(diào)劑 +4 | 12.27 2026-03-27 | 4/200 |
|
|
|
[考研] 2026年華南師范大學(xué)歡迎化學(xué)，化工，生物，生醫(yī)工等專業(yè)優(yōu)秀學(xué)子加入！ +3 | llss0711 2026-03-28 | 6/300 |
|
|
|
[考研] 356求調(diào)劑 +3 | gysy?s?a 2026-03-28 | 3/150 |
|
|
|
[考研] 復(fù)試調(diào)劑 +3 | raojunqi0129 2026-03-28 | 3/150 |
|
|
|
[考研]
 一志愿廈門大學(xué)化學(xué)學(xué)碩307求調(diào)劑
+10
|
y7czhao 2026-03-26 | 10/500 |
|
|
|
[考研] 一志愿南京航空航天大學(xué)材料學(xué)碩求調(diào)劑 +3 | @taotao 2026-03-28 | 3/150 |
|
|
|
[考研] 安徽大學(xué)專碩生物與醫(yī)藥專業(yè)(086000)324分，英語已過四六級(jí)，六級(jí)521，求調(diào)劑 +4 | 美味可樂雞翅 2026-03-26 | 4/200 |
|
|
|
[考研] 305求調(diào)劑 +5 | 哇盧卡庫 2026-03-26 | 5/250 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +4 | 崔wj 2026-03-26 | 4/200 |
|
|
|
[考研] 343求調(diào)劑 +4 | 贈(zèng)我一本書 2026-03-23 | 4/200 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑 +3 | 丹青奶蓋 2026-03-26 | 5/250 |
|
|
|
[考研] 材料專碩 335 分求調(diào)劑 +4 | 拒絕冷暴力 2026-03-25 | 4/200 |
|
|
|
[考研] 277分求調(diào)劑，跨調(diào)材料 +3 | 考研調(diào)劑lxh 2026-03-24 | 3/150 |
|
|
|
[考研] 344求調(diào)劑 +3 | desto 2026-03-24 | 3/150 |
|