版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門(mén)版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

【獎(jiǎng)勵(lì)】本帖被評(píng)價(jià)2次，作者zyj8119增加金幣 1.4 個(gè)

zyj8119

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
帖子: 2936
在線: 1329.4小時(shí)
蟲(chóng)號(hào): 664177

[資源] 【轉(zhuǎn)帖】用Delphi開(kāi)發(fā)視頻聊天軟件已有1人參與

一、引言

　　我們知道視頻聊天軟件的關(guān)鍵技術(shù)在于采集視頻，并實(shí)時(shí)傳輸給聊天軟件在線的人。對(duì)于視頻的采集，這里采用微軟公司的關(guān)于數(shù)字視頻的一個(gè)軟件包VFW（Video for Windows）。相信很多人對(duì)它都很熟習(xí)，VFW能使應(yīng)用程序通過(guò)數(shù)字化設(shè)備從傳統(tǒng)的模擬視頻源得到數(shù)字化的視頻剪輯，VFW的一個(gè)關(guān)鍵思想是播放時(shí)不需要專用硬件。為了解決數(shù)字視頻數(shù)據(jù)量大的問(wèn)題，需要對(duì)數(shù)據(jù)進(jìn)行壓縮，而VFW引進(jìn)了AVI的文件標(biāo)準(zhǔn)。該標(biāo)準(zhǔn)未規(guī)定如何對(duì)視頻進(jìn)行捕捉、壓縮及播放，僅規(guī)定視頻和音頻該如何存儲(chǔ)在硬盤(pán)上及在AVI文件中交替存儲(chǔ)視頻幀和與之相匹配的音頻數(shù)據(jù)。通過(guò)VFW，開(kāi)發(fā)人員通過(guò)發(fā)送消息或設(shè)置屬性來(lái)捕捉、播放和編輯視頻剪輯。當(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ù)，用來(lái)處理屏幕上的視頻操作

　　MCIAVI.DRV 包括對(duì)VFW的MCI命令解釋器的驅(qū)動(dòng)程序

　　AVIFILE.DLL 包含由標(biāo)準(zhǔn)多媒體I/O（mmio）函數(shù)提供的更高的命令，用來(lái)訪問(wèn).AVI文件

　　ICM 壓縮管理器，用于管理的視頻壓縮/解壓縮的編譯碼器（Codec）

　　ACM 音頻壓縮管理器，提供與ICM相似的服務(wù)，適用于波形音頻

　　對(duì)于視頻的傳輸，我們使用UDP來(lái)傳，因?yàn)閁DP傳輸速度快，TCP是面向連接的，建立連接時(shí)雙方需經(jīng)過(guò)三次握手，數(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ù)此樓

1樓 2010-12-02 16:37:27

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
帖子: 2936
在線: 1329.4小時(shí)
蟲(chóng)號(hào): 664177

引用回帖:

Originally posted by zyj8119 at 2010-12-02 16:37:27:
一、引言

　　我們知道視頻聊天軟件的關(guān)鍵技術(shù)在于采集視頻，并實(shí)時(shí)傳輸給聊天軟件在線的人。對(duì)于視頻的采集，這里采用微軟公司的關(guān)于數(shù)字視頻的一個(gè)軟件包VFW（Video for Windows）。相信很多人對(duì)它都很熟習(xí)， ...

二、視頻聊天軟件的開(kāi)發(fā)步驟

　　2.1 創(chuàng)建捕捉窗口，采集視頻

　　在進(jìn)行視頻捕捉之前必需要先創(chuàng)建一個(gè)捕捉窗口，并應(yīng)以此為基礎(chǔ)進(jìn)行所有的捕捉及設(shè)置操作。捕捉窗口可用AVICap窗口類的"CapCreateCaptureWindow"函數(shù)來(lái)創(chuàng)建，其窗口風(fēng)格可設(shè)置為WSCHILD和WS_VISIBLE參數(shù)。

　　有了捕捉窗口，我們就可以將視頻流和音頻流捕捉到一個(gè)AVI文件中；動(dòng)態(tài)地同視頻和音頻輸入器件連接或斷開(kā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è)捕捉窗口是不能工作起來(lái)的，它必須要與一個(gè)設(shè)備相關(guān)聯(lián)才能取得視頻信號(hào)。用函數(shù)CapDriverConnect可使捕捉窗與其設(shè)備驅(qū)動(dòng)程序相關(guān)聯(lián)。

