penjie0418的专栏

原创 FindFirst

Unit: SysUtilsDelphi 语法:function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;FindFirst函数查找由Path参数指定的目录中的第一个匹配Path中隐含的文件名并且符合Attr参数属性的文件，由参数F将结果返回。如果成功找到文件Fin

转载 Delphi中ExtractFileName和ExtractFilePath

function ExtractFilePath(const FileName: string): string;function ExtractFileName(const FileName: string): string;返回指定文件的文件名及扩展名vars:string;begins:=ExtractFileName('D:\Program

转载 DELPHI--查找目录下所有文件方法二

（1）查找指定扩展名的文件procedure TForm1.Button1Click(Sender: TObject);varsr: TSearchRec;beginListBox1.Items.Clear ;if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 thenbegin    repeat      if po

转载 DELPHI--查找目录下所有文件

在站点收入了一篇文章:http://hi.baidu.com/nianxiaoyou/blog/item/de4b79faad71378c9f514669.html其中第三个内容是实现:查找某目录下的所有目录,包含 “.” “..”代码如下:procedure TForm1.Button2Click(Sender: TObject);varsr: TSearchRe

转载 DELPHI--获取某目录下的所有文件名的方法

//===================================================================== // 函数名称: FindPathFiles // 功能描述: 找指定目录下的文件 // 参 数: APath : 路径名称 // APropty : 属性名称(*.* | *.txt) // AFiles : 文件列表 // Is

原创 保存WebBrowse中内容到文件

var     HTMLDocument:   IHTMLDocument2;  //uses mshtml;    PersistFile:   IPersistFile;  //uses ActiveX;begin     ...     HTMLDocument   :=   WebBrowser1.Document   as   IHTMLDocument2;

原创 发送HTML内容==通过试验

==========================================delphi7源码，编辑通过=============================================================unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Cl

原创 <xsl:template>元素

XSLT元素是用于创建模板的。Match的属性的作用是使模板和XML与元素相结合。Match属性也可以为整个XML定义模版。Match属性值是一个XPath表达式。（也就是match="/" defines the whole document）

原创 经典SQL语句集锦

下列语句部分是MsSql语句，不可以在access中使用。SQL分类： DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE) DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT) DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK)首先,简要介绍基础语句：1、说明：创建数据库CREATE

原创 C++类的设计习惯及头文件重复包含问题的解决

原创 引用

在 C++中，还有一个引用的概念。引用就是一个变量的别名，它需要用 另一个变量或对象来初始化自身。 引用就像一个人的外号一样， 例如： 有一个人， 他的名字叫做张旭，因他在家排行老三，别人给他取了一个外号叫张三，这样， 我们叫张三或张旭，指的都是同一个人。下面的代码声明了一个引用 b，并用变 量 a 进行了初始化-----------------------------------

原创 函数的隐藏

原创 函数的覆盖

在基类 animal 的 breathe 函数前添加了 virtual 关键字， 声明该函数为虚函数。 我们注意到， 类的 breathe 函数和 animal fish 在派生类 fish 中重写了 breathe 函数， 的 breathe 函数完全一样，无论函数名，还是参数列表都是一样的，这称为函 数的覆盖（override） 。 构成函数覆盖的条件为：

原创 类的继承

继承

原创 虚函数与多态性/纯虚函数

虚函数发现基类中xx函数是虚函数C++就采用迟绑定技术,也就是说编译时并不确定具体调用哪个函数,而是在运行时根据对象为类型来确定调用哪一个函数---------------这就叫C++的多态性多态性纯虚函数

转载 WebBrowser控件使用详解

方法说明GoBack相当于IE的“后退”按钮，使你在当前历史列表中后退一项GoForward相当于IE的“前进”按钮，使你在当前历史列表中前进一项GoHome相当于IE的“主页”按钮，连接用户默认的主页GoSearch相当于IE的“搜索”按钮，连接用户默认的搜索页面N

原创 WebBrowser组件====用作网页编辑器

1、进入编辑模式uses   mshtml;with WebBrowser1.Document as IHTMLDocument2 do designMode := 'ON';=======================================================================1.在formcreate事件中加

原创 WebBrowser组件

1.获得网页中变量值       htm中 var currID=123       程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID       值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量

转载 用C++ Builder实现电子邮件群发

摘 要：本文简单阐述了发送电子邮件的原理，提出了一种基于C++ Builder和Access2000数据库来实现电子邮件群发的方法，详细介绍了C++ Builder 中TIdSMTP组件的使用，并给出了用TIdSMTP组件实现群发的核心示例代码。　　关键词：电子邮件群发；认证；TIdSMTP；TIdMessage；ADO　　引言　　 邮件群发这一手段被广泛应用于电子商务、网

