控制摄像头(delphi)

vfw FillBitmapStruc; InitCompressor; VideoCap1.DriverIndex:=0; VideoCap1.CapToFile:=false; VideoCap1.DriverOpen:=true; VideoCap1.VideoPreview:=true;

VFW（Video for Windows）

我们知道视频聊天软件的关键技术在于采集视频 并实时传输给聊天软件在线的人 对于视频的采集 这里采用微软公司的关于数字视频的一个软件包VFW（Video for Windows） 相信很多人对它都很熟习 VFW能使应用程序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑 VFW的一个关键思想是播放时不需要专用硬件 为了解决数字视频数据量大的问题 需要对数据进行压缩 而VFW引进了AVI的文件标准 该标准未规定如何对视频进行捕捉 压缩及播放 仅规定视频和音频该如何存储在硬盘上及在AVI文件中交替存储视频帧和与之相匹配的音频数据 通过VFW 开发人员通过发送消息或设置属性来捕捉 播放和编辑视频剪辑 当用户在安装VFW时 安装程序会自动地安装配置视频所需要的组件 如设备驱动程序 视频压缩程序等 VFW主要由 个模块组成 VFW功能模块

视频会议系统delphi.zip

C S->(client status) //未初始化-->data = nil //已初始化-->data = TClientInfo //正在进行交互-{请求房间信息,正在请求房间人员信息} 初始化 ---------------------------------------> <--------------------------------------结果 请求房间信息---------------------------------> <-------------------------------------结果(多条) 请求进入房间---------------------------------> <-------------------------------------{成功(公告):通知其它人->进入通知} 请求房间人员信息-----------------------------> <-----------------------------

VideoPlay--视频语音采集完整版.zip

BOOL CVideCapture::Initialize() { TCHAR DevName[100], DevVersion[100]; TCHAR DevDescript[200]; int DevNum = 0; CRect LocalRect = ((CVideoPlayDlg*)m_Dlg)->m_LocalVideoRect; CWnd *LocalWnd = ((CVideoPlayDlg*)m_Dlg)->m_pLocalVideoWnd; //创建视频采集窗口（注意此窗口与我们所说的显示窗口不同），并设置预览窗口 //IDC_VIDEO_LOCAL 参数是采集窗口的ID，此处直接使用的是显示窗口的id m_CapWnd = capCreateCaptureWindow(TEXT("My Video Capture"), WS_CHILD | WS_VISIBLE, 0, 0, LocalRect.Width(), LocalRect.Height(), LocalWnd->GetSafeHwnd(), IDC_VIDEO_LOCAL

视频控制系统(delphi)源码

我们知道视频聊天软件的关键技术在于采集视频 并实时传输给聊天软件在线的人 对于视频的采集 这里采用微软公司的关于数字视频的一个软件包VFW（Video for Windows） 相信很多人对它都很熟习 VFW能使应用程序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑 VFW的一个关键思想是播放时不需要专用硬件 为了解决数字视频数据量大的问题 需要对数据进行压缩 而VFW引进了AVI的文件标准 该标准未规定如何对视频进行捕捉 压缩及播放 仅规定视频和音频该如何存储在硬盘上及在AVI文件中交替存储视频帧和与之相匹配的音频数据 通过VFW 开发人员通过发送消息或设置属性来捕捉 播放和编辑视频剪辑 当用户在安装VFW时 安装程序会自动地安装配置视频所需要的组件 如设备驱动程序 视频压缩程序等 VFW主要由 个模块组成 VFW功能模块

indy 10.5.8.zip

1.windows的path路径中增加D7的路径 在启用delphi7时，要能加载dclIndyCore70.bpl这个文件 如果是自动安装，这个文件会拷到C:\windows\system32\dclIndyCore70.bpl,所以不用改path 2.delphi7菜单中Library路径中 添加indy10\LIB路径下的System、Core、Protocols下的三个目录 添加indey10\D7 因为这个目录下有bpl和dcu文件 3.删除delphi7目录Bin下的indy*.BPL文件，这是官方旧版本的文件，放心删除。 4.删除delphi7目录下的 Id*.DCU文件，一般都是在lib目录里。 5.打开indy10\lib目录，安装DPK包顺序如下： (1)编译 System\IndySystem70.dpk （只需要compile） （这个不是设计包，不需要install） (2)编译 Core\IndyCore70.dpk （只需要compile） 编译安装Core\dclIndyCore70.dpk （设计包，先complie后install） (3)编译 Protocols\IndyProtocols70.dpk （只需要compile） 编译安装Protocols\dclIndyProtocols70.dpk （设计包，先complie后install） 6.完成 【第二次手工安装】 第一步： indy10\D7目录下的5个文件 复制到 D:\Delphi7_Ent\Projects\Bpl IndySystem70.bpl IndyCore70.bpl IndyProtocols70.bpl dclIndyCore70.bpl dclIndyProtocols70.bpl 第二步： 打开delphi7菜单 Component/install packpages/ add dclIndyCore70.bpl 再add dclIndyProtocols70.bpl 第三步 打开delphi7菜单中Library路径中 添加indy10\LIB路径下的System、Core、Protocols下的三个目录 完成！更简单。前提是要有现成bpl的文件，如果没有bpl文件，还得需要dpk编译

EhLib 9.3 for Delphi 10.3 RIO.zip

这是一款很经典的Delphi控件，尤其在数据库显示处理方面，能制作出完美的界面，能起到事半功倍的效果。本人亲测，完美合作。支持Delphi 10.3 RIO。

Delphi TCPIP通信 实例 解决中文乱码问题 SOCKET SERVER-CLIENT

敝人近期整理的客户端与服务端通信实例，数据编码约定采用UTF-8编码,解决中文乱码问题.ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务

获取电脑信息.zip

label5.caption := '你的网卡地址是：'+Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x', [MACAddress[0], MACAddress[1], MACAddress[2], MACAddress[3], MACAddress[4], MACAddress[5]]); end; finally Dispose(MACAddress); end; i:=255; getmem(users,255); getusername(users,i); //获得Windows用户名 label6.caption:='你登录windows的用户名是 :'+users; freemem(users); fulldrive:='c:'; strpcopy(tmp_drive,fulldrive); GetVolumeInformation(tmp_drive, VolName, 255, @SerialN, MaxCLength,FileSysFlag, FileSysName, 255); label7.caption:='你的硬盘卷标是：'+VolName; label8.caption:='你的硬盘序列号是：'+DecToHex(SerialN); label9.caption:='你的计算机名是：'+getcomputername; //IF getbios(1)<>'' then //label10.caption:='你的BIOS版本号是：'+getbios(1) //else //label10.caption:='未取得BIOS版本号'; //if getbios(2)<>'' then //label11.caption:='你的BIOS序列号是：'+getbios(4) //else //label11.caption:='未取得BIOS序列号'; if getsystemtime<>'' then label12.caption:='你的系统时间是：'+getsystemtime else label12.Caption:='未取得系统时间'; if getlocaltime<>'' then label13.caption:='你的本地时间是：'+getlocaltime else label13.caption:='未取得本地时间'; if inttostr(DiskSize(3) div 1024)<>'' then label14.caption:='你的系统硬盘空间是：'+inttostr(DiskSize(3) div 1024) else label14.caption:='未取得系统硬盘间';

Delphi平台上采用OpenGL开发三维图形

在Delphi平台上采用OpenGL编程技术开发三维图形，并实现了三维图形的实时动态显示. Delphi平台上采用OpenGL开发三维图形