2004年10月_LuckyJan

11月 10月 09月 08月 03月

原创在网页中添加 Flash

http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="620" height="370">http://www.bandy.cn/images/BY3.swf">http://www.bandy.cn/images/BY3.swf" quality="high" pl

2004-10-25 09:13:00 1557

原创如何接受消息，中断正在处理的过程

var Interrupt:boolean;procedure TForm1.Button5Click(Sender: TObject);begin memo1.Lines.Add(Button5Click OK); Interrupt:=true;end;procedure TForm1.Button6Click(Sender: TObject);var i,j,n:integer;

2004-10-15 15:07:00 1734

原创 WinInet 下载文件示例

Uses WinInet(1)HTTP下载Function WWWDownFile(Const FTURL,LocalFile : String) : Boolean; //下载函数.Const FTAcceptTypes = */*; FTAgent = Explorer; FTUserName = ; //用户名. FTPassword

2004-10-15 12:08:00 2508

原创 (Delphi)如和下载网络文件的例子

FTP下载: http://www.7880.com/Info/Article-19938be0.html http://community.csdn.net/Expert/topic/3300/3300012.xml?temp=5.028933E-02FTP下载: TIdFTP控件 (Delphi7 Indy)Http下载: (Delphi7)使用设计Indy控件下载网络文件

2004-10-15 09:39:00 2169 1

原创浮动广告

(1)漂浮不定的广告var brOK=false;var mie=false;var vmin=2;var vmax=5;var vr=1;var timer1;var chinazads;var isflash=0; //是否为FLASH文件的漂浮 1=是 0=否var pic="http://www.9984.net/js/114.gif"; //图片的地址var alt="支持本站

2004-10-10 16:00:00 2568

原创查找目录或文件的几种方法

(A)指定文件查找function TForm1.findSpecFile(sDirectory,fName:string):boolean;var sr: TSearchRec ;begin if FindFirst(sDirectory+fName, faAnyFile, sr) = 0 then begin FindClose(sr); result:=true; end

2004-10-10 13:57:00 3218 1

原创中国农历算法(delphi)

// 节日算法请参见《农历与西历对照、万年历》unit CNYear;interfaceuses sysutils;type TCNDate = Cardinal;function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate; function GetGregDateFromCN(cnYear,cnMonth,cnDay:word;

2004-10-09 11:35:00 2826

原创提高FastReplace速度 (fStrRep.pas)

