冷寒生读书笔记

XML文件内容;xml version="1.0" encoding="GB2312"?>我的书>    漫画 作者="小飞">        书名>火影忍者书名>        价格>100价格>    漫画>    漫画 作者="大飞">        书名>死神书名>        价格>100价格>    漫画>    漫画 作者="阿斗">        书名>天牢书名>        

PerlRegex一直用得很顺手，但今天晚上却老是出现堆栈溢出的问题，调整了Delphi 的Max stack size后，仍然解决不了。 后来发现是正则表达式的问题，具体细节问题还不太清楚 我一般使用“((.|/n)+?)”来匹配多行文本，而出现堆栈溢出的地方就是因为我使用了这个正则表达式，后将“((.|/n)+?)”改为“(.+?)”，并设置PerlRegex的Option为[

正 文：    今天在编译Delphi程序时，执行一个内存记忆体的时候，提示：Project.exe raised exception class EStackOverflow with message : Stack overflow.这是堆栈溢出错误。      原因就是字符串所存储的内容超过DELPHI系统堆栈默认的大小 16*100000 。我们可以

控件事件顺序：先执行DragOver事件，后执行DragDrop事件 var         ListItem:TListItem;         procedure   TForm1.ListView1DragOver(Sender,   Source:   TObject;   X,   Y:   Integer;         State:   TDragState;   var

function TRATServer.GetDefaultBrowser:string;//获取默认浏览器varreg: TRegistry;beginreg := TRegistry.Create;tryreg.RootKey := HKEY_CLASSES_ROOT;reg.OpenKey(‘HTTP/shell/open/ddeexec/Application’,false);result

//CMD 要执行的文件路径//Visiable 是否显示窗口Function WinExecExW(CMD:Pchar; Visiable:integer):DWORD;var    StartupInfo : TStartupInfo;    ProcessInfo : TProcessInformation;begin    FillChar( StartUpInfo, SizeOf

在主窗体的OnCreat事件中加入下列代码：var  C: HCURSOR;begin  C := LoadCursor(0, IDC_HAND);  if C end;

<br />时间很完了，但问题总算解决了。<br /> <br />在一个程序中需要判断WebBrowser打开的页面是否加载完成，通常的做完是使用Busy属性，代码如下：<br /> <br />while WebBrowser1.Busy do<br />    Application.ProcessMessages;<br /> <br />这个访问对于访问纯Html的页面时是一点儿问题都没有的，但有些页面在设计时为了不影响打开速度，是让html代码优先显示，然后再运行js代码或框架代码，由于我要访问

<br />DrawText( Canvas.Handle, PChar( s ), Length( s ), rect, DT_WORDBREAK );

<br />以前在VC中使用过MySQL，当时是找的一个现成的C++ MySQL类。最近在Delphi中又需要操作Mysql，最初找了个封闭过的类，但已经是七八年以前的程序了，我机器上装的是MySQl5.1，使用了5.1中的libmySQL.dll（2.25MB）。连接正常、查询一个字段正常，但查询两个字段就只能获取第一个字段的值，读第二个字段的值就程序异常。<br /> <br />没办法，又重新找了个接口，不过没有封闭，只有自己慢慢学着调用了。<br /> <br />http://www.audio-

var    IP:TCnIp;    i:Integer;    CurIP:string;begin    IP := TCnIp.Create(nil);    IP.IPAddress := '192.168.0.1';    CurIP := IP.IPAddress;    while CurIP '192.168.255.255' do    begin        mmo1.Lines.Add( CurIP );        CurIP :=

//声明:<br />IsIconic(<br />  hWnd: HWND {窗口句柄}<br />): BOOL;<br /><br />IsZoomed(<br />  hWnd: HWND {窗口句柄}<br />): BOOL;<br />

<br />09年我在这个问题上折腾了大半年，还因此写了篇博文[这下该不会阻塞了吧]，最初的是想实现多线程下载网页源码，但经过对HTTP协议的学习，发现只有支持断点继传的网站才用得上多线程下载，因此又把需求放在批量快速下载网页源码上，比如我同时需要访问100个网页，如果用IdHttp就头大了，Idhttp就连访问302页面也会出现异常，调试起来很麻烦。而用自己写的TWinHttp类，recv函数阻塞的问题是能解决了，但如果短时间频繁的获取网页源码，50%以上的访问都会出现connect失败和recv超时

<br />用TThread以数组的方式做了个线程池，但在TThread中需要累加一个数值，如果未使用互斥量的话，那个数值可能一直累加不上去。<br />分别参考了http://www.cnblogs.com/railgunman/archive/2010/11/06/1870867.html和http://www.cnblogs.com/del/archive/2009/02/13/1390295.html，可以通过Win32函数CreateMutex和使用Delphi的TMutex来实现。<br /> 

<br />unit uThreadPool;{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }interfaceuses Windows, Classes;// 是否记录日志// {$DEFINE NOLOGS}type TCriticalSection = class(TObject) protected FSection: TRTLCriti

 TNND，看上了Delphi方便的界面设计以及丰富的第三方控件，才用上了Delphi。用了几个月后才发现，这些第三方控件都是浮云。 其实早就听人说，慎用Delphi的第三方控件，使用第三方控件可能会出现些莫名其妙的问题，所以对第三方控件也比较警惕。到目前为止，用得最多的是ICS这个组件包，而且经常用到的也只是其中的HttpCli控件。 但这几天发现程序里有内存泄漏，自己一直不知道

由于要为ListView控件添加一些功能，所以就新建了一个类来扩展ListView的功能。在自己创建的这个类里，添加的第一个事件是MouseMove，这个事件我在类中的声明为： procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; 随后添加实现函数： procedure TMyListView.M

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TURLLabel = class(TLabel)     procedure WndProc(var Message : TMessage); overr

Delphi 与正则表达式http://www.cnblogs.com/del/category/113551.HTML

用Delphi实现智能化Ping命令功能2007-11-08 14:21《软件报》28期众所周知，Ping命令是Windows系统自带的一个针对TCP/IP协议的可执行命令，其主要作用是通过发送数据包并接收应答信息来检测两台计算机之间的网络是否连通。当网络出现故障时，可以用这个命令来检测故障和确定故障地点。但在MS-DOS方式下执行此命令，而且每秒钟执行一次Ping操作，显得似乎有些另类，今天，我

http://www.cnblogs.com/del/archive/2008/12/28/993840.html

版本：indy10.2.3经delphi7下的安装成功，delphi11和delphi6的安装没有试用【自动安装】Lib/Fulld7.bat双击运行即可。自动会把bpl文件拷到C:/windows/system32重新打开delphi7会自动加载 dclIndyCore70.bpl dclIndyProtocols70.bpl【手工安装】1.win

需引用WinSock单元 procedure TForm1.btn1Click(Sender: TObject);var WSAData:TWSAData; Socket1:TSocket; Addr:TSockAddr; Re:Integer;begin //初始化WinSock if (WSAStartup(M

初步了解了一下HTTP1.1 小试了一下，利用TcpClient控件发送HTTP1.1命令到IIS后取得网页内容。unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Sockets;type  TFor

解决：http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html有解决方案。支持5.0.x版本。下载后的配置在/delphi7/dbexpress/dbxdrivers.ini 添加[MYSQL5]节：[MYSQL5]GetDriverFunc=getSQLDriverMYSQL50LibraryName=dbx

/*--------------------------*/VC中的.H代码：/*--------------------------*/#ifndef CFUN_H#define CFUN_Hextern "C" __declspec(dllexport) int add(int a, int b);#endif /*--------------------------*/

在Delphi中使用dbexpress来连接Mysql，并通过感知控件来显示数据库中的内容，但在将TSQLConnection、TSQLDataSet和TDataSource的属性都设置好后，在感知控件TDBEdit中却只能显示数值类型的字段记录，最后百度了一下，解决方法如下： /*------------------------------------------------------

procedure MyThread; stdcall;begin    while True do    begin    end;end;procedure Func;var    hThread:THandle;    ThreadId:Cardinal;    str:string;begin    str := 123;    hT

function DownloadFile(Source, Dest: string): Boolean; begin    try        Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;    except        Result := False;    end;end;proce

一个很简单的问题，但我凭我学习C++/VC一年多，接触Delphi的时间也不短了，但仍然写不出来。本来以为，不就是将Form1.Show和Form1.Hide么，但却就是达到不到自己想要的结果这个问题倒不用作深入研究了，到是让我发现，Delphi也不是信手摘来，什么都是那么容易的，以为自己有点儿VC的底子，就小看了Delphi。最近一段时间一直在用Delphi，但却没什么长进，看来是没

◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：var xpanel,ypanel,xlabel,ylabel:integer;PANEL的MouseMove事件：xpanel:=x;ypanel:=y;PANEL的DragOver事件：xpanel:=x;ypanel:=y;LABEL的MouseMove

  我不明白为何 Borland 的 Delphi 控制不支持 mouse leave 事件.下面是一个简易的例子，它不仅示范了怎样让 TIamge 控制实现 MouseLeave 事件，而且也示范了怎么样建立一个简单的 Delphi 构件.    {  Delphi 编程新手注意的问题：    本例是一个 Pascal 单元,请用 MyImg.pas 保存此单元.例子中的方法可应用于其它控制，所

<br />procedure ThreadTest;stdcall;var Handles:TWOHandleArray; //Handle:THandle; Test:TTest; i:Integer;begin for i := 0 to 10 do begin Test := TTest.Create(False); Handles[i] := Test.Handle; end;