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

delphi idhttp访问https需要增加IdSSLIOHand...

 

加载https的站点页面内容的时候记得在窗体上加上IdSSLIOHandlerSocketOpenSSL1

以及idhttp里面IOHandler为IdSSLIOHandlerSocketOpenSSL1

不然老报错IOHandler value is not valid.错..

delphi 复制目录 包括子目录

复制某个目录下面的所有文件到另外一个目录……

» 阅读全文

delphi 删除目录 包括子目录

  1. function DeletePath(mDirName:   string):   Boolean;   {   返回删除指定目录是否成功   } 
  2. var 
  3.     vSearchRec:   TSearchRec; 
  4.     vPathName:   string
  5.     K:   Integer; 
  6. begin 
  7.     Result   :=   True; 
  8.     vPathName   :=   mDirName   +   '\*.*'
  9.     K   :=   FindFirst(vPathName,   faAnyFile,   vSearchRec); 
  10.     while   K   =   0   do   begin 
  11.         if   (vSearchRec.Attr   and   faDirectory   >   0)   and 
  12.             (Pos(vSearchRec.Name,   '..')   =   0)   then   begin 
  13.             FileSetAttr(mDirName   +   '\'   +   vSearchRec.Name,   faDirectory); 
  14.             Result   :=   DeletePath(mDirName   +   '\'   +   vSearchRec.Name); 
  15.         end   else   if   Pos(vSearchRec.Name,   '..')   =   0   then   begin 
  16.             FileSetAttr(mDirName   +   '\'   +   vSearchRec.Name,   0); 
  17.             Result   :=   DeleteFile(PChar(mDirName   +   '\'   +   vSearchRec.Name)); 
  18.         end
  19.         if   not   Result   then   Break; 
  20.         K   :=   FindNext(vSearchRec); 
  21.     end
  22.     FindClose(vSearchRec); 
  23.     Result   :=   RemoveDir(mDirName); 
  24. end

 

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

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

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

» 阅读全文

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

  1. Var  
  2.   SetFrm :TSetes;  
  3. begin 
  4.   SetFrm :=TSetes.Create(nil);  
  5.   SetFrm.ShowModal;  
  6.   if SetFrm.ModalResult =2 then 
  7.   ShowMessage('配置重载成功!');  
  8. end;  

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

图片附件:
felix_001.gif

大小: 22.91 K
尺寸: 400 x 85
浏览: 989 次
点击打开新窗口浏览全图

delphi 窗体最小化问题

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的操作

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

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

获取窗体坐标

GetWindowRect(handle,Rect)

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

Delphi 2009注册机!强悍

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

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

转一帖 Delphi2007的DelphiX错误

今日安装了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的。