　　2.3設(shè)置視頻設(shè)備的屬性

　　通過(guò)設(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打開(kāi)預(yù)覽

　　利用函數(shù)CapOverlay可選擇是否采用疊加模式預(yù)覽，以使系統(tǒng)資源占用小，視頻顯示速度加快。然后用CapPreview啟動(dòng)預(yù)覽功能，這時(shí)就可以在屏幕上看到來(lái)自攝像頭的圖像了。

　　2.5使用捕捉窗回調(diào)函數(shù)

　　前的四個(gè)步驟就可以建立一個(gè)基本的視頻捕捉程序了，如果想自己處理從設(shè)備捕捉到的視頻數(shù)據(jù)，則要使用捕捉窗回調(diào)函數(shù)來(lái)處理，比如一幀一幀地獲得視頻數(shù)據(jù)，也可以以流的方式獲得視頻數(shù)據(jù)等等。

　　2.6傳輸視頻流

　　使用回調(diào)函數(shù)可以取得第一幀的數(shù)據(jù)，我們使用網(wǎng)絡(luò)技術(shù)將數(shù)據(jù)發(fā)給其它機(jī)器，其它機(jī)品將接收的數(shù)據(jù)顯示出來(lái)。

　　2.7接收視頻

　　接收UDP數(shù)據(jù)，同時(shí)將接收到的數(shù)據(jù)回顯出來(lái)，這樣就可以看到遠(yuǎn)處傳來(lái)的視頻了。

　　三、用Delphi編寫(xiě)程序代碼

　　微軟的VFW SDK只有VC和VB版，并沒(méi)有Delphi版，不過(guò)在網(wǎng)上可以找到VFW.PAS文件，F(xiàn)W.PAS文件聲明了調(diào)用DLL中的各個(gè)函數(shù)和變量。（注：源代碼中提供了VFW.PAS文件）

　　下面就以Delphi7開(kāi)發(fā)一個(gè)網(wǎng)絡(luò)視頻聊天軟件，聊天軟件分兩個(gè)程序，一個(gè)是視頻采集程序并進(jìn)行UDP廣播的視頻聊天軟件服務(wù)器，另一個(gè)是接收UDP廣播程序顯示傳來(lái)的視頻數(shù)據(jù)的視頻聊天軟件客戶端。

　　3.1建立視頻聊天軟件服務(wù)器

贊一下

回復(fù)此樓

2樓2010-12-02 16:37:45

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
帖子: 2936
在線: 1329.4小時(shí)
蟲(chóng)號(hào): 664177

引用回帖:

Originally posted by zyj8119 at 2010-12-02 16:37:45:

二、視頻聊天軟件的開(kāi)發(fā)步驟

　　2.1 創(chuàng)建捕捉窗口，采集視頻

　　在進(jìn)行視頻捕捉之前必需要先創(chuàng)建一個(gè)捕捉窗口，并應(yīng)以此為基礎(chǔ)進(jìn)行所有的捕捉及設(shè)置操作。捕捉窗口可用AVICap窗口類的"CapCreateCa ...

贊一下

回復(fù)此樓

3樓2010-12-02 16:38:20

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
帖子: 2936
在線: 1329.4小時(shí)
蟲(chóng)號(hào): 664177

引用回帖:

Originally posted by zyj8119 at 2010-12-02 16:38:20:

3.1.2在Form1上放置一個(gè)Tpanel控件，該控件用于顯示視頻。之后再放置兩個(gè)Tbutton控件，一個(gè)caption為"開(kāi)始",另一個(gè)Name為"停止"，放置一個(gè)UDP組件，這里用indy的IdUDPClient用來(lái)傳輸視頻，如圖示：

　3.1.3定義全局變量

CapWnd:THandle; //定義捕捉窗句柄
CapParms:TcaptureParms; //用于設(shè)置設(shè)備屬性的結(jié)構(gòu)變量
BMPINFO:TBitmapInfo; //BMP圖像信息

3.1.4編碼事件代碼
　
　　開(kāi)始按鈕代碼：

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ù)來(lái)指定不生成文件，不然會(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ù)包有大小限制，這里如果超出部分，就沒(méi)有傳輸，完全可以發(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)器斷開(kāi)