原创 邮件群发系统代码解析

概要：         子线程工作，发送成功邮件做标记，逐条提取数据，气泡提示信息，最小化到托盘，实时进度条 代码：using System;using System.Collections;using System.Collections.Generic;using System.ComponentModel;using System.Data;using S

原创 第2章 Object Pascal语言基础

本章重点l         保留字和标识符l         常量与变量l         数据类型l         运算符与表达式l         语句l         过程与函数 Delphi的编程语言是Object Pascal，即面向对象的Pascal语言。自Delphi 7 开始，Object Pascal语言改称为 Delphi

原创 Delphi中的INI文件編程

INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi3提供了一个Tinifile类，使我们可以非常灵活的处理INI文件。一、有必要了解INI文件的结构：;注释[小节名]关键字=值...---- INI文件

原创 Delphi文本文件读写

Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。 1.文件变量与文件名关

原创 Delphi关键字详解

Delphi关键字详解absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var  Str: string[32];  StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin

原创 常用函数-------日期函数

对日期的处理，一般在有日期限制的共享、商业软件中经常使用到。如果你打算编写一款有日期限制的软件，熟悉使用下面的函数即可以实现。 　　1.Date　　功能说明：返回当前的日期。 　　参考实例： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 　Label1.Caption := '今

原创 常用函数-------数学运算函数

我们在编写跟数学紧密相关的程序时，数学运算函数将大有用处。比如图像处理软件，就会大量用到这些数学运算函数。 　　默认情况下，Delphi新建的工程里，没有包含大多数的数学运行函数，因此需要在Uses中加入Math单元。 　　1.Abs　　功能说明：求绝对值。 　　参考实例： 　　var 　　 　r: Single; 　　 　i: Integer;

原创 常用函数-------内存、指针操作函数

在编程中，动态数组为我们处理数据带来了很大的方便。Windows API函数也为增强程序的功能提供了强有力的保障。当我们在使用这些动态数组及API函数时，常常需要动态分配内存空间，这样动态数组才能被我们使用，API函数才能正确的返回结果。因此，这些函数是必不可少的。 　　1.AllocMem　　功能说明：分配内存空间并自动初始化为零。如果不需要初始化为零，可以使用GetMem代替All

原创 常用函数-------文件、磁盘操作函数

软件大多都要对文件、磁盘进行操作。熟悉掌握这些函数可以帮助你轻松实现创建、删除、保存文件等功能。 　　1.Append　　功能说明：追加内容到文件中。文件必须要存在。 　　参考实例： 　　var 　　 　S: String; 　　 　F: TextFile; 　　begin 　　 　S := 'This is a book.';

原创 常用函数-------字符串、数组操作函数

对字符串及数组的操作，是每个程序员必须要掌握的。熟练的使用这些函数，在编程时能更加得心应手。 　　1.Copy　　功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。 　　参考实例：

原创 常用函数-------数据类型转换函数

一、数据类型转换函数　　在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。 　　1.FloatToStr　　功能说明：该函数用于将“浮点型”转换成“字符型”。 　　参考实例： 　　Edit1.Text :=FloatToStr(1.981);

原创 输入表

原创 区段介绍

原创 导出表

原创 PE注释组图

原创 PE说明

DOS  +3C   ==>代表PE起始地址(DWORD)PE   +14   ==>代表PE大小(WORD)PE   +18 地址  + PE大小==>代表节表首地址(WORD)每个节表28位

原创 PE节表介绍

节表RVA(每个节表28位)+0 ==>节表名(8位)+8 ==>物理地址(4位)+C ==>真实长度,这两个值是一个联合结构,可以使用其中的任何一个,一般取后一个(4位)+10 ==>节区的RVA地址(4位)+14 ==>在文件中对齐后的尺寸(4位)+18 ==>在文件中的偏移量(4位)+1C ==>在OBJ文件中使用,重定位的偏移(4位)+20 ==>行号表的偏

原创 DOS注释

原创 捷径

原创 名字－命名规则

全局变量；使用具有说明性的名字全局变量作用范围广，因此变量名必须具有足够说明性，以便读者一看就知道其作用局部就是：使用短名字比如：I和J表示循环变量，P和Q作为指针，S 和T 作为字符串

转载 Delphi调用HTML（javascript）

本例测试用的 Html 文件(包含三个要测试的 Js 函数):html> head> title>title> SCRIPT LANGUAGE=javascript> //重复字符串的函数 function JsStr2(str) { return str + str; } //计算一个数的倍数的函数 function JsNum2(num) { return num + n