关注
分享
菜鸟营的战斗机
对工作比较积极、能服从安排。但是有时做事有点急、带点急性子
展开
-
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 · 4770 阅读 · 0 评论 -
【备忘】导出Excel，使用NativeExcel控件
使用控件NativeExcel控件开发导出Excel的公共通用类原创 2017-03-27 10:35:45 · 4094 阅读 · 0 评论 -
关于HTTP上传文件报文代码片记录
HTTP上传POST报文通过使用TIdMultiPartFormDataStream类，在网上看到有人说这个TIdMultiPartFormDataStream类使用释放有问题，BUG很多，暂时我没遇到，至少解决了我的问题，期待有高手写一个更加好更加完美的类能替代这个。引用单元uses IdGlobal, IdMultipartFormData,idhttp;代码片func原创 2017-03-10 15:17:41 · 2214 阅读 · 0 评论 -
【备忘】，Ansi与Unicode编码互转
前段时间用D7开发到调用XE5的开发的动态库，然后在网上找到这2个转码函数，D7亲测可用，只是时间过去了，忘记从哪转载的了，在此表示对原创者抱歉了。纪念以备不时之需，不过低版本Ansi编码传参到高版本unicode编码，参数定义为widestring，好像不必转码。只是我人懒，懒得试了。Ansi转Unicodefunction AnsiToUnicode(Str: String转载 2017-03-10 15:02:08 · 830 阅读 · 0 评论 -
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 · 530 阅读 · 0 评论 -
Delphi Edit限制只能输入数字
据说高版本的XE已经有一个numberonly这样的属性限制只能输入数字了，我还一直用D7，只有开发Webservice接口时才用到XE2，有点落后了！！一点点经验还是要记录下来，说不定后面哪天用得到呢？Edit的KeyPress事件写代码、我的Demo是一个共用的KeyPress事件procedure TForm1.Edit1KeyPress(Sender: TObject; var原创 2015-07-21 17:03:25 · 7879 阅读 · 0 评论 -
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 · 1670 阅读 · 0 评论 -
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 · 600 阅读 · 0 评论 -
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 · 784 阅读 · 0 评论 -
工具代码备忘
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 · 619 阅读 · 0 评论 -
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 · 29831 阅读 · 0 评论 -
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 · 7751 阅读 · 0 评论 -
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 · 10645 阅读 · 1 评论 -
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 · 1671 阅读 · 0 评论 -
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 · 4920 阅读 · 0 评论 -
Delphi删除指定文件夹及文件夹下所有子目录与文件
懒了，自己记录以备后用，直接贴整个单元代码了。使用时调用 DeleteDir函数传入需要删除的文件夹路径就行了。unit ZipUtil;interfaceuses SysUtils, Classes, VCLZip, VCLUnZip, Dialogs, ActiveX; //删除目录和目录下得所有文件和文件夹 procedure DeleteDir(sDirectory:...原创 2018-03-13 09:17:15 · 3996 阅读 · 0 评论