{其实还可以在FastReplace中先对FindStr进行判断，如果FindStr完全是中文的话，直接可以在FastReplace中用FastPos，这样可以提高速度。}unit fStrRep;interfaceType TFastPosProc = function( const aSourceString, aFindString : String; const

2004-10-09 11:22:00 1514 1

原创 mdb Utils (Access)

unit mdbUtils;interfaceuses windows,classes,sysutils,dao2000,dao97, comobj,adodb{$ifdef ver140},variants{$endif},dialogs;type TFieldRec=record fieldname:string; fieldType,fieldSize:integer;

2004-10-09 11:19:00 1624

原创数据压缩 -- 应用

例：多个目录下多个文件压缩到一个文件；对压缩文件解压到个对应目录。 //压缩文件流: 文件名长度 + 文件名 + 文件长度 + 压缩流 uses Lh5Unit.pas; //见数据压缩 -- 源码procedure Compress;var fOutStr: TFileStream; //压缩文件流

2004-10-09 11:15:00 1665 1

原创数据压缩 -- 源码

(******************************************************************************)(* *)(* LH5.PAS

2004-10-09 11:11:00 5564

原创数据补丁

当公司要定期给客户发送数据时，而且数据库很大，但每次更改量很小，这样就不毕发送整个数据库，只要发送一个数据补丁，在客户端对数据补丁操作一下即可更新整个数据库。下面对单个表操作=================================================================================== (公司端：源表src:旧数据库，目标表dst:新数

2004-10-09 11:09:00 1739

原创 fileStream

procedure TForm1.Button1Click(Sender: TObject);var f1:TFileStream; filename:String;begin OpenDialog1.Execute ; filename:=OpenDialog1.FileName ; f1:=TfileStream.Create (filename,fmopenread

2004-10-09 11:05:00 1332

原创 TStrings的AddObject方法应用,以及和 PChar 的相互转化

(1) integer 于 Object cmbBox.Items.AddObject(A_Value,pointer(I_Value)); I_Ret:=cmbBox.itemindex; I_perID:=integer(cmbBox.Items.Objects[I_Ret]);(2) string 于 Object A_Code:=custID; Com

2004-10-09 11:03:00 2182 1

原创 TextFile读写

function readFromFile:string;var s,s2:string; F:TextFile; begin OpenDialog1.FileName:=; OpenDialog1.Filter:=*.XML|*.xml; s:=; result:=; if not OpenDialog1.Execute then exit; assignfi

2004-10-09 11:01:00 1618

原创 Delphi 与 Excel (二)

//////////////////////////////// Excel 的一个宏 ///////////////////////////////////Sub setpageinfo(ByVal regDateStr As String) Dim I, maxRow As Integer 取得最大行 maxRow Range("A1").Select

2004-10-09 10:57:00 2012

原创直接访问WebBrowser控件中的HTML源码

直接访问WebBrowser控件中的HTML源码 ---- 为了实现在自己的程序中显示HTML文档，我们一般采用IE(Internet Explorer本文中简称为IE)发行时附带的一个ActiveX控件 TWebBrowser。这个控件使用和IE相同的内核，功能强大，并从Delphi5开始，正式得到Inprise公司的支持，取代了原来的那个 THTML控件，成为Delphi中

2004-10-09 10:27:00 1642 1

原创小知识，如Form淡出、捕捉Form最小化

(*)Form淡出1)AnimateWindow(Form1.Handle,1000,AW_BLEND);//淡入 AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);//淡出2)窗体有AlphaBlend属性和AlphaBlendValue属性，将AlphaBlend属性设为True，然后在Timer组件中随着时间改变AlphaBlendV

2004-10-09 10:25:00 1470

原创关于时间函数

【0】在工程文件中Application.Run语句之前加入下面语句,可不让主Form在运行时显示: Application.ShowMainForm := False; 【1】显示设置时间的对话框 ShellExecute(Handle, open, control, date/time, nil, SW_SHOW); 【2】FormatDateTime(y

2004-10-09 10:24:00 1299 1

原创文件与Olevariant

//---------------------------读数据到olevariant//pfileName:带路径的文件名function Getobj(pfileName:string): OleVariant;var fs:TFileStream;begin fs := TFileStream.Create(pfileName,fmOpenRead); try result :=

2004-10-09 10:22:00 1307

原创网络函数库

{============================================================= 功能: 网络函数库时间: 2002/10/02 版本: 1.0 备注: 没有事情干，抄抄写写整理了一些网络函数供大家使用。希望大家能继续补充===============================================

2004-10-09 10:20:00 1232

原创选择一个网路邻居

================= 选择一个网路邻居 =====================function SelectComputerName(handle: hwnd; var ComputerName: string): boolean;var BrowseInfo: TBrowseInfo; ItemIDList: PItemIDList; cName: array[0

2004-10-09 10:18:00 1129

原创文件与目录

strPcopy(BaseDbName,A_BaseName);gettemppath setlength(tmpFile,MAX_PATH); GetTempFileName(ExtractFilePath(application.ExeName),,0,pchar(tmpFile));================================== 目录与文件 ========

2004-10-09 10:17:00 1620

原创 delphi 常用函数

Abort 函数引起放弃的意外处理Abs(real) 函数绝对值函数AddExitProc 函数将一过程添加到运行时库的结束过程表中Addr(variant) 函数返回指定对象的地址AdjustLineBreaks 函数将给定字符串的行分

2004-10-09 10:13:00 1438

原创保存数据到 olevariant

function TTAutoTest.Getobj: OleVariant;var t:Tdataclass; ms:tmemorystream;begin t := TDataclass.create(nil); ms := Tmemorystream.create; try t.Savetostream(ms); result := vararraycreate([0,ms.

2004-10-09 10:11:00 1261

原创 Delphi 与 Word_VBA

插入表格Sub setTable() Set myRange = ActiveDocument.Range(Start:=2, End:=2) ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4End Sub取得Word常规字符串Sub getText() Set myRange = ActiveDo

2004-10-09 10:08:00 1784

原创应用程序中当前路径的两中写法、COM中当前路径取得

ExtractFilePath（）函数返回值最后包含 "/"///////////// 应用程序当前路径 ///////////// ExtractFilePath(paramstr(0)) ExtractFilePath(application.ExeName)///////////// COM中当前路径 ///////////// .... .... TC

2004-10-09 09:23:00 1442

原创 ADO带密码的数据连接、查询一个记录集、执行一SQL语句

在SQL语句中 like 条件用在Deiphi中： .... like "%aabbcc%"//////////////////////////////////////////////////////////////////unit UDataModule;interfaceuses Controls,SysUtils, Classes, DB, ADODB,windows,form

2004-10-09 09:17:00 1355

原创一个应用程序多次点击时，如何只让它只运行一个

///////////////////// （一）项目文件 test.dpr //////////////////////program SerialGet;uses Forms, UMain in UMain.pas {frmMain}, ULogin in UForm2.pas {Form2}, UDataModule in UDataModule.pas {Dat

2004-10-09 09:14:00 1784

原创合理应用用户登录界面，用户登录时不必创建其他窗体

///////////////////// （一）项目文件 test.dpr //////////////////////program SerialGet;uses Forms, UMain in UMain.pas {frmMain}, ULogin in ULogin.pas {frmLogin}, UDataModule in UDataModule.pas {

2004-10-09 09:06:00 1404

原创在网页中添加天气预报

src="http://appnews.qq.com/cgi-bin/news qq search?city=%C9%CF%BA%A3">注意：参数city=XXX 传入城市名称必须为 urlEncode，本例子中“%C9%CF%BA%A3”指上海 “%BA%CF%B7%CA”指合肥

2004-10-08 10:35:00 2299 3

原创鼠标下浮动的文字和时钟（转帖修改）

var Dy,Dx,DY,DX,i,x,y,X,Y,ie,ns,D,H,M,S,n,a;var dCol=009900;//date colour.var fCol=FF6666;//face colour.var sCol=0000ff;//seconds colour.var mCol=000000;//minutes colour.var hCol=FF0000;//

2004-10-08 10:24:00 1577