菜鸟营的战斗机-优快云博客

原创 Delphi删除指定文件夹及文件夹下所有子目录与文件

懒了，自己记录以备后用，直接贴整个单元代码了。使用时调用 DeleteDir函数传入需要删除的文件夹路径就行了。unit ZipUtil;interfaceuses SysUtils, Classes, VCLZip, VCLUnZip, Dialogs, ActiveX; //删除目录和目录下得所有文件和文件夹 procedure DeleteDir(sDirectory:...

2018-03-13 09:17:15 4206

原创【备忘】导出Excel，使用NativeExcel控件

使用控件NativeExcel控件开发导出Excel的公共通用类

2017-03-27 10:35:45 4270

原创关于HTTP上传文件报文代码片记录

HTTP上传POST报文通过使用TIdMultiPartFormDataStream类，在网上看到有人说这个TIdMultiPartFormDataStream类使用释放有问题，BUG很多，暂时我没遇到，至少解决了我的问题，期待有高手写一个更加好更加完美的类能替代这个。引用单元uses IdGlobal, IdMultipartFormData,idhttp;代码片func

2017-03-10 15:17:41 2369

转载【备忘】，Ansi与Unicode编码互转

前段时间用D7开发到调用XE5的开发的动态库，然后在网上找到这2个转码函数，D7亲测可用，只是时间过去了，忘记从哪转载的了，在此表示对原创者抱歉了。纪念以备不时之需，不过低版本Ansi编码传参到高版本unicode编码，参数定义为widestring，好像不必转码。只是我人懒，懒得试了。Ansi转Unicodefunction AnsiToUnicode(Str: String

2017-03-10 15:02:08 887

原创 DBGridEh导出excel(备忘)

uses comobjprocedure ExportToExcel(OutGrid:TDBGridEh;AFileName:string);var XLApp: Variant; Sheet: Variant; s1, s2: string; Caption: String; Row, Col: integer; iCount, jCount: Int

2016-06-07 17:30:34 590

原创 Delphi Edit限制只能输入数字

据说高版本的XE已经有一个numberonly这样的属性限制只能输入数字了，我还一直用D7，只有开发Webservice接口时才用到XE2，有点落后了！！一点点经验还是要记录下来，说不定后面哪天用得到呢？Edit的KeyPress事件写代码、我的Demo是一个共用的KeyPress事件procedure TForm1.Edit1KeyPress(Sender: TObject; var

2015-07-21 17:03:25 8012

原创 delphi 判断程序是否运行、自定义消息显示程序运行界面

view source中代码var mymutex: THandle;begin mymutex:=CreateMutex(nil,True,'检测进程运行工具'); if GetLastError begin Application.Initialize; Application.MainFormOnTaskbar := false;

2014-10-15 11:23:49 1810

原创 Delphi操作Excel日志记录

uses Comobj;procedure TForm10.ExeclExit;var h,k:integer; Excelid: OleVariant; s: string;begin try Excelid := CreateOLEObject('Excel.Application'); except Application.M

2014-05-30 11:48:04 834

原创 DELPHI 字符串与日期格式互转

procedure TForm1.Button1Click(Sender: TObject);var D:TDateTime; s:string;begin D:=VarToDateTime('05-10-14 04:35PM'); S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D); showmessage(s);end

2014-05-14 17:20:16 30205

原创 DELPHI分别连接MS SQLSERVER、Oracle和ACCESS数据库的连接字符串（备用）

1、DELPHI连接MS SQLSERVER数据库ADOConn_ToolDB.Close; ADOConn_ToolDB.ConnectionString:='Provider=SQLOLEDB.1;'+ 'Persist Security Info=True;'+

2014-04-18 14:04:19 7885

原创安装完Oracle 11g之后启动SQL Developer 时报cannot find a j2se sdk错误的解决办法

启动SQL Developer 时选择Java.exe时报

2014-04-14 12:58:12 16538 1

原创 Delphi IdHttp组件+IdHttpServer组件实现文件下载服务

uses idhttp,IdHTTPServer; //idhttp组件提交下载请求procedure TVodService.Button3Click(Sender: TObject); var h:TIdhttp; MyStream:TMemoryStream; url:string;begin MyStream:=TMemoryStream.C

2013-11-21 18:15:01 10939 1

原创工具代码备忘

1、处理以逗号分隔的长字符串。方法一：procedure Str_Tools;var TmpList:TStringList; IIndex:Integer; MUSVOL:String;begin MUSVOL:='0,2,4,6,8,10'; TmpList:=TStringList.Create; try while

2013-09-18 10:54:15 656

原创 DELPHI 获取本地IP地址源码（Tool）

uses WinSock;function LocalIP: string;type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe: PHostEnt; pptr: PaPInAddr; Buffer: array [0..63]

2013-09-12 16:47:11 1719

原创 Delphi 文件使用方法（备忘）

需要引用单元 inifiles , Forms读取ini文件：with Tinifile.Create(extractfilepath(application.exename)+'SystemSet.INI') do begin //配置参数 Hport:=strtoint(ReadString('SYS','port',''));

2013-09-09 15:24:50 640

原创 JAVA异或解密字符串（自我备忘）

public class main { /** * @param args */ public static void main(String[] args) { // TODO Auto-generated method stub String s="F648E81AB05CBD759C389C6DBD5DAA76"; //需要解密的字符串

2013-08-19 12:03:27 4651

转载 DELPHI 字符转16进制、16进制转字符

function TForm1.myStrToHex(s:string):string; //字串转16进制var TmpStr:string; i:integer;begin TmpStr:=''; for i:=1 to Length(s)do begin TmpStr:=TmpStr+IntToHex(ord(s[i

2013-08-15 14:25:15 5088

原创 ACCESS数据库的一些简单SQL语句备忘

1、查询ACCESS数据库表字段值重复记录语句。 SELECT 名称,Count(*) AS Count FROM 表名 GROUP BY 名称HAVING Count(*) >1

2013-04-27 10:58:45 907

原创 delphi开发获取文件MD5值的小demo

unit Umain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,IdHashMessageDigest,IdGlobal,IdHash;type TForm1 = class(TForm)

2013-04-17 17:43:43 4868

原创 SQL语句紫ACCESS添加字段、修改字段、删除字段

1、创建表table1create table table1(id int,UserName varchar(20)) 2、在Table1表增加一个字段 agealter table table1 add COLUMN age int 3、在table1删除一个字段 agealter table table1 drop column age

2013-03-15 11:15:03 1157

原创 MS SQL数据库对ACCESS数据库操作

测试环境：存在两个数据库，数据库的表完全一样 1、将MS SQL数据库的数据导入到ACCESS数据库insert into openrowset('Microsoft.Jet.OLEDB.4.0','D:\Test.mdb';'admin';' ',ACCESS表名) select * from MSSQL表名 2、将ACCESS数据库数据导入到MS SQL数据库inser

2013-03-15 10:18:13 752