delphi
penjie0418
这个作者很懒,什么都没留下…
展开
-
Delphi连接Paradox数据库
{ 1、在 Datebase DeskTop 中新建表2、找到工具菜单,Alias Messageer 中 NEW 为数据表创建别名 OK3 、在工程中的BDE工具卡上打开 query工具,}procedure TForm1.btn2Click(Sender: TObject);var sql1,sql2:string; I,m:Integer原创 2012-09-01 09:33:53 · 2056 阅读 · 0 评论 -
Delphi让你发送Flash电子邮件完整源代码
{******Unit1.pas源代码内容如下******} unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Psock, NMsmtp; type TForm1 = class转载 2012-01-07 11:29:39 · 1200 阅读 · 0 评论 -
第2章 Object Pascal语言基础
本章重点l 保留字和标识符l 常量与变量l 数据类型l 运算符与表达式l 语句l 过程与函数 Delphi的编程语言是Object Pascal,即面向对象的Pascal语言。自Delphi 7 开始,Object Pascal语言改称为 Delphi原创 2012-01-10 22:33:42 · 1368 阅读 · 0 评论 -
Delphi文本文件读写
Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。 文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤:1.文件变量与文件名关联;2.初始化读写。 1.文件变量与文件名关原创 2012-01-10 22:30:15 · 1716 阅读 · 0 评论 -
常用函数-------日期函数
对日期的处理,一般在有日期限制的共享、商业软件中经常使用到。如果你打算编写一款有日期限制的软件,熟悉使用下面的函数即可以实现。 1.Date 功能说明:返回当前的日期。 参考实例: procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := '今原创 2012-01-10 22:03:01 · 451 阅读 · 0 评论 -
常用函数-------数学运算函数
我们在编写跟数学紧密相关的程序时,数学运算函数将大有用处。比如图像处理软件,就会大量用到这些数学运算函数。 默认情况下,Delphi新建的工程里,没有包含大多数的数学运行函数,因此需要在Uses中加入Math单元。 1.Abs 功能说明:求绝对值。 参考实例: var r: Single; i: Integer;原创 2012-01-10 22:01:53 · 567 阅读 · 0 评论 -
WebBrowser组件
1.获得网页中变量值 htm中 var currID=123 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量原创 2012-01-11 15:43:56 · 596 阅读 · 0 评论 -
Delphi关键字详解
Delphi关键字详解absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin原创 2012-01-10 22:28:50 · 743 阅读 · 0 评论 -
常用函数-------内存、指针操作函数
在编程中,动态数组为我们处理数据带来了很大的方便。Windows API函数也为增强程序的功能提供了强有力的保障。当我们在使用这些动态数组及API函数时,常常需要动态分配内存空间,这样动态数组才能被我们使用,API函数才能正确的返回结果。因此,这些函数是必不可少的。 1.AllocMem 功能说明:分配内存空间并自动初始化为零。如果不需要初始化为零,可以使用GetMem代替All原创 2012-01-10 22:00:49 · 332 阅读 · 0 评论 -
常用函数-------文件、磁盘操作函数
软件大多都要对文件、磁盘进行操作。熟悉掌握这些函数可以帮助你轻松实现创建、删除、保存文件等功能。 1.Append 功能说明:追加内容到文件中。文件必须要存在。 参考实例: var S: String; F: TextFile; begin S := 'This is a book.';原创 2012-01-10 21:59:37 · 568 阅读 · 0 评论 -
常用函数-------字符串、数组操作函数
对字符串及数组的操作,是每个程序员必须要掌握的。熟练的使用这些函数,在编程时能更加得心应手。 1.Copy 功能说明:该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串),第二个参数是从字符串某一处开始复制,第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。 参考实例:原创 2012-01-10 21:57:22 · 507 阅读 · 0 评论 -
WebBrowser组件====用作网页编辑器
1、进入编辑模式uses mshtml;with WebBrowser1.Document as IHTMLDocument2 do designMode := 'ON';=======================================================================1.在formcreate事件中加原创 2012-01-11 15:46:52 · 1052 阅读 · 0 评论 -
保存WebBrowse中内容到文件
var HTMLDocument: IHTMLDocument2; //uses mshtml; PersistFile: IPersistFile; //uses ActiveX;begin ... HTMLDocument := WebBrowser1.Document as IHTMLDocument2;原创 2012-01-15 11:31:45 · 684 阅读 · 0 评论 -
delphi hook send和Recv
有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的HTTP头进行分析,得到请求的地址等.这次我们可以用一些例如WPE, Sniffer之类的工具来达到目的.但是工具功能有限,要想实现更强大的功能,还是我们自己动手来DIY吧. 拦截网络数据封包的方法有三种,一是将网卡设为混杂模式,这次就可以监视到局域网上所有的数据包,二是HOOK目标进程的发送和接收的API函转载 2012-08-16 14:42:24 · 4037 阅读 · 0 评论 -
PARADOX DB 万能密码
paradox数据库的万能密码 如果是paradox, 请用此万能密码: jIGGAe 还有:nx66ppx 注意大小写 version password Paradox 7 jIGGAe or cupcdvum Paradox 5 jIGGAe or cupcdvu转载 2012-08-11 16:22:41 · 3750 阅读 · 0 评论 -
delphi编写电子邮件的制作步骤
在delphi中TNMPop控件 -------接收电子邮件,pop3 pop3协议自身命令 命令 说明 USER 向pop3服务器器传递用户名 PASS 向pop3服务器器传递用户密码 STAT 获取当前用户的邮件数 LIST 获取邮件标号和大小 BETR 获取邮件的全部信息,包括邮件头和邮件内容 TOP转载 2012-02-10 17:10:09 · 852 阅读 · 0 评论 -
上网助手
自从家里的电信宽带由包年换成所谓的套餐之后,每月的上网时间就必须要控制在150小时以内,于是乎被迫将无线路由器由自动上网改成手动上网。每次上网必须要先打开路由器控制页面,再用Excel计时,对于我这样出类拔萃的懒人来说,不免有些嫌烦。好容易乘工作之闲,再次写了一个上网助手,直接控制无线路由器的连接和断线,同时自动进行计时,用起来果然方便许多。上面是程序运行时的界面,图中可以看到转载 2012-02-10 14:44:33 · 872 阅读 · 0 评论 -
自己写的一些Delphi常用函数
今天在整理以前写过的代码,发现有些函数还是挺实用的,决定将其贴到Blog上,与众多好友一起分享。{******************************************************************************* * 模块名称: 公用函数库 * 编写人员: Chris Mao * 编写日期: 2004.10.30 *****转载 2012-02-07 21:25:19 · 473 阅读 · 0 评论 -
FindFirst
Unit: SysUtilsDelphi 语法:function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;FindFirst函数查找由Path参数指定的目录中的第一个匹配Path中隐含的文件名并且符合Attr参数属性的文件,由参数F将结果返回。如果成功找到文件Fin原创 2012-01-17 21:39:55 · 1040 阅读 · 0 评论 -
DELPHI--查找目录下所有文件方法二
(1)查找指定扩展名的文件procedure TForm1.Button1Click(Sender: TObject);varsr: TSearchRec;beginListBox1.Items.Clear ;if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 thenbegin repeat if po转载 2012-01-17 21:12:18 · 884 阅读 · 0 评论 -
DELPHI--获取某目录下的所有文件名的方法
//===================================================================== // 函数名称: FindPathFiles // 功能描述: 找指定目录下的文件 // 参 数: APath : 路径名称 // APropty : 属性名称(*.* | *.txt) // AFiles : 文件列表 // Is转载 2012-01-17 21:08:53 · 1499 阅读 · 0 评论 -
DELPHI--查找目录下所有文件
在站点收入了一篇文章:http://hi.baidu.com/nianxiaoyou/blog/item/de4b79faad71378c9f514669.html其中第三个内容是实现:查找某目录下的所有目录,包含 “.” “..”代码如下:procedure TForm1.Button2Click(Sender: TObject);varsr: TSearchRe转载 2012-01-17 21:11:17 · 2863 阅读 · 0 评论 -
Delphi中ExtractFileName和ExtractFilePath
function ExtractFilePath(const FileName: string): string;function ExtractFileName(const FileName: string): string;返回指定文件的文件名及扩展名vars:string;begins:=ExtractFileName('D:\Program转载 2012-01-17 21:31:24 · 3272 阅读 · 0 评论 -
Delphi中的INI文件編程
INI文件在系统配置及应用程序参数保存与设置方面,具有很重要的作用,所以可视化的编程一族,如VB、VC、VFP、Delphi等都提供了读写INI文件的方法,其中Delphi中操作INI文件,最为简洁,这是因为Delphi3提供了一个Tinifile类,使我们可以非常灵活的处理INI文件。一、有必要了解INI文件的结构:;注释[小节名]关键字=值...---- INI文件原创 2012-01-10 22:31:38 · 343 阅读 · 0 评论 -
常用函数-------数据类型转换函数
一、数据类型转换函数 在我们编写程序当中,根据不同情况,会使用到多种数据类型。当要对不同的类型进行操作时,必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。 1.FloatToStr 功能说明:该函数用于将“浮点型”转换成“字符型”。 参考实例: Edit1.Text :=FloatToStr(1.981);原创 2012-01-10 21:55:23 · 2247 阅读 · 0 评论 -
Combobox响应事件
procedure TForm1.ComboBox1Change(Sender: TObject);begin case combobox1.ItemIndex of 0:begin memo1.text:='jb'; end; 1:begin memo1.text:='djb'; e原创 2012-01-06 23:21:38 · 774 阅读 · 0 评论 -
delphi发送邮件(附件+内嵌资源)源码分析
1.无附件 with TIdText.Create(IdMessage1.MessageParts, nil) do begin Body.Text := 'plain text goes here'; ContentType := 'text/plain'; end; with TIdText.Create(IdMessage1.MessageP原创 2012-01-06 22:36:33 · 1625 阅读 · 0 评论 -
delphi发送邮件程序
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessag原创 2012-01-06 22:29:14 · 1366 阅读 · 0 评论 -
Delphi调用HTML(javascript)
本例测试用的 Html 文件(包含三个要测试的 Js 函数):html> head> title>title> SCRIPT LANGUAGE=javascript> //重复字符串的函数 function JsStr2(str) { return str + str; } //计算一个数的倍数的函数 function JsNum2(num) { return num + n转载 2012-01-07 11:39:20 · 2081 阅读 · 0 评论 -
RichEdit保存与读取
保存为rtf格式 redt1.Lines.SaveToFile ('xxxx.rtf'); 读取:redt1.Lines.loadfromfile ('xxxx.rtf');原创 2012-01-07 11:23:48 · 1298 阅读 · 0 评论 -
indy邮件发送
在窗体中加入发送EMAIL所需要的两个控件(TIdSMTP,TIdMessage) TIdSMTP 所在的位置是indyclientsè TIdSMTPTidMessage所在的位置是indy MiscèTidMessage SMTP其最常用的属性和方法如下: Host:SMTP邮件服务器的地址,如SMTP.SINA.COM.CN Port:SMTP邮件服转载 2012-01-07 11:23:35 · 743 阅读 · 0 评论 -
优秀Delphi博客收录
万一的博客------------http://www.cnblogs.com/del原创 2012-01-07 11:23:17 · 285 阅读 · 0 评论 -
Delphi 中的常用事件
序号事件描述1. OnActive焦点称到窗体或控件时发生2. OnClick鼠标单击事件3. OnDbClick鼠标双击事件4. OnCl原创 2012-01-06 23:22:45 · 554 阅读 · 0 评论 -
将listview保存为TXT
var lList: Tstrings; i: integer;begin lList:= TStringList.Create; try for i:=0 to ListView.Items.Count -1 do LList.add(listview1.items[i].caption + '|' + listview1.items[i原创 2012-01-06 23:14:39 · 1358 阅读 · 0 评论 -
实现IP地址输入框
1,窗体内放入一个TMaskEdit控件2,设置控件EditMask属性Input Mask值为999.999.999.999,Character for Blanks值为 空格,Save Literal Charaters值为True.3,设置AutoSelect属性值为False4,控件的OnChange事件添加如下代码:procedure TFrmMain.MEdtSer原创 2012-01-06 23:07:57 · 3023 阅读 · 0 评论 -
ListView组件(属性设置)
procedure TMyForm.FormCreate(Sender: TObject);var Group: TListGroup; Item: TListItem; s1, s2: string;begin//以下属性可以在属性窗口中手动设置,也可以动态设置 ListView1.ViewStyle := vsReport; ListView1.Gr原创 2012-01-06 22:58:45 · 431 阅读 · 0 评论 -
TStringList 的使用方法详解
TStringList 的使用方法详解var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1);原创 2012-01-06 22:39:30 · 2070 阅读 · 0 评论 -
Delphi 快捷键
分类快捷键解释备注组件设计类Escape选择当前组件容器 Shift + Click选择多个组件;选择窗体 Tab选择下一个组件 Shift + Tab选择上一个组件原创 2012-01-06 22:44:45 · 352 阅读 · 0 评论 -
RichEdit控件加载背景图片
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls,原创 2012-01-06 23:19:58 · 1271 阅读 · 0 评论 -
ListView响应双击事件
在属性的另一个选项卡‘事件’选项卡中找到OnDbClick事件中找到ListViewDblClick事件并增加代码原创 2012-01-06 23:18:47 · 1277 阅读 · 0 评论