Delphi多线程编程中的技巧(转)

小锋 — 2008-11-26 01:33

小锋堂 ( http://www.jackfeng.com/ ) :

转自杨帆BLOG http://www.wesoho.com/article.asp?id=2626

好文章先给转下来等有时间再来消化

ShowModal返回信息窗体弹出后的返回值

小锋 — 2008-11-16 16:33

小锋堂 ( http://www.jackfeng.com/ ) :

Var  
  SetFrm :TSetes;  
begin 
  SetFrm :=TSetes.Create(nil);  
  SetFrm.ShowModal;  
  if SetFrm.ModalResult =2 then 
  ShowMessage('配置重载成功！');  
end;

窗体弹出后需要接触到确认与取消按钮 modalresult :=mrOK能返回1 modalresult :=mrCancel能返回2

图片附件:

delphi 窗体最小化问题

小锋 — 2008-11-14 21:43

小锋堂 ( http://www.jackfeng.com/ ) :

ShowWindow(Application.Handle ,SW_SHOWMINIMIZED),

用API的不好使

最好不要直接用API，Delphi的窗体（主窗体）是比较特殊的。
1.如果是整个程序要最小化，请使用：Application.Minimize; 恢复使用：Application.Restore;
2.如果是某个窗体要最小化，请使用类似：Form1.WindowState := wsMinimized;最大化使用Form1.WindowState := wsMaximized;恢复正常使用Form1.WindowState := wsNormal;

Delphi对cookie的操作

小锋 — 2008-10-09 09:11

小锋堂 ( http://www.jackfeng.com/ ) :

逛了一下恰好看到这个对cookie的操作代码转载了..

Delphi代码

idhtp1.CookieManager := TIdCookieManager.Create(nil);
idhtp1.CookieManager.AddCookie('baidu=sb','baidu.com');
idhtp1.Get('http://www.baidu.com');
for I := 0 to idhtp1.CookieManager.CookieCollection.Count - 1 do
s := s + idhtp1.CookieManager.CookieCollection.Items[i].CookieText;
ShowMessage(s);

获取窗体坐标

小锋 — 2008-10-03 21:07

小锋堂 ( http://www.jackfeng.com/ ) :

GetWindowRect(handle,Rect)

获得了句柄之后再去获取窗体的坐标然后Rect就是你要的坐标了

Delphi 2009注册机！强悍

小锋 — 2008-10-02 10:10

小锋堂 ( http://www.jackfeng.com/ ) :

很好哩下载的是1.9G的CodeGear™ Delphi® 2009 Version 12.0.3170.16989然后用这个拿去覆盖即可.

附件: magnitude.rar (1.18 M, 下载次数:2704)

转一帖 Delphi2007的DelphiX错误

小锋 — 2008-09-26 11:03

小锋堂 ( http://www.jackfeng.com/ ) :

今日安装了DELPHI 2006，感觉启动速度和编译速度都强于2005，IDE界面也感觉更亲切，马上把2005卸载了，顺利安装了asphyre，但安装delphiX报错，后发现只需作如下修改即可：

1、在文件DelphiXcfg.inc中添加如下代码

程序代码：

[ 复制代码到剪贴板 ]

{$IFDEF VER180}
  // Delphi 10 - 2006
  {$DEFINE DelphiX_Delphi6}
  {$DEFINE DelphiX_Delphi7}
  {$DEFINE DelphiX_Delphi9}
  {$Define D5UP}
  {$Define D6UP}
  {$Define D7UP}
  {$Define D9UP}
{$ENDIF}

2、在DirectX.pas中将124行

程序代码：

[ 复制代码到剪贴板 ]

NilGUID : TGUID;{$IfNDef VER6UP} absolute 0 {$EndIf};
换成
NilGUID : TGUID;

3、DirectX.pas中185-189行

程序代码：

[ 复制代码到剪贴板 ]

{$IFDEF VER5UP}
  PDirectDrawSurface = Pointer;
{$ELSE}
  PDirectDrawSurface = IDirectDrawSurface;
{$ENDIF}
换成
  PDirectDrawSurface = Pointer;

另外我是用电骡下载delphi2006的。

转 DELPHI 图片图形图像处理 PS置换滤镜效果，亮度/对比度，纹理贴图效果

小锋 — 2008-09-22 16:33

小锋堂 ( http://www.jackfeng.com/ ) :

Delphi处理图片的文章。转载。

阅读全文

转一好贴 delphi的关于代理服务器

小锋 — 2008-09-21 17:02

小锋堂 ( http://www.jackfeng.com/ ) :

有关于代理服务器的delphi相关代码

阅读全文

delphi 正则又傻不拉基了-_-#.

小锋 — 2008-09-19 14:39

小锋堂 ( http://www.jackfeng.com/ ) :

在delphi2007中正则又用不了了---_---

提示没有注册类别, ClassID: {3F4DACA4-160D-11D2-A8E9-00104B365C9F}.

搞得我脸都青了。早上还用的好好的呢正则无缘无故现在就不行了---#莫名其妙

新建项目然后再次试试导入这个Type library

默认放置到了D:\Personal\administrator\My Documents\RAD Studio\5.0\Imports

VBScript_RegExp_55_TLB

搞来搞去删除了又继续编译运行正则还是没有搞定然后想想这个是vbscript.dll里面来的

死马当活马医来一个经常会用到的regsvr32 vbscript.dll注册这个dll组件竟然成功了-_-#

不过太奇怪了无缘无故怎么会成了没有注册类别呢-_-#????

initializeWP: Automation 服务器不能创建对象

小锋 — 2008-09-19 09:54

小锋堂 ( http://www.jackfeng.com/ ) :

delphi2007打开后竟然发现initializeWP: Automation 服务器不能创建对象

解决办法：注册一下scrrun.dll，即"regsvr32 scrrun.dll"

Delphi 的 DBexpress连接问题

小锋 — 2008-09-18 17:04

小锋堂 ( http://www.jackfeng.com/ ) :

太吐血了今天太折腾了。。。

Delphi之前写的软件竟然连接不了数据库了怎么样也不行

重装N次还怀疑php+mysql有问题

最后清理把delphi2007清理的非常干净再装一次即可了....

够折腾装N久$%^&*(再加上虚拟机里面也在测。

安装完后搭配好DELPHI 然后发现软件放到虚拟机下不能运行

默认SQLConnection里面的LibraryName是dbxmys.dll

莫名其妙的是我的电脑上没有这个文件只有dbxmys30.dll

然后吧LibraryName改成dbxmys30.dll 然后把这个文件找出来丢到虚拟机下面就可以跑了！Fuck.

把附件里面的文件放到php系统变量目录下或者软件所在目录下

附件: dbxmys30.rar (82.44 K, 下载次数:80)

delphi 创建不规则窗体

小锋 — 2008-09-15 22:31

小锋堂 ( http://www.jackfeng.com/ ) :

在网上溜达发现的代码先丢上来。以后慢慢试用~~~

阅读全文

Delphi 中调用 JavaScript

小锋 — 2008-09-15 18:34

小锋堂 ( http://www.jackfeng.com/ ) :

最近有接触到delphi和javascript的应用。就顺便给放上来了。

阅读全文

Delphi遍历文件夹及子文件夹

小锋 — 2008-09-12 15:00

小锋堂 ( http://www.jackfeng.com/ ) :

Delphi代码

{-------------------------------------------------------------------------------
过程名: MakeFileList 遍历文件夹及子文件夹
作者: SWGWEB
日期: 2007.11.25
参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名
返回值: TStringList
Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ;
ListBox1.Items:= MakeFileList( 'E:\极品飞车','.*') ;
-------------------------------------------------------------------------------}
function MakeFileList(Path,FileExt:string):TStringList ;
var
sch:TSearchrec;
begin
Result:=TStringlist.Create;
if rightStr(trim(Path), 1) <> '\' then
Path := trim(Path) + '\'
else
Path := trim(Path);
if not DirectoryExists(Path) then
begin
Result.Clear;
exit;
end;
if FindFirst(Path + '*', faAnyfile, sch) = 0 then
begin
repeat
Application.ProcessMessages;
if ((sch.Name = '.') or (sch.Name = '..')) then Continue;
if DirectoryExists(Path+sch.Name) then
begin
Result.AddStrings(MakeFileList(Path+sch.Name,FileExt));
end
else
begin
if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt='.*') then
Result.Add(Path+sch.Name);
end;
until FindNext(sch) <> 0;
SysUtils.FindClose(sch);
end;
end;

ComboBox ItemIndex 触发问题

小锋 — 2008-09-12 12:01

小锋堂 ( http://www.jackfeng.com/ ) :

一直在接触ComboBox的时候用ItemIndex 进行更改数据一直都没有

触发ONchange事件很是麻烦。刚刚逼不得已去找了一下发现一个高人说用

ComboBox.OnChange(ComboBox);这样就能触发一试还真是！%……&*太棒了!

ID3V2 的一些讲解

小锋 — 2008-09-12 02:21

小锋堂 ( http://www.jackfeng.com/ ) :

转载网友的一篇文章。了解ID3V2结构的咚咚

阅读全文

关于ID3标签：一个完美主义者的经历

小锋 — 2008-09-12 02:01

小锋堂 ( http://www.jackfeng.com/ ) :

转载：http://www.matrix67.com/blog/archives/131

网友写的ID3标签的咚咚

阅读全文

Delphi解析MP3 tag

小锋 — 2008-09-12 01:25

小锋堂 ( http://www.jackfeng.com/ ) :

一篇不错的delphi 对MP3 tag进行修改的文章今天正写到和TAG相关的软件就转载过来了！

阅读全文

解决Delphi连接Mysql出现乱码

小锋 — 2008-09-10 17:37

小锋堂 ( http://www.jackfeng.com/ ) :

在连接Tsqlconnection进数据库的时候记得给上

'ServerCharset=gb2312'

就没大问题了

Delphi多线程编程中的技巧(转)

ShowModal返回信息 窗体弹出后的返回值

delphi 窗体最小化问题

Delphi对cookie的操作

获取窗体坐标

Delphi 2009注册机！强悍

转一帖 Delphi2007的DelphiX错误

转 DELPHI 图片图形图像处理 PS置换滤镜效果，亮度/对比度，纹理贴图效果

转一好贴 delphi的关于 代理服务器

delphi 正则又傻不拉基了-_-#.

initializeWP: Automation 服务器不能创建对象

Delphi 的 DBexpress连接问题

delphi 创建不规则窗体

Delphi 中调用 JavaScript

Delphi遍历文件夹及子文件夹

ComboBox ItemIndex 触发问题

ID3V2 的一些讲解

关于ID3标签：一个完美主义者的经历

Delphi解析MP3 tag

解决Delphi连接Mysql出现乱码

ShowModal返回信息窗体弹出后的返回值

转一好贴 delphi的关于代理服务器