delphi323

摘要： 第一部分：背景知识DirectShow是微软公司提供的一套在Windows平台上进行流媒体处理的开发包，与DirectX开发包一起发布。它经过DirectX 6.0中的DirectX Media发展而来，集成了DirectX家族中的其他成员（DirectDraw、DirectSound等），可以说是一位“集大成者”。DirectShow能做些什么？ DirectShow为多媒体流的捕捉和回放提供了强有力的支持。运用DirectShow，可以很方便地从支持WDM驱动模型的采集卡上捕获数据，并且进行相应的后期处理乃至存储到文件中。它广泛地支持各种媒体格式，包括Asf、Mpeg、Avi、Dv、Mp3 阅读全文

摘要： 最近开发的系统要调用MySQL数据库，为了连接上这个库可是费了老鼻子劲了。在此和大家分享下吧。 开发环境：delphi2010； 操作系统：win7旗舰版； 数据库版本：MySQL5.1； delphi的ADO不能直接连接MySQL数据库，需要安装相应的ODBC驱动。1.安装MyODBC5.1版本，安装成功后。可以在ODBC数据源管理其中看到，如下图：2.创建数据源，如下图：3.在delphi工程里面添加一个ADOConnection控件，选中驱动。如下图：4.选中数据源、并填写用户名、密码等，如下图：5.这样ADO连接MySQL就成功了。连接串是‘Provider=MSDASQL.1;Pe. 阅读全文

摘要： 功能：删除树形结构的空节点；算法：1、先用AllOverTreeView函数递归遍历树形结构，将空节点添加到DelNodeList中； 2、然后再循环删除DelNodeList的所有节点；优点：速度很快，只要便利一次树形结构就可以将所有要删除的节点地址保存下来； 1 procedure TfrmMain.DelHoldNodeWhereNoObject; 2 var 3 i: Integer; 4 TreeNode: TTreeNode; 5 DelNodeList: TList; 6 //高性能遍历树形结构 7 function AllOverTreeView(no... 阅读全文

摘要： 1. 先去delphi盒子上下载delphi Distiller1.85版本（绿色版） 2. 然后下载delphi2010（下载地址：http://altd.embarcadero.com/download/RADStudio2010/delphicbuilder_2010_3615_win.iso）。一定要3615版本的,3513的不行； 3. 安装delphi2010，序列号：JAAL-SCDKV6-ETH2SG-KBAN 4. 执行delphi Distiller1.85， 选择delph2010下的Tweaks 5. 点击ok你就有了最新版本的完美无限制的delphi2010. 阅读全文

摘要： Delphi 数据类型列表分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32768 .. 327672有符号16位Longint-2147483648 .. 21474836474有符号32位Int64-263 .. 2638有符号64位Byte0 .. 2551无符号8位Word0 .. 655352无符号16位Longword0 .. 42949672954无符号32位字符AnsiChar(Char) 阅读全文

摘要： 顾名思义，抽象工厂就是定义一个抽象工厂类。这样可以根据不同的需求实现特定的工厂类。 首先定义一个抽象工厂类TAbstractButtonFactory，它定义了两个虚方法CreateBigBtn()和CreateSmallBtn()，然后针对不同的单位需求，定义了两个派生类TButtonFactoryForA和TButtonFactoryForB，并且分别使用不同尺寸创建按钮。这样针对不同的需要，只要使用不同的工厂类就可以实现按钮风格的变换。下面是示意性代码：TAbstractButtonFactory=class(TObject) public class function ... 阅读全文

摘要： procedure AppLog(msg: string); var f: textfile;begin try try AssignFile(f, ExtractFilePath(ParamStr(0)) + 'app.log'); if not fileexists(ExtractFilePath(ParamStr(0)) + 'app.log') then rewrite(f) else append(f); writeln(f, FormatDateTime('yyyy-MM-dd HH:mm:ss', No... 阅读全文

摘要： function GetImageFormat(AFileName: string): TImageFormat;var aStream: TMemoryStream; formatFlag: Word;begin aStream := TMemoryStream.Create; try aStream.LoadFromFile(AFileName); aStream.Position := 0; Result := ifUnKnown; if aStream.Size = 0 then Exit; aStream.ReadBuffer(formatFla... 阅读全文

摘要： 2012年开始写博客，记录常用的技术知识点供大家交流。主要用到的开发环境是delphi2010.下面献上一段很好用的解析字符串的函数FastSplit。 1 function FastSplit(const S: string; const Delimiter: string = ','): TStrings; 2 var 3 i, j: integer; 4 begin 5 Result := TStringList.Create; 6 i := 1; 7 j := Pos(Delimiter, S); 8 while j > 0 do 9 begin10 ... 阅读全文