Delphi USBCamera DirectShow 预览录像截图
参照:https://www.haolizi.net/example/view_37332.html
实例介绍
【实例简介】用DirectShow 的方式,视频输入设备枚举、视频支持格式枚举、视频预览、视频录像、视频截图。Delphi 源代码
【实例截图】
【核心代码】
unit untUSBCamera;
interface
uses
Windows, Messages ...
[Delphi] Delphi版本号对照
VER300 Delphi Seattle / C++Builder Seattle 23 230 (Delphi:Win32/Win64/OSX/iOS32/iOS64/Android) (C++Builder:Win32/Win64/OSX/iOS32/iOS64/Android) VER290 Delphi XE8 / C++Builde ...
Delphi 字符串拆分/分割[1] - TStringList
Delphi 字符串拆分/分割[1] - TStringList
1、TStringList 默认以 ','拆分字符
onst
constr :String = 'aaa,bbb,ccc,ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.CommaText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs); //aaa bbb  ...
Delphi RadioGroup 组件基本用法
1. RadioGroup的主要属性
(1) Columns:属性
属性 Columns:用于设置单选按钮组中按钮的列数。范围1~16默认值为1。
设置方法很简单,充分提现了Delphi的强大功能和方便,只要设置RadioGroup组件的Columns列属性为1就是竖向显示,为2就是横向显示。也就是说你的Items有几个就设置 ...
delphi zeromq开源库
delphi zeromq开源库
https://github.com/grijjy/DelphiZeroMQ
使用 ZeroMQ 推出您自己的轻量级、可扩展后端ZeroMQ是一种高速分布式消息传递库,用于使用 pub-sub、push-pull 和 router-dealer 等智能模式构建可扩展的通信应用程序。在本文中,我们将展示一个 Delphi 版本的ZeroMQ Majordomo 协议规范,它是一个轻量级的分 ...
Delphi函数大全
delphi常用函数大全(转)
Abort函数引起放弃的意外处理Abs函数绝对值函数AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分Alignment属性控件标签的文字位置AllocMem函数在堆栈上分配给定大小的块A ...
delphi yaml
delphi yaml
https://github.com/lim417dev/Neslib.Yaml
https://github.com/neslib/Neslib
Neslib.Yaml - A YAML library for Delphi
Neslib.Yaml is a library for parsing and emitting YAML and constructing YAML documents and streams.
Neslib.Yaml is build on top of the LibYaml library and works on: ...
delphi dxDBGrid使用集锦
一、如何设定可以多列自动排序? 只能使用分组:如按a1,a2,a3,a4排序 先按a1分组,再a2,再a3 然后设置a4的排列(升/降) 二、如何设定左边几列,不能滚动? 建立Band0,Band1 Band0的Fixed=tfLeft Band1的Fixed=tfnone 设置要锁定的字段的BandIndex=0,其它为1 三、如何访问,显示字段的对象,控 ...
Delphi出现“Unsatisfied forward or external declaration”错误分析
今天在操作与“汉字转拼音”有关的程序编写时,总是提示“Unsatisfied forward or external declaration”错误,最终发现是如下原因造成的:
type TForm1 = class(TForm) ... function GetPYIndexChar(hzchar:string):char; //函数声明
private   ...
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
这两天把一个使用Delphi2007成功升级到了Delphi2010。升级途中很艰辛,总结了 以下经验与大家分享。另外,D7使用的第三方组件,由于官方没有发布For Delphi2010的更新,修改的第三 方组件列表见文章尾部。1,PChar因为Delphi不支持无类型指针的算术运算,很多程序员使用 PChar来代替Pointer,即使指针指向目标并不是PAnsiCh ...
Delphi 中的 AnsiString,、Utf8String、WideString
Delphi 中的 AnsiString,、Utf8String、WideString
1、AnsiString
这是Pascal缺省的字符串类型,它由AnsiChar 字符组成,其长度没有限制,同时与null结束的字符串相兼容,它的内存和ANSI编码格式的TXT文件的内存一样,AnsiString可能是全部都是ASCII字符,也可能包含中文字符。 如果是在繁体 ...
Delphi Variant 通用类型[2] 常用函数/过程
Delphi Variant 通用类型[2] 常用函数/过程
Variant:
拥有多数据类型;
可通过VarType函数 获取存储的数据类型;
可给相同的Variant分配不同的数据类型,只要Variant包含数字值就可以执行算法;
variant数组是variant型的数组,不必包含同类型的数据;
引用单元:Variants
1、常用函数/过程:
VarArrayOf //创 ...
Delphi System单元 Utf8ToAnsi、AnsiToUtf8、Utf8Decode、Utf8Encode、Utf8ToUnicode、UnicodeToUtf8 转换
Delphi System单元 Utf8ToAnsi、AnsiToUtf8、Utf8Decode、Utf8Encode、Utf8ToUnicode、UnicodeToUtf8 转换
单元:System
原型:
function UnicodeToUtf8(Dest: PChar; MaxDestBytes: Cardinal; Source: PWideChar; SourceChars: Cardinal): Cardinal;
var
i, count: Cardinal;
c: Cardinal;
begin
Result := 0;
if ...
Delphi Distillerv1.85绿色版说明
参考:https://www.cr173.com/soft/5227.html
- Delphi 5 tweaks:- Don't create .~bpl files.- Don't create .cfg files.- Use Tahoma font by default.- Don't show splash screen.- Customize editor colors.
- Delphi 6 tweaks:- Don't create .~bpl files.- Don't create .ddp files.- Don't create .cfg files.- Use ...
DeWeb --- Hello,World!
1.新建一个DLL,命名为hello.dpr
2.新增一个Form.(File->New->VCL Form - Delphi),建议不要更改单元名称和Form名称,即分别为unit1.pas和Form1
3.在Form1中添加一个Label,设置其Caption为"Hello,DeWeb"
4.将hello.dpr源文件代码更改为
//====================================
library hello;
uses
ShareMem, SysUtils, F ...
Delphi 控制摄像头操作
DELPHI控制摄像头操作可以使用TVideoCap控件,或直接使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程。
首先常量定义和函数定义:
implementationconst WM_CAP_START = WM_USER;const WM_CAP_STOP = WM_CAP_START + 68;const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + ...
Delphi控制摄像头
Delphi对摄像头的控制很简单,在System,windows和messages三个单元内已定义了所有的底层消息函数,我们只需要合理的调用它们就行了。我把摄像头的有关操作做成一个控件,这样就可以拖动窗体上直接使用了。
{************************************
* Camera Control for Delphi7 *
* Made by Rarnu ...
Delphi TBitMap[1] 位图 介绍
Delphi TBitMap[1] 位图 介绍
位图TBitMap,封装了Windows的 HBITMAP 句柄 和 HPALETTE 句柄,用于操纵位图和调色板。 TBitMap对象支持从文件、剪贴板、流中存取位图。
它可以自动管理调色板,还可以使用画布修改图像。创建TBitmap副本的速度非常快,因为句柄是复制的,而不是图像。如果图像被修改,并且句柄由多个TBitmap ...
TSQLConnection和TDSRestConnection
TSQLConnection和TDSRestConnection
两者都可以作为DATASNAP的客户端连接,且都可以自动生成DATASNAP的客户端远程方法代理类。
TSQLConnection既可以作为TCP连接,也可以作为HTTP连接。TDSRestConnection只可以作为HTTP连接。
TSQLConnection是dbexpress其中的一个控件,既可以连数据库,也可以连DATASNAP服务端。
从TDSRes ...
Delphi 转义字符
Delphi 转义字符
转义字符(Escape character),又 称 数据传送换码字符,符号“\”。
所有的ASCII码都可以用“\”加数字(一般是8进制数字)来表示。
C中定义了一些字母前加"\"来表示常见的那些不能显示的ASCII字符,如\0,\t,\n等
转义字符
意义
ASCII码值(十进制)
\a
响铃(BEL)
007
\b
退格(B ...