　　完整的視頻聊天軟件服務(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ù)包有大小限制，這里如果超出部分，就沒(méi)有傳輸，完全可以發(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ù)來(lái)指定不生成文件，不然會(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)器斷開(kāi)
end;
end.

贊一下

回復(fù)此樓

4樓2010-12-02 16:39:33

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
帖子: 2936
在線: 1329.4小時(shí)
蟲(chóng)號(hào): 664177

引用回帖:

Originally posted by zyj8119 at 2010-12-02 16:39:33:

3.1.2在Form1上放置一個(gè)Tpanel控件，該控件用于顯示視頻。之后再放置兩個(gè)Tbutton控件，一個(gè)caption為"開(kāi)始",另一個(gè)Name為"停止"，放置一個(gè)UDP組件，這里用indy的IdUDPClient用來(lái)傳輸視頻， ...

3.2建立視頻聊天軟件客戶端

3.2.1新建一個(gè)工程，命名為Project2.dpr

　　3.2.2在程序窗口Form2上放置一個(gè)image控件，該控件用于接收的圖像內(nèi)容，再放置一個(gè)Tbutton控件，caption為"接收",，放置一個(gè)UDPServer組件，這里用indy的IdUDPServer用來(lái)接收網(wǎng)絡(luò)視頻，如圖示：

　　接收按鈕代碼：

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進(jìn)行傳輸?shù)模⻊?wù)器端和接收端都用到了jpeg單元，所以u(píng)se中都要加入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.

　　好了，到這里程序代碼也就寫(xiě)完了。在機(jī)上運(yùn)行視頻聊天軟件服務(wù)器程序，點(diǎn)開(kāi)始就開(kāi)始進(jìn)行視頻的傳輸了，在網(wǎng)絡(luò)上（網(wǎng)段為192.168.0.X，根據(jù)你的網(wǎng)絡(luò)設(shè)置IP地址，我這用的局域網(wǎng)測(cè)試）的任何一臺(tái)機(jī)上運(yùn)行視頻聊天軟件客戶端點(diǎn)接收都能接收到視頻了。

　　如果要接收的視頻內(nèi)容清晰點(diǎn)，可以設(shè)置jpg.CompressionQuality:=10;（這個(gè)值可以是從1至100，數(shù)值越大，圖像越清晰，當(dāng)然傳輸?shù)乃俣葧?huì)越慢了，圖像越清晰，數(shù)據(jù)包就會(huì)越大，如果超出了UDP包限制，看到圖像就不完整了）

贊一下

回復(fù)此樓

5樓2010-12-02 16:40:36

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
帖子: 2936
在線: 1329.4小時(shí)
蟲(chóng)號(hào): 664177

引用回帖:

Originally posted by zyj8119 at 2010-12-02 16:40:36:

3.2建立視頻聊天軟件客戶端

3.2.1新建一個(gè)工程，命名為Project2.dpr

　　3.2.2在程序窗口Form2上放置一個(gè)image控件，該控件用于接收的圖像內(nèi) ...

視頻聊天軟件服務(wù)器

贊一下

回復(fù)此樓

6樓2010-12-02 16:41:33

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
帖子: 2936
在線: 1329.4小時(shí)
蟲(chóng)號(hào): 664177

引用回帖:

Originally posted by zyj8119 at 2010-12-02 16:41:33:

視頻聊天軟件服務(wù)器

聊天軟件客戶端
　四、結(jié)束語(yǔ)

　　在這里，我把自己的一些經(jīng)驗(yàn)和代碼拿出來(lái)與大家一起分享，請(qǐng)高手不要扔雞蛋啊，我真的是花了不少力氣的！看了這篇文章后，相信你也可以自己動(dòng)手做一個(gè)網(wǎng)絡(luò)視頻聊天軟件，也可以做個(gè)類似MSN、QQ、E話通一樣的視頻聊天軟件，有了網(wǎng)絡(luò)視頻就可以在千里之外和家人進(jìn)行可視通訊了。上面的示例程序還有很多地方需要改進(jìn)的，比如視頻的壓縮可以用其它視頻壓縮編碼器進(jìn)行壓縮，這里只講了傳輸圖像，并沒(méi)有聲音，再改一下就才能傳輸音視頻了，有興趣的朋友不妨自己動(dòng)手去試一試。

