delphi菜鸟成长之道
云中雁012345
路漫漫其修远兮
吾将上下而求索
展开
-
正则表达式运用
ultraedit替换所有空白行 --正则表达式使用删除空行: 替换 %[ ^t]++^p 为 空串删除行尾空格: 替换 [ ^t]+$ 为 空串删除行首空格: 替换 %[ ^t]+ 为 空串每行设置为固定的4个空格开头: 替换 %[ ^t]++^([~ ^t^p]^) 为 " ^1"每段设置为固定的4个空格开头: 替换 %[ ^t]+ 为 " " (如原创 2017-03-10 10:27:21 · 4004 阅读 · 0 评论 -
Delphi IdHttp组件+IdHttpServer组件实现文件下载服务
uses idhttp,IdHTTPServer; //idhttp组件提交下载请求 procedure TVodService.Button3Click(Sender: TObject); var h:TIdhttp; MyStream:TMemoryStream; url:string; begin MyStream:=TMemor原创 2016-03-15 09:45:06 · 3033 阅读 · 0 评论 -
http Json 技术
Delphi-idHttp-JSON用法 (2014-05-07 20:52:51)转载▼标签: delphi indy idhttp post json it分类: Delphi-互联网应用从国外网站抄来的代码Delphi source:ht转载 2016-03-14 14:57:38 · 1152 阅读 · 0 评论 -
Delphi 记录类型- 结构指针
Delphi 记录类型- 结构指针unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button原创 2016-03-23 11:28:50 · 413 阅读 · 0 评论 -
MD5 delPhi 加密
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdHashMessageDigest,IdGlobal, IdHash,util_utf8;type TF原创 2016-02-25 23:08:45 · 2136 阅读 · 0 评论 -
delphi中Tlist的使用。
我在上面的BLOG中写到了使用指针的方法。在DELPHI中指针最常见的就是和类TLIST结合起来使用。下面是一个很简单的例子,希望对这个例子的分析能让大家对使用TLIST类有一个简单的认识。代码的功能是使用指针和Tlist来生成一个牌串,并将牌串保存在t_CardInfo中。 procedure TForm1.Button1Click(Sender: TObject);转载 2016-02-25 21:17:59 · 12264 阅读 · 0 评论 -
delphi多线程设计
synchronize方法,将与VCL交互的程序包含在一起。然后启动线程。 thread.resume; terminate; 线程的终止方法。很幽默的讲解六种Socket I/O模型本文简单介绍了当前Windows支持的各种Socket I/O模型,如果你发现其中存在什么错误请务必赐教。一:select模型二:WSAAsyncSelect模型原创 2016-04-03 23:03:27 · 985 阅读 · 0 评论 -
delphi7打开的时候一直让说注册失效,然后不让进入到开发界面
这个时候去找下 delphi里的破解包,里面有个**.slip文件,复制到安装目录下 然后重启一下就好了。原创 2016-02-24 18:00:39 · 1702 阅读 · 0 评论 -
delphi中关于流的学习
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,zlib;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo原创 2016-02-19 18:31:55 · 462 阅读 · 0 评论 -
Excel导出
procedure TfmPackRun.RzButton1Click(Sender: TObject);var ExcelApp: TExcelApplication; book: TExcelWorkbook; Sheet: TExcelWorksheet; rowcnt:integer; bk:TBookMark; FRange: ExcelRange原创 2014-11-05 14:52:21 · 637 阅读 · 0 评论 -
delphi下的office编辑
如果是编辑office文档,推荐一个ocx控件,axFramerControl原创 2015-11-21 14:43:57 · 1253 阅读 · 0 评论 -
进度条与线程
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, Menus, StdCtrls, cx原创 2015-11-21 14:04:15 · 626 阅读 · 0 评论 -
delphi7编程技巧
加入一句{$R WindowsXP},控件具有系统主题风格。implementation{$R *.dfm}{$R windowsXP}{ TMyThread }==============================procedure TForm1.Button1Click(Sender: TObject);const {$I s原创 2015-11-21 16:49:42 · 909 阅读 · 0 评论 -
IOCP
如果大家对IOCP确实还保有深厚的兴趣的话,建议各位可以继续研究一下Windows8的RIO框架,那个才叫一个赞。官方视频:http://ak.chann关于IOCP,个人以为有几点实用价值:1.排在首位的毫无疑问是大并发IO,可能在很多时候一提到IOCP大家都很自然地把它与网络联系在一起,这主要是因为对于网络的应用,需要解决的问题特别多,从而随着IOCP技术封装解决了我们很多人一直在解决,但又...原创 2015-11-21 17:43:49 · 1229 阅读 · 1 评论 -
oracle select into 动态语句
execute immediate ' select * from ****' into V_111, v_222;原创 2015-10-14 11:04:39 · 2225 阅读 · 0 评论 -
delphi httpserver 使用方法
unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent,IdContext ,IdComponent, IdCustomTCPServer, IdC原创 2016-03-15 09:47:18 · 17811 阅读 · 0 评论 -
其实xml解析很快的。很方便的,用superxmlparse
procedure TForm1.Button1Click(Sender: TObject);var straccept: string; jo: ISuperObject;begin straccept :=''+ ''+ ''+ '12345'+ ''+ '1'; jo := XMLParseString(stra原创 2016-03-15 10:39:46 · 2174 阅读 · 0 评论 -
delphi中的调试技巧
调试的时候,Run/Run Parameters/local/Host Application 选择HDpos.exe打开包列表,找到HDMain.exe 包,右击,选择activate,将HDMain工程激活然后就可以愉快的调试了!有时候发现,有的包死活跟进不去(view/debug windows/modules里面看不见),但是将整个包的代码删掉,重新拉一遍就可以了!但是若调试的原创 2016-09-28 10:07:33 · 1473 阅读 · 0 评论 -
delphi 调试的困惑
如何判断调试是否正确首先要确定模块 Option 的 debugging 各个选项都勾上了。其次,还要确定 进入哪个模块编译, Host application 选的对不对。所有的工程文件是否编译的正确不正确。debug 错误的时候不停下来原创 2016-08-12 15:45:19 · 464 阅读 · 0 评论 -
delphi中 clientdataset使用方法
1.基本情况介绍; clientdataset内存表,他的data属性存放的是数据, delta 增量记录的是日志, 就相当于数据库的 savepoint保存点;每当clientdataset的数据有变化时(onbeforeedit, onafteredit),savepoint都会变化。如果我们想取消一段时间的操作,我们可以先记录下这个savepoint,然后修改,如果想取消,直接让这个save原创 2016-08-31 19:39:39 · 12895 阅读 · 0 评论 -
memo类型控件,如何把滚动条拉倒最上面或者最下面。
正解: Memo1.Perform(WM_VSCROLL, SB_TOP, 0); Memo1.Perform(EM_SETSEL, 0, 0); Memo1.SetFocus;其他各种消息可参考Delphi windows SDK help中的主题Edit Control Messages原创 2016-05-09 09:12:28 · 2280 阅读 · 0 评论 -
软件修复心得
首先去掉加密狗的那段代码;2.服务模块,脚本不新,导致程序与库的版本不一样。报错3.系统启用模块无法起效。主要是使用了狗返回类型。通过狗的权限来控制系统的权限的。这个地方也要修复一下。原创 2016-04-23 20:10:52 · 384 阅读 · 0 评论 -
分账功能流程
首先做2个品牌,分别关联2个分账信息然后做2个商品,选择这2个品牌;然后做单子,单据头选择对应的品牌,会自动带出分账信息。然后审核,结算,记账后,会生成财务章,这个时候,就可以看见分账级别的账务。原创 2016-05-19 10:59:34 · 3287 阅读 · 0 评论 -
正则表达式2
//字符串分割: Splitvar reg: TPerlRegEx; List: TStrings;begin List := TStringList.Create; reg := TPerlRegEx.Create(nil); reg.Subject := 'aaa,bbb,ccc,ddd'; reg.RegEx := ','; {这里可是运行相当复杂的分割符啊原创 2016-05-18 11:31:04 · 356 阅读 · 0 评论 -
delphi中DDE通信技术
DDE可实现进程与进程之间的通讯服务端需要放2个空间。 DDE conver 会话上下文。 还有一个DDEitem ;; 将 ddeitem 志向 DDe conver;然后运行程序; DDE服务器就启动了;在 ddeitem 这个方法中就可以获取数据了procedure TForm1.ddepxbitemPokeData(Sender: TObject);var st原创 2016-05-05 22:59:53 · 1856 阅读 · 0 评论 -
delphi7下的token验证,微信服务器验证
var ByteSent: Cardinal; i,j:integer;// LocalDoc:string; tempstr,ips:string;// len,sport:integer;begin// signature=0c5d3f0f0b8b7b7fd658a1eefa228bea0645c689&echostr=1497421原创 2016-03-15 11:43:41 · 3000 阅读 · 1 评论 -
组件的持久化,delphi
注意,需要注册类;2.读入多个属性的时候,只会构造第一个控件;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = cl原创 2016-05-26 23:13:48 · 557 阅读 · 0 评论 -
windows下消息机制
http://bbs.csdn.net/topics/310039952原创 2016-05-13 14:38:13 · 364 阅读 · 0 评论 -
关于http get的错误
在做接口的时候遇到这样的问题, 第一次get 可以获取成功,但是过一段时间, 竟然 get失败了。但是浏览器中是可以获取接口的数据的。经过查找,这样设置一下 http 就可以了 RespData := TStringStream.Create(''); http.Request.CustomHeaders.Clear; try try http.Get原创 2016-05-13 09:27:06 · 1202 阅读 · 0 评论 -
window7提示不是正版的问题。
主要原因是360自动修复了某些补丁导致的。1,可以让360自动修复补丁关掉。2. 找到出现问题前的修复的那些补丁,删除即可3.重启SPP 那几个服务,你肯定搜到过。原创 2016-04-14 16:18:54 · 364 阅读 · 0 评论 -
软件已过试用期,请下载最新试用版本
这个主要是由于安装了虚拟打印机造成的。不是excel版本的问题,也不是打印控件的问题,也不是操作系统不是正版的问题。原创 2016-04-14 16:14:42 · 2041 阅读 · 0 评论 -
修改系统日期的代码。不耗时,很快
var str: string; function SynTimeFromServer(ServerDate, ServerTime: string): Boolean; var sysTime: TSystemTime; begin Result := True; with sysTime do begin wYe原创 2016-04-11 10:59:08 · 659 阅读 · 0 评论 -
delphi socket客户端连接服务端时的错误
服务端关闭,客户端连接的时候,会报10061错误这个时候,用try except end; 是捕获不到的。因为这个socket是线程内的错误。无法捕获。begin if ErrorCode = 10061 then begin ShowApplicationMsg('用IPAD操作打印前请手动打开对应单据!',IWARNINGMSG); tasklist原创 2016-04-11 10:33:22 · 2686 阅读 · 0 评论 -
delphi精要之(二)
Ctrl+Shift+方向键:将所选组件的位置移动一个栅格。 Shift+TAB:选择当前组件的上一个组件。Esc:选择当前组件的容器(通常是 TPanel、TGroupBox、TForm等)。Ctrl+J:插入标准语法代码。Ctrl+Y:删除光标所在行。Ctrl+BackSpace:向前删除一个单词。Ctrl+Shift+G:插入 GUID 号。 Ctrl原创 2015-10-11 20:14:18 · 482 阅读 · 0 评论 -
delphi 精要之学习(一)
只有乐于此道的人,才能乐在其中;上天总是给不安分者更多的痛苦。原创 2015-10-09 19:23:12 · 582 阅读 · 0 评论 -
delphi中记录数组的使用练习
program Project2;{$APPTYPE CONSOLE}uses SysUtils;type dll_IniForm = function (): Boolean; stdcall; { 在Uni_FUnction.TDllFileRec中引用 } dll_ActiveForm = function (): Boolean; stdca原创 2014-01-08 14:24:24 · 1096 阅读 · 0 评论 -
动态库的函数调用
type xx = function(): string; stdcall;是什么意思解决方案type xx = function(): string; stdcall;是什么意思function xx(): string;type xx= function(): string; stdcall;var func: xx;begin Result := '0'; @原创 2014-01-08 13:29:43 · 871 阅读 · 0 评论 -
加密狗
现在所说的加密狗,一般都是硬件加密狗。是一种类似于u盘一样的东西,是一种防盗版的方式。一般是把程序的一小部分或解密部分集合到加密狗的硬件中,防止软件的盗版。加密狗就是一种插在计算机并行口上的软硬件结合的软件加密产品,为多数软件开发商所采用。加密狗一般都有几十或几百字节的非易失性存储空间可供读写,现在较新的加密狗内部还包含了单片机。软件开发者可以通过接口函数和加密狗进行数据交原创 2014-01-07 14:01:23 · 981 阅读 · 0 评论 -
delphi7中的format函数
delphi Format格式化像C#里的String.Format()Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:function Format(const Format: string; const Args: array of const): string; overl转载 2013-12-19 16:10:29 · 1186 阅读 · 0 评论 -
delphi7中动态库DLL学习
1.学习资料2.源码3.效果原创 2013-12-19 10:47:56 · 1177 阅读 · 0 评论