jhfjhf123的博客

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

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

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

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

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

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编译

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

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

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开发三维图形

delphi2007 已测试可以用， VCLSkin5.60 (完整可用支持delphi 2010程序皮肤及以下版本)

dvexpress 安装工具 ,delphi2007已测试，其他版本需自行测试使用。 希望能帮到需要的人(DELPHIER biginner　i hope which is your favor and can help you to do resolve some trouble things)

Delphi 在局域网内多播稳定传送大文件.rar 程序包中有两个文件夹：1）接收程序；2）发送程序

C#获取支付宝用户信息，基于官方SDK写的一个小DEMO Auth_code = Request.QueryString["auth_code"]; if (string.IsNullOrEmpty(Auth_code)) { var url = string.Format("https://openauth.alipay.com/oauth2/publicAppAuthorize.htm?app_id={0}&scope=auth_user&redirect_uri={1}", appid, ENCODED_URL); Response.Redirect(url); }

SM4 加密、解密库。 SM3 杂凑算法编码。 适用 Delphi 版本：Delpih 7, 2010 （仅在这两个版本下测试过，使用过程尽量考虑兼容。因此其他版本的兼容必问题不大）

利用IdHTTP进行Http服务的数据交互，交互数据格式采用目前流行的Json，实现Get和Post方式的交互

//读取文件函数 function ReadFile1(FileName:String):boolean; var sFileName: string; f: TfileStream; ED_Data: array[0..2048] of char; lRet: integer; lOffset: Longint; lOrigin: Word; i,count:integer; begin sFileName:=form1.opendialog1.FileName; f := TfileStream.Create(sFileName,fmOpenRead); try f.Seek(lOffset,lOrigin); //文件定位，从lOrigin开始移动lOffset begin lRet := f.Read(f,count); //lRet为实际读到的字节数，ED_Data为读到的内容 form1.Memo2.Lines.LoadFromStream(f); j:=f.size div 1024; //计算文件一共有多少个包 // form1.suimemo1.Text:=strtohexstr(ed_data[count]); Application.ProcessMessages; begin for i:=0 to j do begin form1.Label1.Caption:='正在读取第 '+inttostr(i)+' 包 '; form1.Memo1.Text:=form1.Memo1.Text+ midstr(strtohex(form1.Memo2.text),2048*i,2048)+' '; //Progressbar进度栏 form1.ProgressBar1.Max :=j; form1.ProgressBar1.Min:=0; form1.ProgressBar1.Position := i; Application.ProcessMessages; end; // form1.memo2.clear; showmessage('成功读取'+inttostr(i)+'个包'); Application.ProcessMessages; end; end; finally FreeAndNil(f); Application.ProcessMessages; end; end;

网页授权流程分为四步： 1、引导用户进入授权页面同意授权，获取code 2、通过code换取网页授权access_token（与基础支持中的access_token不同） 3、如果需要，开发者可以刷新网页授权access_token，避免过期 4、通过网页授权access_token和openid获取用户基本信息（支持UnionID机制）

总结升级步骤如下： 1、首先卸掉 IndyProtocols 与 IndyCore 组件库。 2、备份原有文件。(我个人认为是不需要的，原因是因BDS2009附带的 Indy10.2.3 组件太多的 BUG, 几乎是无法采用，而且在 $(BDS)\source\Indy\Indy10 目录下文件也是不全的(system\IdCTypes.pas 就没有)。 A、改 "Indy10" 目录为 “Indy10.1" $(BDS)\Include\Indy10 $(BDS)\lib\Indy10 $(BDS)\lib\debug\Indy10 $(BDS)\source\Indy\Indy10 B、改以下文件为 “*120.bpl.1" $(BDS)\bin\IndySystem120.bpl $(BDS)\bin\IndyCore120.bpl $(BDS)\bin\dclIndyCore120.bpl $(BDS)\bin\IndyProtocols120.bpl $(BDS)\bin\dclIndyProtocols120.bpl

货币编辑控件TsncCurrency的当前版本号为1.1。 货币编辑控件TsncCurrency为Moore Xu版权所有。 货币编辑控件TsncCurrency经过注册后，可以使用于任何的商业和非商业应用程序，并可以和应用程序一起进行扩散，但不得作为独立部分单独进行扩散。 货币编辑控件TsncCurrency未经注册，不得使用于任何的商业应用程序。和非商业应用程序一起进行扩散时，须先征得Moore Xu的同意。 货币编辑控件TsncCurrency的源代码不得部分或全部用于商业性的再发行软件包。若对源代码进行修改，请将修改后的版本送回Moore Xu。