摄影师源码
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亿网民，时刻以网民的需求为己任，盈利模式将是多样的，盈利为期不远。