- 博客(32)
- 资源 (10)
- 收藏
- 关注
原创 在网页中添加 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 2509
原创 (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 2013
原创 直接访问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 1300 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 1622
原创 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 1443
原创 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 2300 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
LIS协议的相关资料及若干厂家的说明文档
2022-10-19
Flash自定义日历控件
2008-02-26
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人