贊一下

回復(fù)此樓

7樓2010-12-02 16:42:52

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

fdy0910

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 212
帖子: 1
在線: 1.3小時(shí)
蟲(chóng)號(hào): 1715952

★★★ 三星級(jí),支持鼓勵(lì)

不錯(cuò)

回復(fù)此樓

8樓2012-06-19 10:21:19

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wangybcn

禁蟲(chóng) (正式寫(xiě)手)

本帖內(nèi)容被屏蔽

9樓2012-06-20 13:03:25

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 zyj8119 的主題更新

返回列表

☆ 無(wú)星級(jí) ★ 一星級(jí) ★★★ 三星級(jí) ★★★★★ 五星級(jí)

普通表情龍兔虎貓高級(jí)回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[碩博家園] 求調(diào)劑有機(jī)化學(xué)考研356分 +3	Nadiums 2026-03-25	4/200	2026-03-29 00:50 by 544594351
[考研] 304求調(diào)劑 +6	曼殊2266 2026-03-27	6/300	2026-03-28 14:10 by 唐沐兒
[考研] 調(diào)劑 +3	好好讀書(shū)。 2026-03-28	3/150	2026-03-28 12:04 by 王保杰33
[考研] 291求調(diào)劑 +15	hhhhxn.. 2026-03-23	21/1050	2026-03-28 11:26 by self2008
[考研] 材料與化工考研調(diào)劑 +17	孅華 2026-03-22	17/850	2026-03-28 08:35 by WYUMater
[考研] 張芳銘-中國(guó)農(nóng)業(yè)大學(xué)-環(huán)境工程專碩-298 +4	手機(jī)用戶 2026-03-26	4/200	2026-03-28 07:17 by mmm just
[考研] 材料求調(diào)劑一志愿哈工大總分298分，前三科223分 +5	dongfang59 2026-03-27	5/250	2026-03-28 04:53 by wxiongid
[考研] 340求調(diào)劑 +5	jhx777 2026-03-27	5/250	2026-03-28 04:18 by fmesaito
[考研] 295求調(diào)劑 +5	1428151015 2026-03-27	6/300	2026-03-28 04:04 by fmesaito
[考研] 求調(diào)劑 +4	零八# 2026-03-27	4/200	2026-03-27 18:07 by yu221
[考研] 化學(xué)308分求調(diào)劑 +8	你好明天你好 2026-03-23	9/450	2026-03-27 14:01 by 楊光于青云
[考研] 一志愿吉大071010，316分求調(diào)劑 +3	xgbiknn 2026-03-27	3/150	2026-03-27 10:36 by guoweigw
[考研] 321求調(diào)劑 +6	wasdssaa 2026-03-26	6/300	2026-03-26 20:57 by sanrepian
[考研] 材料調(diào)劑 5+4	想要一壺桃花水 2026-03-25	10/500	2026-03-26 19:56 by 不吃魚(yú)的貓
[考研] 340求調(diào)劑 +3	Amber00 2026-03-26	3/150	2026-03-26 18:57 by 不吃魚(yú)的貓
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5	軒小寧—— 2026-03-26	5/250	2026-03-26 12:05 by i_cooler
[考研] 293求調(diào)劑 +7	加一一九 2026-03-24	7/350	2026-03-25 12:02 by userper
[考研] 一志愿北化315 求調(diào)劑 +3	akrrain 2026-03-24	3/150	2026-03-24 19:35 by 了了了了。。
[考研] 材料考研調(diào)劑生 +3	黃粱一夢(mèng)千年 2026-03-24	3/150	2026-03-24 17:00 by barlinike
[考研] 一志愿河北工業(yè)大學(xué)0817化工278分求調(diào)劑 +7	jhybd 2026-03-23	12/600	2026-03-24 09:03 by jhybd

24小時(shí)熱門(mén)版塊排行榜

[資源] 【轉(zhuǎn)帖】用Delphi開(kāi)發(fā)視頻聊天軟件 已有1人參與

» 收錄本帖的淘帖專輯推薦

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

★★★ 三星級(jí),支持鼓勵(lì)

[資源] 【轉(zhuǎn)帖】用Delphi開(kāi)發(fā)視頻聊天軟件已有1人參與

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: