登陆
浏览模式: 标准 | 列表 分类: DELPHI

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

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

» 阅读全文

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

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

» 阅读全文

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

在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 服务器不能创建对象

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

解决办法:注册一下scrrun.dll,即"regsvr32 scrrun.dll"

Delphi 的 DBexpress连接问题

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

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

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

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

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

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

默认SQLConnection里面的LibraryName是dbxmys.dll

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

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

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

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

delphi 创建不规则窗体

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

» 阅读全文

Delphi 中调用 JavaScript

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

» 阅读全文

Delphi遍历文件夹及子文件夹

Delphi代码
  1. {-------------------------------------------------------------------------------  
  2. 过程名:    MakeFileList 遍历文件夹及子文件夹  
  3. 作者:      SWGWEB  
  4. 日期:      2007.11.25  
  5. 参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名  
  6. 返回值:    TStringList  
  7.  
  8.    Eg:ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ;  
  9.        ListBox1.Items:= MakeFileList( 'E:\极品飞车','.*') ;  
  10. -------------------------------------------------------------------------------}  
  11. function MakeFileList(Path,FileExt:string):TStringList ;   
  12. var  
  13. sch:TSearchrec;   
  14. begin  
  15. Result:=TStringlist.Create;   
  16.   
  17. if rightStr(trim(Path), 1) <> '\' then  
  18.     Path := trim(Path) + '\'  
  19. else  
  20.     Path := trim(Path);  
  21.  
  22. if not DirectoryExists(Path) then  
  23. begin  
  24.     Result.Clear;  
  25.     exit;  
  26. end;  
  27.  
  28. if FindFirst(Path + '*', faAnyfile, sch) = 0 then  
  29. begin  
  30.     repeat  
  31.        Application.ProcessMessages;  
  32.        if ((sch.Name = '.') or (sch.Name = '..')) then Continue;  
  33.        if DirectoryExists(Path+sch.Name) then  
  34.        begin  
  35.          Result.AddStrings(MakeFileList(Path+sch.Name,FileExt));  
  36.        end  
  37.        else  
  38.        begin  
  39.          if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt='.*') then  
  40.          Result.Add(Path+sch.Name);   
  41.        end;   
  42.     until FindNext(sch) <> 0;   
  43.     SysUtils.FindClose(sch);   
  44. end;   
  45. end;   

ComboBox ItemIndex 触发问题

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

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

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

ID3V2 的一些讲解

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

» 阅读全文