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

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

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

网友写的ID3标签的咚咚

» 阅读全文

Delphi解析MP3 tag

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

» 阅读全文

解决Delphi连接Mysql出现乱码

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

'ServerCharset=gb2312'

就没大问题了

把字符串复制到剪贴板

uses Clipbrd;

Clipboard.SetTextBuf(PChar(str));

巨猛的TWebBrowser代码 N多

对WebBrowser进行操作的好咚咚啊。要学习就来看嘿嘿

» 阅读全文

WebBrowser 操作记要

万一老师那转载来的文章 对WebBrowser的一些简单操作!

» 阅读全文

delphi窗体置顶

Delphi代码
  1. SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);   
  2. 改变相应参数还可实现其他效果,如隐藏,固定不动等。   

Delphi 控制IIS,检测、增加、删除虚拟目录

Delphi代码
  1. //在DELPHI中用ADSI来控制IIS,检测、增加、删除虚拟目录   
  2. ////////// //////////   
  3. //以下程序均从大富翁及网上所得,非本人所原创,感谢原作者   
  4. //本人只是觉得有用,将其整理,希望对大家有用   
  5. //英腾软件:QQ:815825,欢迎交流编程知识   
  6. ////////// //////////   
  7.   
  8. //删除虚拟目录应用程序名   
  9. function DeleteVirtualDirApp(strVirtualDir: string): Boolean;   
  10. var  
  11.   WebSite, WebServer, WebRoot, vdir: Variant;   
  12. begin  
  13.   Result := True;   
  14.   try  
  15.     WebSite := CreateOleObject('IISNamespace');   
  16.     WebSite := WebSite.GetObject('IIsWebService''localhost/w3svc');   
  17.     WebServer := WebSite.GetObject('IIsWebServer''1');   
  18.     WebRoot := WebServer.GetObject('IIsWebVirtualDir''Root');   
  19.     vdir := WebRoot.GetObject('IIsWebVirtualDir', strVirtualDir);   
  20.     vdir.AppDelete;   
  21.     vdir.SetInfo;   
  22.   except  
  23.     Result := False;   
  24.   end;   
  25.   
  26. end;   
  27.   
  28. //删除虚拟目录   
  29. function DeleteVirtualDir(strVirtualDir: string): Boolean;   
  30. var  
  31.   WebSite, WebServer, WebRoot, vdir: Variant;   
  32. begin  
  33.   Result := True;   
  34.   try  
  35.     WebSite := CreateOleObject('IISNamespace');   
  36.     WebSite := WebSite.GetObject('IIsWebService''localhost/w3svc');   
  37.     WebServer := WebSite.GetObject('IIsWebServer''1');   
  38.     WebRoot := WebServer.GetObject('IIsWebVirtualDir''Root');   
  39.     WebRoot.Delete('IIsWebVirtualDir', strVirtualDir);   
  40.   except  
  41.     Result := False;   
  42.   end;   
  43. end;   
  44.   
  45. {检测是否有虚拟目录}  
  46. function CheckVirtualDir(const strVirtualDir: string): Boolean;   
  47. var  
  48.   WebSite, WebServer, WebRoot, vdir: Variant;   
  49. begin  
  50.   Result := True;   
  51.   try  
  52.     WebSite := CreateOleObject('IISNamespace');   
  53.     WebSite := WebSite.GetObject('IIsWebService''localhost/w3svc');   
  54.     WebServer := WebSite.GetObject('IIsWebServer''1');   
  55.     WebRoot := WebServer.GetObject('IIsWebVirtualDir''Root');   
  56.     WebRoot.GetObject('IIsWebVirtualDir', strVirtualDir);   
  57.   except  
  58.     Result := False;   
  59.   end;   
  60. end;   
  61.   
  62. //建立虚拟目录   
  63. function CreateVirtualDir(const strVirtualDir, strDir, strAppName: string): Boolean;   
  64. var  
  65.   WebSite, WebServer, WebRoot, vdir: Variant;   
  66. begin  
  67.   Result := True;   
  68.   try  
  69.     WebSite := CreateOleObject('IISNamespace');   
  70.     WebSite := WebSite.GetObject('IIsWebService''localhost/w3svc');   
  71.     WebServer := WebSite.GetObject('IIsWebServer''1');   
  72.     WebRoot := WebServer.GetObject('IIsWebVirtualDir''Root');   
  73.     vdir := WebRoot.Create('IIsWebVirtualDir', strVirtualDir);   
  74.     vdir.AccessRead := True;   
  75.   
  76.     vdir.AccessScript := True; //执行许可为纯脚本   
  77.     vdir.DefaultDoc := 'index.aspx,index.asp'//默认文档   
  78.     vdir.EnableDirBrowsing := False;   
  79.     vdir.AppFriendlyName := strAppName; //应用程序名   
  80.     vdir.Path := strDir;   
  81.     vdir.AppCreate(True); //如果没有这句的话,虚拟目录就要人为的手工创建应用程序名   
  82.     vdir.SetInfo;   
  83.   except  
  84.     Result := False;   
  85.   end;   
  86. end;  

Delphi 查找组件的两种方法

查找组件的方法

Delphi代码
  1. var i:integer;   
  2. begin  
  3.   for i:=1 to 5 do  
  4.   begin  
  5.     if findcomponent('cb'+formatfloat('00',i))<>nil then  
  6.     begin  
  7.       TCheckBox(findcomponent('cb'+formatfloat('00',i))).Checked:=true;   
  8.     end;   
  9.   end;   
  10. end;  

另外一种是

Delphi代码
  1. for i=0 to APanel.ComponentCount-1 do    
  2.   if APanel.Components[i] is TCheckBox then    
  3.   begin  
  4.     (APanel.Components[i] as TCheckBox).Checked=True;   
  5.   end;   

刚在逛的时候发现的代码 第一种我是不会的 下次有用到就得试试看了 哈哈先给记下来

ADOQuery 实现获取数据库所有表名

Delphi代码
  1. ADOQuery.SQL.add('select name from sysobjects where type=''u''');