摘要：//==================?Word_VBA 代码?====================//sub inWord()? Dim myTable As Table? Dim myBox, myPict, myShape As Shape? ? '画第一个矩形框? Set myBox = ActiveDocument.Shapes.AddTextbox(Orientation:=...
阅读全文
11 2004 档案
摘要：'插入表格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...
阅读全文
摘要：//取得Word文件的数据procedure getWordStr;var WordApp: TWordApplication; WordDoc: TWordDocument; DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument, PswTemplate,oRevert,WPswDocument,WPs...
阅读全文
摘要：//取得Word 表格中的数据procedure getWordCellStr;var WordApp: TWordApplication; WordDoc: TWordDocument; DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument, PswTemplate,oRevert,WPswDocum...
阅读全文
摘要：//合并Word 表格中单元格procedure mergeWordCell;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,??? PswTemplate,oRevert,WPswDocumen...
阅读全文
摘要：//怎样可以提高EXCEL的导出速度？ uses ADODB,excel97,adoint; function TForm1.ExportToExcel: Boolean; var xlApp,xlBook,xlSheet,xlQuery: Variant; adoConnection,adoRecordset: Variant; begin adoConnection := Cr...
阅读全文
摘要：//Excel的单元格拷贝粘贴procedure Excel_copyCells;var sheet,XLApp,workbook,myRange1 ,myRange2: variant;begin try //创建对象 XLApp:=createOleObject('Excel.Application'); XLApp.displayAlerts:=true;...
阅读全文
摘要：//////////////////////////////// Excel 的一个宏 ///////////////////////////////////Sub setpageinfo(ByVal regDateStr As String) Dim I, maxRow As Integer '取得最大行 maxRow Range("A1").Select...
阅读全文
摘要：uses comobj,excel97,excel2000; //从Excel写数据到Access库prodedure ExcelToMdb(EXLfile:string;);var sheet,XLApp,workbook : variant;iRow,MaxRow:integer;beginscreen.Cursor:=crHourGlass;? try //创建对象...
阅读全文
摘要：//(1)获取 IDE 硬盘序列号 function GetIdeSerialNumber() : PChar; stdcall; const IDENTIFY_BUFFER_SIZE = 512; type TIDERegs = packed record bFeaturesReg: BYTE; // Used for specifying SMART "comm...
阅读全文
摘要：uses TLHelp32,PsAPI; (1)显示进程列表：procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32; found : boolean; Hand : THandle; P:DWORD; s:string;begin ListBox1.Items.Clear ; H...
阅读全文
摘要：Server 端： SoapDataModule中加入 ADOConnection1、ADODataSet1、DataSetProvider1；DataSetProvider1的DataSet设置为ADODataSet1；ADODataSet1的CommandText设置为空，Connection设置为ADOConnection1。DataSetProvider1的DataRequest事件：f...
阅读全文
摘要：uses inifiles; function readInifile(fileName,section,Ident:string):string; //读取配置文件var ini:tinifile;begin ini:=tinifile.Create(fileName); result:=ini.ReadString(section,ident,''); ini.Free;en...
阅读全文
摘要：program softInfo; uses Forms, Windows, Dialogs, shellapi, inifiles, SysUtils ; {$R *.res} procedure install(); begin MessageDlg('install',mtWarning,[mbOK],0) ; end; procedure u...
阅读全文
摘要：uses dao97,dao2000; procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);var idbEngine:_dbEngine;begin if oldpwd '' then oldpwd := ';pwd='+oldpwd; if newpwd ...
阅读全文
摘要：新建一 DataSet , 并加入数据 : prepareTablefunction TFrm_Print.CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;var TempTable:TClientDataSet;begin TempTable:=nil; Result:=nil; if AFieldDefsnil the...
阅读全文
摘要：function StringToVariantArray(const S: string): OleVariant;var P: Pointer;begin Result := NULL; if Length(S) > 0 then begin Result := VarArrayCreate([0, Length(S) - 1], varByte); P := VarArr...
阅读全文
摘要：// 方法一 ：利用不规则图片 (1)procedure TForm1.FormCreate(Sender: TObject);begin self.ClientWidth := HotImage1.Width ; self.ClientHeight := HotImage1.Height ; brush.style:=bsClear;end; (2)把Form1 的 BorderSty...
阅读全文
摘要：///////////////////// （一）项目文件 test.dpr //////////////////////program SerialGet; uses Forms, UMain in 'UMain.pas' {frmMain}, ULogin in 'ULogin.pas' {frmLogin}, UDataModule in 'UDataModule.pas' {...
阅读全文
摘要：///////////////////// （一）项目文件 test.dpr //////////////////////program SerialGet; uses Forms, UMain in 'UMain.pas' {frmMain}, ULogin in 'UForm2.pas' {Form2}, UDataModule in 'UDataModule.pas' {Dat...
阅读全文
摘要：在SQL语句中 like 条件用在Deiphi中 ： .... like "%aabbcc%"//////////////////////////////////////////////////////////////////unit UDataModule; interface uses Controls,SysUtils, Classes, DB, ADODB,windows,form...
阅读全文
摘要：ExtractFilePath（）函数返回值最后包含 "\"///////////// 应用程序当前路径 ///////////// ExtractFilePath(paramstr(0)) ExtractFilePath(application.ExeName)///////////// COM中当前路径 ///////////// .... .... TC...
阅读全文
摘要：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....
阅读全文
摘要：Abort 函数 引起放弃的意外处理Abs(real) 函数 绝对值函数AddExitProc 函数 将一过程添加到运行时库的结束过程表中Addr(variant) 函数 返回指定对象的地址AdjustLineBreaks 函数 将给定字符串的行分...
阅读全文
摘要：strPcopy(BaseDbName,A_BaseName);gettemppath setlength(tmpFile,MAX_PATH); GetTempFileName(ExtractFilePath(application.ExeName),'',0,pchar(tmpFile));================================== 目录与文件 ========...
阅读全文
摘要：================= 选择一个网路邻居 =====================function SelectComputerName(handle: hwnd; var ComputerName: string): boolean;var BrowseInfo: TBrowseInfo; ItemIDList: PItemIDList; cName: array[0...
阅读全文
摘要：{============================================================= 功 能: 网络函数库 时 间: 2002/10/02 版 本: 1.0 备 注: 没有事情干，抄抄写写整理了一些网络函数供大家使用。 希望大家能继续补充===============================================...
阅读全文
摘要：//---------------------------读数据到olevariant//pfileName:带路径的文件名function Getobj(pfileName:string): OleVariant;var fs:TFileStream;begin fs := TFileStream.Create(pfileName,fmOpenRead); try result := ...
阅读全文
摘要：【0】在工程文件中Application.Run语句之前加入下面语句,可不让主Form在运行时显示: Application.ShowMainForm := False; 【1】显示设置时间的对话框 ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW); 【2】FormatDateTime('y...
阅读全文
摘要：(*)Form淡出1)AnimateWindow(Form1.Handle,1000,AW_BLEND);//淡入 AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);//淡出2)窗体有AlphaBlend属性和AlphaBlendValue属性，将AlphaBlend属性设为True，然后在Timer组件中随着时间改变AlphaBlendV...
阅读全文
摘要：直接访问WebBrowser控件中的HTML源码 ---- 为了实现在自己的程序中显示HTML文档，我们一般采用IE(Internet Explorer本文中简称为IE)发行时附带的一个ActiveX控件 TWebBrowser。这个控件使用和IE相同的内核，功能强大，并从Delphi5开始，正式得到Inprise公司的支持，取代了原来的那个 THTML控件，成为Delphi中...
阅读全文
摘要：诗词： 浣溪沙 1994-12-26 蝶恋花(1) 1994-12-28 清平乐 1995-02-00 虞美人.伤春 1996-03-00 西江月 1996-10-00 木烂花.思过 1997-01-00 蝶恋花(2) 1997-07-00 蝶恋花(3) 1999-08-00 悸动 2002-11-18缘去缘来： 社会的不公平 ...
阅读全文
posted @ 2004-11-23 11:43
LuckyJan
摘要：直接访问WebBrowser控件中的HTML源码 ---- 为了实现在自己的程序中显示HTML文档，我们一般采用IE(Internet Explorer本文中简称为IE)发行时附带的一个ActiveX控件 TWebBrowser。这个控件使用和IE相同的内核，功能强大，并从Delphi5开始，正式得到Inprise公司的支持，取代了原来的那个 THTML控件，成为Delph...
阅读全文
摘要：function readFromFile:string;var s,s2:string; F:TextFile; begin OpenDialog1.FileName:=''; OpenDialog1.Filter:='*.XML|*.xml'; s:=''; result:=''; if not OpenDialog1.Execute then exit; assignf...
阅读全文
摘要：(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'; Comb...
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);var f1:TFileStream; filename:String;begin OpenDialog1.Execute ; filename:=OpenDialog1.FileName ; f1:=TfileStream.Create (filename,fmopenrea...
阅读全文
摘要：当公司要定期给客户发送数据时，而且数据库很大，但每次更改量很小，这样就不毕发送整个数据库，只要发送一个数据补丁，在客户端对数据补丁操作一下即可更新整个数据库。下面对单个表操作===================================================================================(公司端：源表src:旧数据库，目标表dst:新数据...
阅读全文
摘要：(******************************************************************************)(* *)(* LH5.PAS...
阅读全文
摘要：例：多个目录下多个文件压缩到一个文件； 对压缩文件解压到个对应目录。 //压缩文件流: 文件名长度 + 文件名 + 文件长度 + 压缩流 uses Lh5Unit.pas; //见 数据压缩 -- 源码procedure Compress;var fOutStr: TFileStream; //压缩文件流 ...
阅读全文
摘要：unit mdbUtils; interfaceuses windows,classes,sysutils,dao2000,dao97, comobj,adodb{$ifdef ver140},variants{$endif},dialogs; type TFieldRec=record fieldname:string; fieldType,fieldSize:integer...
阅读全文
摘要：{其实还可以在FastReplace中先对FindStr进行判断，如果FindStr完全是中文的话，直接可以在FastReplace中用FastPos，这样可以提高速度。} unit fStrRep; interface Type TFastPosProc = function( const aSourceString, aFindString : String; const...
阅读全文
摘要：农历与西历对照 本地时间: 时间 û 0000 JUN 西历年月 日 一 二 三 四 五 六...
阅读全文
摘要：// 节日算法 请参见 《农历与西历对照、万年历》unit CNYear; interface uses sysutils; type TCNDate = Cardinal; function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate; function GetGregD...
阅读全文
摘要：(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...
阅读全文
摘要：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控件下载网络文件...
阅读全文
摘要：Uses WinInet(1)HTTP下载Function WWWDownFile(Const FTURL,LocalFile : String) : Boolean; //下载函数.Const FTAcceptTypes = '*/*'; FTAgent = 'Explorer'; FTUserName = ''; //用户名. FTPassword...
阅读全文
摘要：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;...
阅读全文
摘要：（一）说明 WebApplication安装部署时，不能选择安装路径；解决思路： （1）创建一个控制台应用程序CreateWebDir.exe ，作用是创建 Web 虚拟目录。 （2）创建一个控制台应用程序deleteWebDir.exe ，作用是删除 Web 虚拟目录。 （3）安装部署制作采用windows Application安装部署，不是WebApplicat...
阅读全文
摘要：(*)首先建立一个控制台应用程序,代码如下（一）main.cs 使用示例 using System;using System.IO;using System.DirectoryServices;using System.Runtime.InteropServices; namespace CreateWebDir{ /// /// Class1 的摘要说明。 /// class Start...
阅读全文
摘要：（一）INIFile.cs using System;using System.Runtime.InteropServices;using System.Text; namespace CreateWebDir{/// /// INIFile 的摘要说明。/// public class INIFile{ public string path; public INIFile(...
阅读全文
摘要：/// ============ SpecialFolder ============/// /// ApplicationData @"C:\Documents and Settings\whj\Application Data"/// CommonApplicationData @"C:\Documents and Settings\All Users\Application Da...
阅读全文
摘要：仅有爱情是不够的 新华网 （ 2004-05-14 08:00:49 ） 来源： 发展论坛 感谢 满天梅花雪 推荐 这是个...
阅读全文
摘要：日子实在过不下去了，离婚对我们来说，是最明智的选择，反正也没小孩的拖累。我说出离婚这两个字后的第三天，我们就去街道把这事给办了。 她是我大学同学，我们谈了三年恋爱，在一起又过了三年。 只是有一个问题，离婚之后，在她还没找到新住所之前，我们还得住一起。 自己想想都觉得搞笑，谈恋爱的时候，我们特纯洁，虽然彼此之间不止于牵手拥抱，但是同居这样的事情，压根没敢尝试过。没想到现在离婚了，倒赶了...
阅读全文
浙公网安备 33010602011771号