Delphi中WebBrowser控件的bug及解决方案
Delphi语言，无论是从开发速度、还是运行速度、还是编译速度、还是编译之后的执行文件体积，都是数一数二的。因此被作为共享软件、开发产品、制作“绿色软件”的首选。但是，由于诸多原因，Delphi中，有一些控件，存在一些bug。不论广大技术人员如何反应，Delphi官方就是“视而不见”。有问题，人家虽然不给解决，但是，总不能不用这种语言吧，毕竟优点还是大于缺点的。还是“自己动手，丰衣足食”吧。
最近笔者在开发泛东协同管理系统客户端的时候，使用了Delphi中的WebBrowser控件，相信这个控件，是使用最广泛的控件之一，几乎所有与Internet相关的产品，都离不开这个控件。但是这Delphi中的WebBrowser控件，在使用过程中，发现三个Bug。
1、如果打开的页面中，有通过javascript关闭页面的，只会把控件关闭，包含控件的窗口仍然存在，并且手工关闭窗口时，出现问题；
2、打开的页面，通过鼠标选定的内容，不能复制，无论是通过右键菜单复制，还是通过Ctrl+C快捷键复制，都不可以；
3、打开有WebBrowser控件的窗口，关闭窗口之后，内存得不到释放（此Bug在其他语言中也存在）。
以上三个问题，是必须解决的。通过查找资料及自己的试验，终于找到了解决办法，将解决方案总结如下：
问题1解决方案：
先声明消息处理函数：
procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
在form create时
Application.OnMessage := ApplicationMessage;
函数内容如下：
procedure tfrmhtmlbrowser.ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
var
wb: tembeddedwb;
begin
WB := GetVisibleWebBrowser; //取当前webbrowser控件
if (Msg.message = WM_CLOSE) and (Msg.hwnd = Wb.Handle) then
begin
Self.Close ();//关闭webbrowser后，把相应的窗口关闭
end
相关文档：
http://meidi152.blog.163.com/blog/static/5423302009610103610744/
1. memo控件读取txt
memo1.Lines.LoadfromFile('E:\*\*.txt');
2.
Procedure NewTxt(FileName:String);
Var
F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}
AssignFile(F, ......
Format
type的可能值有下列这些：
(1) d 有符号十进制数
Args必须是有符号整型数。如果在格式化字符串中还加入了["." prec]，则如果Args
的长度如果小于给出的精度数时，在前边填补0；如果大于精度数，按实际长� ......
问题背景：
公司希望使用Magento来进行接单，而后把订单导入到一个ERP系统中(订单处理引擎)。
问题：
在使用WebService从Magento中获取Payment信息时，信用卡是被加密的(法律规定不允许在数据库中存储信用卡的明文信息)！
......
不论数组元素是什么类型，静态数组的局部变量总会在栈上分配。如果堆栈大小不够将会导致异常。下例暗藏着一个危险的bug
procedure stackover;
var
s:array [0..4100] of string[255];
begin
end;
delphi默认栈最大为$100000字节，上例中的栈上分配的大侠为256*4100>$10000。测试必然会出现异常Stack overf ......
在Delphi中,Inifiles单元中有一个TStringHash的类，不过它的Value仅支持Integer(其实也不是问题，有其它类型可以将变量变为Pointer)，有点不舒服，今天没事做就把它替换为variant了，其中Key的名称大小写无关，就是为了加快开发速度！
使用Hashtable,查找和删除复杂度都是常数级别的!
type
PPHashItem = ^PHashItem;
......
