![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
czx33859066
这个作者很懒,什么都没留下…
展开
-
一个释放后自动清空实例指针的类
前面部分比较简单,要是你早就已经懂了,就直接跳到后面看完整代码就可以了:)如何判断一个对象是否创建,或者说是否释放?最常用的方法当然就是用Assigned(Obj)函数了,当然,这和使用 Obj 数。(注:虽说 Assigned 是函数,但实际上使用它的时候并不产生真正的函数调用(汇编指令 CALL),而仅仅是进行一个比较而已。)假设有以下情况: var Obj: TTest; beg转载 2008-09-19 22:29:00 · 784 阅读 · 0 评论 -
发布delphi程序(build with runtime package)要带哪些文件?
Delphi提供两种方式来编译你的程序:使用包或者是单独的exe使用包,你可以使用如下方法设置:项目选项(菜单project->options->Packages页),在Runtimes packages中勾选Build with runtime packages。这样你就能够使用包来编译了。但不是这里所有的包都是你需要,这里包含了Delphi中安装的所有的包。如果环境改变了,可能转载 2009-06-23 20:34:00 · 1641 阅读 · 0 评论 -
delphi开发activex控件的心得
<br />用Delphi开发OCX的心得<br />最近在做的一个B/S系统要在客户端读取USB锁的要求,所以就需要写一个OCX来验证。原来也没有做过,所以<br />折腾了好几天,总算有点眉目了,所以把心得写下,交流下。<br />首先要弄明白你要写的OCX是用在客户端还是用在服务器端<br />假如用在客户端:<br />1、创建<br />打开delphi 7,选择菜单“new”->“other”->“activex”->“active form”->输入项目名称,<br />系统自动给你创建了3个转载 2010-07-26 17:25:00 · 5726 阅读 · 1 评论 -
delphi 调用bat文件
<br />winexec(pchar('c:/test/test.bat'), SW_SHOW);<br /><br />第一个参数表示DOS命令的全路径,第二个表示运行方式<br /><br />SW_SHOW:显示运行,可以看得见DOS窗口<br />SW_HIDE:隐藏运行,看不见DOS窗口原创 2010-11-23 09:58:00 · 5123 阅读 · 0 评论 -
delphi 如何知道bat运行完毕
<br />//执行程序并等待其结束<br />Function WinExecExW(cmd,workdir:pchar;visiable:integer):DWORD;<br />var<br />StartupInfo:TStartupInfo;<br />ProcessInfo:TProcessInformation;<br />ret:DWORD;<br />begin<br />FillChar(StartupInfo,SizeOf(StartupInfo),#0);<br />StartupI原创 2010-11-23 09:50:00 · 1908 阅读 · 0 评论 -
DELPHI 通过ZLib来压缩文件夹
unit Unit1;interfaceuses ZLib, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;const cBufferSize = $4096; cIdent: string[3] = 'zsf';转载 2012-10-08 11:53:03 · 4558 阅读 · 1 评论 -
多个文件文件的拼接
procedure CompressFiles(Files: TStrings; const Filename: string; ATmpDir: string);var infile, outfile, tmpFile: TFileStream; compr: TCompressionStream; i,l: Integer; s, sTmpGuid: string;原创 2013-07-02 09:27:51 · 3678 阅读 · 0 评论 -
JAVA服务端多个文件合并传到客户端分解
If Not FileExists(fromFileName) Then Exit; Filestream:= TFilestream.Create(fromFileName,fmOpenRead); vSize := 1024; Filestream.Position := 0; count :=1; vStart := 0;原创 2013-07-02 09:31:52 · 3384 阅读 · 0 评论 -
一个文件(又N个文件组成的)分解成多个文件
procedure DecompressFiles(const Filename, DestDirectory: string; AFileList: TStringList);var dest, s: string; decompr: TDecompressionStream; infile, outfile: TFilestream; i,c,l : integer原创 2013-07-02 09:29:00 · 3295 阅读 · 0 评论