攝影師源碼
1. 急求在線等 數碼相機拍攝的結婚錄像刻錄成DVD怎麼弄
哈哈～最近我也在做這個
主要是考慮到下載了很多電影捨不得刪除，但內存有限啊，所以就希望可以刻錄到光碟上，網上買的很多碟那樣正如。
經過壓縮處理的視頻文件~
MPEG也是Motion Picture Experts Group 的縮寫。這類格式包括了 MPEG-1, MPEG-2 和 MPEG-4在內的多種視頻格式。MPEG-1相信是大家接觸得最多的了，因為目前其正在被廣泛地應用在 VCD 的製作和一些視頻片段下載的網路應用上面，大部分的 VCD 都是用 MPEG1 格式壓縮的 ( 刻錄軟體自動將MPEG1轉為 .DAT格式 ) ，使用 MPEG-1 的壓縮演算法，可以把一部 120 分鍾長的電影壓縮到 1.2 GB 左右大小。MPEG-2 則是應用在 DVD 的製作，同時在一些 HDTV（高清晰電視廣播）和一些高要求視頻編輯、處理上面也有相當多的應用。使用 MPEG-2 的壓縮演算法壓縮一部 120 分鍾長的電影可以壓縮到 5-8 GB 的大小（MPEG2的圖像質量MPEG-1 與其無法比擬的）。
要說DVD和MPEG技術編碼，技術上要說很多，簡單的說一下
MPEG是運動圖像專家組的所寫，主要研究視頻音頻的編碼技術
常見的MP3是指MPEG1編碼方式的第三層音頻壓縮標准
而VCD符合MPEG1視頻壓縮標准
DVD符合MPEG2視頻壓縮標准，因此人們常說的DVD編碼格式為MPEG2
沒有MPEG3，MPEG4是最新的視頻壓縮標准
DVD的擴展名為VOB，首先要將WMV或其他格式如AVI的視頻文件轉換成MPEG2（NERO不支持RMVB），然後載入刻錄軟體進行VOB格式封裝，繼而刻錄DVD在家用DVD影碟機上播放
以NERO為例
可以選擇刻錄DVD視頻（NERO7將此功能放在Version里），然後將WMV導入NERO，MPEG2轉碼和刻錄依次完成
由於WMV的編碼格式不同，可能NERO不能順利轉碼，這時候需要第三方軟體進行轉碼，如TMPGEnc 4.0 XPress等
MVB格式視頻製作可在DVD上播放的影碟 —— 16集電視劇1張盤裝目前我們從網路上下載電影、電視劇等視頻，大多數是RMVB格式的視頻文件。RMVB在一般的DVD機上是不能播放的。那麼如此多的電影、電視劇我們使用電腦觀看十分的不方便，而且還佔用大量的硬板空間。如果碰到了經典的電影、電視劇想長期保存而希望通過dvd在電視上觀看該怎麼辦呢？
第一步：winavi video converter軟體，對rmvb格式進行轉換，轉換為mpeg1或KVCD格式
1、啟動winavi video converter
2、選擇dvd轉換，選擇你要轉換的rmvb格式的視頻文件（按ctr可以多選），點擊 打開，打開轉換頁面
3、「選擇輸出目錄」設定你要保存的硬碟位置，「選擇輸出格式」設定你要轉換的格式為：mpeg1 KVCD格式
4、以上設定完成後，下面就是最重要的了， 點擊「選擇輸出格式」後面的「高級」按鈕，前面的「encode」不用管它，默認設置就可以， 「mpeg1」設置中的「Target format」設定為PAL，這是電視播放的默認格式； 「Audio sample rate」設定為48000，其他設置可能會造成轉換後沒有聲音。 「picture size」設定為下面尺寸中的任意一個組合「352*288 352*576 704*576 720*576」，這一點很重要。我就是在這里走了好多彎路，T.T。 「Constant video quality」設為medium一般就可以，這樣清晰度方面沒有問題。按著上面的設置可以保證一張4.7G的dvd盤上至少可以刻16集45分鍾左右的視頻文件，也就是720分鍾的視頻。當然你也可以調整，總之視頻質量上去了，文件體積就大，反之亦然。最後點擊「確認」就好了，開始轉換。一般來說，45分鍾左右的電視劇轉換需要大約20分鍾左右，基本可以接受了（當然你的電腦配置低就另當別論了）。
第二步：編輯電視劇影集
製作壓縮DVD碟的關鍵是TMPGEnc DVD Author，它能用MPEG-1文件來製作壓縮DVD，否則你必須用專業 DVD製作軟體。
1.新建項目
運行TMPGEnc DVD Author後，窗口中最先顯示的是「Start（開始）」步驟，單擊「Create new Project（創建新的項目）」按鈕即可進入「創建源碼」步驟開始DVD的編輯。
2.編輯DVD內容
接下來我們需要導入素材文件並對文件進行剪輯，安排DVD的節目軌。 在「Source setup（源碼設置）」步驟中選擇「Add file（添加文件）」按鈕，把編碼好的電視劇的 第一集添加到節目軌列表中。接下來單擊左邊欄中的「Add new track（增加新節目軌）」按鈕建立一個新的節目軌，然後按同樣的方法將第二集添加至節目軌2。以後的集數也是按同樣的方法添加，即一集建立一個新的節目軌。一般來說，由DVD轉換而來的一個MPEG-1文件往往為多集電視劇，我們可以將同一個文件重復導入（有幾集導入幾次），然後再對它進行剪輯。通常一張4.7GB的DVD刻錄盤能放下10集左右的電視劇，當然，能多放盡量多放，只要不超過4.7GB就行了。默認的節目軌名稱為「Untitled track1（無標題節目軌）」等，為了便於區別，需要將它們改名：從左邊的節目軌列表中選擇某個節目軌，單擊滑鼠右鍵，從快捷菜單中選擇「Rename（更名）」命令，然後在彈出的對話框中輸入它的名稱，如「第一集」。
3.剪輯
我們轉換整張DVD而得到的MPEG-1文件需要進行分割，另外每集的開頭和結束還有主題曲、片尾曲和演職員表，既佔用空間又浪費時間，應該將它們去掉。先選定某個節目軌，然後在右邊的章節列表中單擊片段上的「Edit（編輯）」按鈕，會彈出「Edit clip（片段編輯）」對話框（圖3）。在對話框中將播放滑塊移至欲選擇的電視劇的開始位置，點擊「Set as start frame（設為開始幀）」將它設定為片段的開頭，再將滑塊移至結束位置，點擊「Set as end frame（設為結束幀）」設定好片尾。剪輯完成後單擊「 OK」按鈕，回到主界面。
4.創建菜單
實際上現在已經可以直接生成DVD文件或刻錄DVD了。不過為了在播放電視劇時更加方便，最好還是製作一個菜單，以便進行選擇。選擇窗口上部的「Create menu（創建菜單）」按鈕，進入菜單創建步驟，你可在左上角的菜單題材下拉列表中選擇一種菜單模板，菜單題材下拉列表已經預置了七種菜單模板，你可選擇一個模板，然後再修改菜單標題。如果對模板不滿意則可以選擇下拉列表中的「New theme（新題材）」來創建自己喜歡的菜單。
5.輸出完成
菜單編輯完成後，即可輸出DVD了。選擇「Output（輸出）」按鈕進入輸出步驟，首先選定「Create DVD folder（創建DVD文件夾）」復選框，然後再設置輸出的文件夾，最後點擊「Begin output（開始輸出）」按鈕開始生成DVD文件。 輸出完成會彈出一個對話框，提示DVD生成完成，你可以選擇其中的「Open DVD Write Tools（啟動 DVD?刻錄工具）」按鈕，啟動軟體自帶的DVD刻錄工具，在插入DVD刻錄盤後單擊「Write DVD（寫入DVD） 」按鈕進行刻錄。 rmvb格式轉換的質量當然從清晰度上來講和純正的dvd沒辦法相提並論，但是這樣既節省了硬碟空間又可以通過dvd在電視上播放，質量類似vcd的清晰度，基本上還是可以接受的。
BINGO，現在就可以送給姐姐你的成果了，和攝影師的角度不同的婚禮場景，她一定會珍藏一輩子的。
當然和僱人拍攝的不一樣！！！！
樓上說摳門的～你知道卻不告訴別人才是摳門吧～
再說了，就是不花錢僱人又如何！
LZ～希望可以幫到你呀～話說還是自己實踐來的好，多做做就好了！！！
2. 圖像處理的常見軟體
軟體特點：知名度以及使用率最高的圖像處理軟體。
軟體優勢：使用業界標準的Adobe PhotoshopCS軟體更加快速地獲取更好效果，同時為圖形和Web設計、攝影及視頻提供必不可少的新功能。
與同行軟體的比較：這回Adobe的確給設計師們帶來了很大的驚喜，Photoshop CS新增了許多強有力的功能，特別是對於攝影師來講，這次它大大突破了以往Photoshop系列產品更注重平面設計的局限性，對數碼暗房的支持功能有了極大的加強和突破。 軟體特點：專業矢量繪圖工具，功能強大，界面友好。
軟體優勢：無論您是生產印刷出版線稿的設計者和專業插畫家、生產多媒體圖像的藝術家、還是互聯網頁或在線內容的製作者，都會發現Illustrator不僅僅是一個藝術產品工具，能適合大部分小型設計到大型的復雜項目。
與同行軟體的比較：功能極其強大，操作相當專業。與Adobe公司其它軟體如Photoshop、Primiere及Indesign等軟體可以良好的兼容，在專業領域優勢比較明顯。 軟體特點：界面設計友好，空間廣闊，操作精微細致。兼容性佳。
軟體優勢：非凡的設計能力廣泛地應用於商標設計、標志製作、模型繪制、插圖描畫、排版及分色輸出等等諸多領域。市場領先的文件兼容性以及高質量的內容可幫助您將創意變為專業作品。從與眾不同的徽標和標志到引人注目的營銷材料以及令人賞心悅目的Web圖形，應有盡有。
與同行軟體的比較：功能強大，兼容性極好，可生成各種與其它軟體相兼容的格式，操作較Illustrator簡單，在國內中小型廣告設計公司應用率極高。 軟體特點：可牛影像是新一代的圖片處理軟體，獨有美白祛痘、瘦臉瘦身、明星場景、多照片疊加等功能，更有50餘種照片特效，數秒即可製作出影樓級的專業照片。
軟體優勢：圖片編輯、人像美容、場景日歷、添加水印飾品、添加各種藝術字體、製作動感閃圖、搖頭娃娃、多圖拼接，使人能想到的功能，應有盡有，而且簡單易用。
與同行軟體的比較：場景日歷、動感閃圖、搖頭娃娃等都是傳統圖像處理軟體所沒有的。有了可牛影像，不需要再像photoshop那樣，需要專業的技能才能處理照片。 軟體特點：「nEO iMAGING」〖光影魔術手〗是一個對數碼照片畫質進行改善及效果處理的軟體。簡單、易用，不需要任何專業的圖像技術，就可以製作出專業膠片攝影的色彩效果。
軟體優勢：模擬反轉片的效果，令照片反差更鮮明，色彩更亮麗,模擬反轉負沖的效果，色彩詭異而新奇，模擬多類黑白膠片的效果，在反差、對比方面，和數碼相片完全不同。
與同行軟體的比較：是一個照片畫質改善和個性化處理的軟體。簡單、易用，每個人都能製作精美相框、藝術照、專業膠片效果，而且完全免費。 軟體特點：不論您拍攝的相片是什麼類型－家人與朋友的，或是作為業余愛好而拍攝的藝術照－您都需要相片管理軟體來輕鬆快捷地整理以及查看、修正和共享這些相片。
軟體優勢：ACDSee 9可以從任何存儲設備快速「獲取相片」，還可以使用受密碼保護的「隱私文件夾」這項新功能來存儲機密信息。
與同行軟體的比較：強大的電子郵件選項、幻燈放映、CD/DVD刻錄，還有讓共享相片變得輕而易舉的網路相冊工具。使用紅眼消除、色偏消除、曝光調整以及「相片修復」工具等快速修正功能來改善相片。 軟體特點：一個可視化的網頁設計和網站管理工具，支持最新的Web技術，包含HTML檢查、HTML格式控制、HTML格式化選項等。
軟體優勢：除了新的視頻和動畫特性，還提供了新的繪圖效果和更好的腳本支持，同時也集成了流行的視頻輯和編碼工具，還提供軟體允許用戶測試移動手機中的Flash內容等新功能。
與同行軟體的比較：在編輯上你可以選擇可視化方式或者你喜歡的源碼編輯方式。 軟體特點：友立公司出版的動畫GIF製作軟體，內建的Plugin有許多現成的特效可以立即套用，可將AVI文件轉成動畫GIF文件，而且還能將動畫GIF圖片最佳化，能將你放在網頁上的動畫GIF圖檔減肥，以便讓人能夠更快速的瀏覽網頁。
軟體優勢：這是一個很方便的GIF 動畫製作軟體，由Ulead Systems.Inc 創作。Ulead GIF Animator 不但可以把一系列圖片保存為GIF 動畫格式，還能產生二十多種2D 或3D 的動態效果，足以滿足您製作網頁動畫的要求。
與同行軟體的比較：與其它圖形文件格式不同的是, 一個GIF文件中可以儲存多幅圖片，這時， GIF 將其中存儲的圖片像播放幻燈片一樣輪流顯示, 這樣就形成了一段動畫。
3. 求一個控制攝像頭小程序的源碼，要求VC下編譯運行
VC-攝像頭控制SDK源碼
#include <windows.h>
#include <stdio.h>
#include <vfw.h>
#pragma comment(lib,"vfw32.lib")
HWND ghWndCap ; //捕獲窗的句柄
CAPDRIVERCAPS gCapDriverCaps ; //視頻驅動器的能力
CAPSTATUS gCapStatus ; //捕獲窗的狀態
char szCaptureFile[] = "MYCAP.AVI";
char gachBuffer[20];
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);
LRESULT CALLBACK StatusCallbackProc(HWND hWnd,int nID,LPSTR lpStatusText)
{
if(!ghWndCap)return FALSE;//獲得捕獲窗的狀態
capGetStatus(ghWndCap,&gCapStatus,sizeof(CAPSTATUS));//更新捕獲窗的大小
SetWindowPos(ghWndCap,NULL,0,0,gCapStatus.uiImageWidth,gCapStatus.uiImageHeight,SWP_NOZORDER|SWP_NOMOVE);
if(nID==0){//清除舊的狀態信息
SetWindowText(ghWndCap,(LPSTR)"hello");
return (LRESULT)TRUE;
}//顯示狀態ID和狀態文本
wsprintf(gachBuffer,"Status# %d: %s",nID,lpStatusText);
SetWindowText(ghWndCap,(LPSTR)gachBuffer);
return (LRESULT)TRUE;
}
LRESULT CALLBACK ErrorCallbackProc(HWND hWnd,int nErrID,LPSTR lpErrorText)
{
if(!ghWndCap)return FALSE;
if(nErrID==0)return TRUE;//清除舊的錯誤
wsprintf(gachBuffer,"Error# %d",nErrID);//顯示錯誤標識和文本
MessageBox(hWnd, lpErrorText, gachBuffer,MB_OK | MB_ICONEXCLAMATION);
return (LRESULT) TRUE;
}
LRESULT CALLBACK FrameCallbackProc(HWND hWnd,LPVIDEOHDR lpVHdr)
{
FILE *fp;
fp=fopen("caram.dat","w");
if(!ghWndCap)return FALSE;//假設fp為一打開的.dat文件指針
fwrite(lpVHdr->lpData,1,lpVHdr->dwBufferLength,fp);
return (LRESULT)TRUE;
}
int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,PSTR szCmdLine,int iCmdShow)
{
static TCHAR szAppName[]=TEXT("HelloWin");
HWND hwnd;
MSG msg;
WNDCLASS wndclass;
wndclass.style=CS_HREDRAW|CS_VREDRAW;
wndclass.lpfnWndProc=WndProc;
wndclass.cbClsExtra=0;
wndclass.cbWndExtra=0;
wndclass.hInstance=hInstance;
wndclass.hIcon=LoadIcon(NULL,IDI_APPLICATION);
wndclass.hCursor=LoadCursor(NULL,IDC_ARROW);
wndclass.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);
wndclass.lpszMenuName=NULL;
wndclass.lpszClassName=szAppName;
if(!RegisterClass(&wndclass))
{
MessageBox(NULL,TEXT("This program requires WindowsNT!"),szAppName,MB_ICONERROR);
return 0;
}
hwnd=CreateWindow(szAppName,TEXT("The Hello Program"),WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,hInstance,NULL);
ShowWindow(hwnd,iCmdShow);
UpdateWindow(hwnd);
while(GetMessage(&msg,NULL,0,0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return msg.wParam;
}
LRESULT CALLBACK WndProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam)
{
HDC hdc;
PAINTSTRUCT ps;
RECT rect;
switch(message)
{
case WM_CREATE:
{
ghWndCap=capCreateCaptureWindow((LPSTR)"Capture Window",WS_CHILD|WS_VISIBLE,0,0,300,240,(HWND)hwnd,(int)0);
capSetCallbackOnError(ghWndCap,(FARPROC)ErrorCallbackProc);
capSetCallbackOnStatus(ghWndCap,(FARPROC)StatusCallbackProc);
capSetCallbackOnFrame(ghWndCap,(FARPROC)FrameCallbackProc);
capDriverConnect(ghWndCap,0); // 將捕獲窗同驅動器連接
//獲得驅動器的能力,相關的信息放在結構變數gCapDriverCaps中
capDriverGetCaps(ghWndCap,&gCapDriverCaps,sizeof(CAPDRIVERCAPS));
capPreviewRate(ghWndCap, 66); // 設置Preview模式的顯示速率
capPreview(ghWndCap, TRUE); //啟動Preview模式
if(gCapDriverCaps.fHasOverlay) //檢查驅動器是否有疊加能力
capOverlay(ghWndCap,TRUE); //啟動Overlay模式
if(gCapDriverCaps.fHasDlgVideoSource)capDlgVideoSource(ghWndCap); //Video source 對話框
if(gCapDriverCaps.fHasDlgVideoFormat)capDlgVideoFormat(ghWndCap); // Video format 對話框
if(gCapDriverCaps.fHasDlgVideoDisplay)capDlgVideoDisplay(ghWndCap); // Video display 對話框
capFileSetCaptureFile( ghWndCap, szCaptureFile); //指定捕獲文件名
capFileAlloc(ghWndCap, (1024L * 1024L * 5)); //為捕獲文件分配存儲空間
capCaptureSequence(ghWndCap); //開始捕獲視頻序列
capGrabFrame(ghWndCap); //捕獲單幀圖像
}
return 0;
case WM_PAINT:
hdc=BeginPaint(hwnd,&ps);
GetClientRect(hwnd,&rect);
DrawText(hdc,TEXT("Hello,Windows98!"),-1,&rect,DT_SINGLELINE|DT_CENTER|DT_VCENTER);
EndPaint(hwnd,&ps);
return 0;
case WM_DESTROY:
{
capSetCallbackOnStatus(ghWndCap,NULL);
capSetCallbackOnError(ghWndCap,NULL);
capSetCallbackOnFrame(ghWndCap,NULL);
capCaptureAbort(ghWndCap);//停止捕獲
capDriverDisconnect(ghWndCap); //將捕獲窗同驅動器斷開
PostQuitMessage(0);
}
return 0;
}
return DefWindowProc(hwnd,message,wParam,lParam);
}
4. 使用c#編寫攝像頭程序，可以拍照，錄像，保存到本地。求源碼，可以直接運行的。
你沒有釋放資源。這個問題和我遇到的一模一樣。在關閉攝像頭的程序段中加上釋放資源的語句。
5. vb6 無驅攝像頭編程 求源碼
發下是我幾年前寫的(參照)一個VB驅動攝像頭的代碼,不知道現在還能不能用,因為文件總的很長,這只是其中的一小部分,希望對你有所用.(要不就和我聯系,給你源碼)
Private Sub Form_Load()
On Error Resume Next
Dim retVal As Boolean
Dim numDevs As Long
bCaramaPlaying = True
'load trivial settings first
Me.BackColor = Val(GetSetting(App.Title, "preferences", "backcolor", "&H404040")) 'default to dk gray
numDevs = VBEnumCapDrivers(Me)
If 0 = numDevs Then
MsgBox "沒有找到視頻捕捉設備!", vbCritical, App.Title
' frmPlayer.Visible = True
' If bIsVisible = True And vbPlayFormIsVisible = True And vbFrmPlayFrameHided = False Then
' frmPlayFrame.Visible = True
' End If
Unload Me
Exit Sub
End If
nDriverIndex = Val(GetSetting(App.Title, "driver", "index", "0"))
'if invalid entry is in registry use default (0)
If mnuDriver.UBound < nDriverIndex Then
nDriverIndex = 0
End If
mnuDriver(nDriverIndex).Checked = True
'//Create Capture Window
'Call capGetDriverDescription( nDriverIndex, lpszName, 100, lpszVer, 100 '// Retrieves driver info
hCapWnd = capCreateCaptureWindow("VB CAP WINDOW", WS_CHILD Or WS_VISIBLE, 0, 0, 160, 120, Me.hWnd, 0)
If 0 = hCapWnd Then
MsgBox "不能創建捕捉窗口!", vbCritical, App.Title
Exit Sub
End If
retVal = ConnectCapDriver(hCapWnd, nDriverIndex)
If False = retVal Then
MsgBox "不能連接到視頻設備!", vbInformation, App.Title
Else
#If USECALLBACKS = 1 Then
' if we have a valid capwnd we can enable our status callback function
Call capSetCallbackOnStatus(hCapWnd, AddressOf StatusProc)
Debug.Print "---Callback set on capture status---"
#End If
End If
'// Set the video stream callback function
' capSetCallbackOnVideoStream lwndC, AddressOf MyVideoStreamCallback
' capSetCallbackOnFrame lwndC, AddressOf MyFrameCallback
Dim bPlayFrameTop As Boolean
bPlayFrameTop = GetSetting(MyName, "setting" & "-" & Trim(Str(App.Major)) & "-" & Trim(Str(App.Minor)), "bPlayFrameTop", "False")
If bPlayFrameTop = True Then
Me.mnuOptionTop.Checked = True
'放在最前
SetWindowPos Me.hWnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, &H20
Else
Me.mnuOptionTop.Checked = False
'不放在最前
SetWindowPos Me.hWnd, HWND_NOTOPMOST, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, &H20
End If
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Me.picShowMenu.ZOrder 0
End Sub
'以下是一個模塊文件
Option Explicit
'application specific routines are here
Public Const ONE_MEGABYTE As Long = 1048576
'Public Const MMSYSERR_NOERROR As Long = 0
Public Const INDEX_15_MINUTES As Long = 27000 '(30fps * 60sec * 15min)
Public Const INDEX_3_HOURS As Long = 324000 ' (30fps * 60sec * 60min * 3hr)
Public Function GetFreeSpace() As Long
'this function gets the amount of free disk space and adds the size
'of the current capture file
Dim freedisk As Long
Dim path As String
'get Cap File length
path = capFileGetCaptureFile(frmCaramaMain.capwnd)
If path <> "" Then
On Error Resume Next
freedisk = FileLen(path)
freedisk = freedisk / ONE_MEGABYTE
End If
'now get free disk space from that drive
path = Left$(path, 3)
GetFreeSpace = freedisk + vbGetAvailableMBytes(path)
End Function
Sub ResizeCaptureWindow(ByVal hCapWnd As Long)
Dim retVal As Boolean
Dim capStat As CAPSTATUS
'Get the capture window attributes
retVal = capGetStatus(hCapWnd, capStat)
If retVal Then
'Resize the main form to fit
Call SetWindowPos(frmCaramaMain.hWnd, _
0&, _
0&, _
0&, _
capStat.uiImageWidth + (frmCaramaMain.XBorder * 2), _
capStat.uiImageHeight + (frmCaramaMain.YBorder * 4) _
+ frmCaramaMain.CaptionHeight + frmCaramaMain.MenuHeight, _
Swp_nomove Or SWP_NOZORDER Or SWP_NOSENDCHANGING)
'Resize the capture window to format size
Call SetWindowPos(hCapWnd, _
0&, _
0&, _
0&, _
capStat.uiImageWidth, _
capStat.uiImageHeight, _
Swp_nomove Or SWP_NOZORDER Or SWP_NOSENDCHANGING)
End If
Call frmCaramaMain.Form_Resize
End Sub
Public Function VBEnumCapDrivers(ByRef frm As frmCaramaMain) As Long
'/*
' * Enumerate the potential capture drivers and add the list to the Options
' * menu. This function is only called once at startup.
' * Returns 0 if no drivers are available.
' */
Const MAXVIDDRIVERS As Long = 9
Const CAP_STRING_MAX As Long = 128
Dim numDrivers As Long
Dim driverStrings(0 To MAXVIDDRIVERS - 1) As String
Dim Index As Long
Dim Device As String
Dim Version As String
Dim menu As VB.menu
Device = String$(CAP_STRING_MAX, 0)
Version = String$(CAP_STRING_MAX, 0)
numDrivers = 0
For Index = 0 To (MAXVIDDRIVERS - 1) Step 1
If 0 <> capGetDriverDescription(Index, _
Device, _
CAP_STRING_MAX, _
Version, _
CAP_STRING_MAX) _
Then
'extend the menu
If Index > 0 Then
Load frm.mnuDriver(Index)
End If
Set menu = frm.mnuDriver(Index) 'get an object pointer to the new menu
'Concatenate the device name and version strings to the new menu item
menu.Caption = Left$(Device, InStr(Device, vbNullChar) - 1)
menu.Caption = menu.Caption & " "
menu.Caption = menu.Caption & Left$(Version, InStr(Version, vbNullChar) - 1)
menu.Enabled = True
numDrivers = numDrivers + 1
End If
Next
VBEnumCapDrivers = numDrivers
End Function
Public Function ConnectCapDriver(ByVal hCapWnd As Long, ByVal nDriverIndex As Long) As Boolean
Dim retVal As Boolean
Dim Caps As CAPDRIVERCAPS
Dim i As Long
Debug.Assert (nDriverIndex < 10) And (nDriverIndex >= 0)
'// Connect the capture window to the driver
retVal = capDriverConnect(hCapWnd, nDriverIndex)
If False = retVal Then
'return False
Exit Function
End If
'// Get the capabilities of the capture driver
retVal = capDriverGetCaps(hCapWnd, Caps)
If False <> retVal Then
'reset menus (very app-specific)
With frmCaramaMain
For i = 0 To .mnuDriver.UBound
.mnuDriver(i).Checked = False 'make sure all drivers are unchecked
Next
.mnuDriver(nDriverIndex).Checked = True 'then check the new driver
'disable all hardware feature menu items
.mnuSource.Enabled = False
.mnuFormat.Enabled = False
.mnuDisplay.Enabled = False
.mnuOverlay.Enabled = False
'Then enable the ones which are supported by the new driver
If Caps.fHasDlgVideoSource <> 0 Then .mnuSource.Enabled = True
If Caps.fHasDlgVideoFormat <> 0 Then .mnuFormat.Enabled = True
If Caps.fHasDlgVideoDisplay <> 0 Then .mnuDisplay.Enabled = True
If Caps.fHasOverlay <> 0 Then .mnuOverlay.Enabled = True
End With
End If
'// Set the preview rate in milliseconds
Call capPreviewRate(hCapWnd, 66) '15 FPS
'// Start previewing the image from the camera
Call capPreview(hCapWnd, True)
'default to showing a preview each time
frmCaramaMain.mnuPreview.Checked = True
'// Resize the capture window to show the whole image
Call ResizeCaptureWindow(hCapWnd)
ConnectCapDriver = True
End Function
Public Function StatusProc(ByVal hCapWnd As Long, ByVal StatusCode As Long, ByVal lpStatusString As Long) As Long
Select Case StatusCode
Case 0 'this is recommended in docs
'when zero is sent, clear old status messages
'frmCaramaMain.Caption = App.Title
Case IDS_CAP_END ' Video Capture has finished
frmCaramaMain.Caption = App.Title
Case IDS_CAP_STAT_VIDEOAUDIO, IDS_CAP_STAT_VIDEOONLY
MsgBox LPSTRtoVBString(lpStatusString), vbInformation, App.Title
Case Else
'use this function if you need a real VB string
'frmCaramaMain.Caption = LPSTRtoVBString(lpStatusString)
'or, just pass the LPCSTR to a WINAPI function
Call SetWindowTextAsLong(frmCaramaMain.hWnd, lpStatusString)
End Select
Debug.Print "Driver returned code " & StatusCode & " to StatusProc"
StatusProc = -(True) '- converts Boolean to C BOOL
End Function
6. 攝影中如何利用反射原理拍攝驚艷的照片
反射有一些特殊之處，使它們成為攝影的獨特方面。也許是因為像攝影一樣，反射是通往另一個世界的門戶，雖然平行但又有限。就像攝影一樣，反射是我們世界的簡化，他們將三維現實轉化為二維效果。
結論
這些是我最喜歡的攝影類型之一的一些基礎知識。你是否喜歡拍攝反射圖像，如果喜歡，為什麼？是什麼吸引了你？
7. VB攝像頭錄像源代碼（高分徵求）
你在網路上搜 網路人 這個工具可以滿足你的要求
8. 跪求HTML攝影網頁設計源代碼
去源 碼之家找有很多素材的，
自己稍微一改就可以了
9. 攝影工作室注冊成個體戶還是公司
從垂直到整合 初探分享類網站的發展趨勢
跟著互聯網的發展,分享類網站在網民的生活中呈現，並且緩緩盤踞他們網上生活的重心。那麼什麼是分享類網站呢？筆者以為分享類的網站首先是資源站，佔有各種對網民有價值的或文檔或圖片或視頻或音樂或IT軟體等資源；其次分享類網站最明顯地特點是互動，與資源上傳者互動，與資源分享者互動，或二者兼有之的即時互動；分享類網站的盈利模式主要有兩種一是資源販賣，二是廣告聯盟提供的廣告。
當初海內的分享類網站呈垂直化發展，下面扼要地先容下分享類網站的類型：
1、文檔分享站
說起文檔分享站，就不能不說起以CTC模式經營的豆丁網了。豆丁容許用戶上傳包括 .pdf, .doc, .ppt, .txt 在內的數十種格局的文檔文件，並以Flash Player的情勢在網頁中直接展示給讀者。簡而言之，豆丁就猶如文檔版的Youtube。豆丁網實現了上傳者與分享者的雙向互動，草根性顯明。而且豆丁文檔操作簡略，文檔版權等技巧也當先於行業。
2、攝影分享站
國內著名的攝影分享站主要有全景網、POCO與色影無忌，這些攝影分享站特點明顯：全景權威專業，是攝影師售賣作品的好平台；POCO生活力息濃重、圖文並茂；色影無忌破足於互動交流。國外最著名的圖片分享站是flickr，只有在搜索框里輸入春天的要害詞，你就可以搜索到五萬多張照片，還可以加入flickr的社區進行探討。有人要說，圖片分享站和網路圖片搜尋有什麼差別呢？我想區別應當在雙向互動、數字作品版權上吧。
3、設計分享網站
站酷與昵圖是設計素材分享網站的典範代表，它們的目的人群明白，專一於設計創作職員。這里是創作人的家園，設計人既可以在這里展現售賣自己的作品，也可購買自己須要的作品，同時還可以與同行交換教訓與心得。
4、視頻分享站
休息的時候，咱們常常進一些視頻分享站，像土豆網、優酷網、酷六網等等。在這些網站上，既可以在線觀看也可以將愛好的視頻下載到電腦里保留；既可以觀看紅遍大江南北的影視劇，也可以看到網民上傳的各種生活小品類視頻；還可以將本人拍攝的視頻上傳，還能夠看到大家的留言，跟大家一起分享生涯中的喜怒哀樂。
5、音樂分享站
一聽音樂、聚友網是國內的音樂分享站，為音樂喜好者提供豐盛的音樂資源，包括流行音樂、經典音樂和原創音樂，用戶可以上傳音樂也可以將自己愛好的音樂下載到電腦上或者手機里。MP3.com是國外的一家音樂分享站,文檔網站，同時它也是有名的《長尾實踐》中的一個背面案例。長尾理論推翻了傳統的二八定律，是互聯網行業的典型盈利模式。MP3.com致力於為原創音樂的發表與分享，然而因為其只注重到長尾，而疏忽了能吸引受眾眼球的風行音樂，而終極失敗。這也為分享類網站供給了重蹈覆轍：網站上要有精英類的作品，以精英類作品帶動長尾類作品的分享。
6、IT資源分享
IT資源分享站，主要是指軟體源碼類的程序超市和軟體分享社區站。大家都有過在網高低載一些利用軟體的閱歷吧。將IT資源整合到一起，便利用戶下載應用，同時也為網站帶來利潤，何樂而不為呢？
初探分享類網站的發展趨勢
1權威性與平民化並重
請試著設想下，當一個文檔分享網站的資源可以和像中國期刊、維普資訊等付費資料庫的資源的權威性相媲美，同時又可以給布衣作者、資源領有者提供展示分享平台的時候,源碼新聞，這個分享網站就做到了威望性與互動性並舉。從不同檔次上知足目標受眾的需求、雅俗並舉，充分調動網民參加的積極性，這將是分享類網站一個主要的發展趨勢。
2從垂直走向整合
從上述剖析中我們可以看到，分享類網站現階段還處於垂直化的發展階段。但俗話說的好：分久必合，分享類網站的整合營銷機會是否到了呢？
我們先來分析下，垂直類分享網站的優劣。垂直類網站最大特色就是細分化，鎖定精準受眾，傳布針對性的內容。但是試想，當一名設計師，他是設計素材宣布與需求者，同時也可能某人物照片的分享購買者、某篇範文在線付費瀏覽者或是某Flash後果源碼購置者。當垂直分享類網站面對此類受眾交互性與多樣性的需要時，就變得一籌莫展了，整合分享類網站也便躍然紙上了。
當分享類網站的技術成熟後，寬大的網民想在一個大平台上或上傳或分享包含文檔、圖片、視頻、音樂、IT等各類資源的盼望便愈發凸起了。我們盼望有一個專而廣，能滿意我們各類需求的綜合性分享平台
分享類網站從垂直走向整合將是勢在必行的趨勢。業內第一個吃螃蟹的平台，第一個開端嘗試走整合途徑的分享平台應該是易撲（Eapoo）網了。易撲（Eapoo）一經推出便倍受各方關注，被譽為創作人資源門戶站，目前已經成為了良多資深創作人必上的網站了。易撲（Eapoo）一方面重視作品資源和用戶整合，另一方面注重上傳者好處保護和上傳者與分享者互動模式的翻新，對分享類網站由垂直走向整合做了踴躍有利的摸索。它的目標客戶群是創作人，在斟酌到這一特別人群奇特的多樣的需求後，決議建設一個綜合性的資源門戶站。
3對網站目標受眾需求的充足發掘與盈利模式的多元化
互聯網世界是一個瞬息萬變的世界，在資源分享范疇上想自成一家想成績一番事業，就要充分挖掘目標受眾的需求，受眾的需求就是我們勝利的砝碼。
前文提到分享類的網站的盈利模式重要有同盟廣告和資源販賣。但分享類網站盈利模式浮現出多元化的發展趨勢。例如前文所提的易撲（Eapoo）網，這是一個定位為創作者資源分享、交流、售賣的平台，通過收入分成，實現創作者和網站的雙贏。它的盈利模式有流量收入，廣告收入和資源販賣收入。但是當易撲（Eapoo）從線上走到線下，與創作者進行深層互動（例如舉行各種創作運動），你能猜測到它的發展潛力與盈利范圍嗎？
簡而言之，只要我們心中有3.84億網民，時刻以網民的需求為己任，盈利模式將是多樣的，盈利為期不遠。