<![CDATA[21 工作室 - delphi]]> http://www.is21.cn/ zh-cn PBlog2 v2.4 21 工作室 http://www.is21.cn/images/logos.gif http://www.is21.cn/ 21 工作室 http://www.is21.cn/default.asp?id=245 <![CDATA[使用Delphi 7 编写一个IE右键菜单项目：自动保存图片]]> lianxiangpanjin@163.com(admin) Tue,01 Apr 2008 17:19:26 +0800 http://www.is21.cn/default.asp?id=245        无论是IE中的“图片另存为”还是QQ图片工具条，保存图片的时候都需要选择路径，文件名，然后再按保存。如果是一两张图片这样保存自然无所谓，但是如果长期需要做图片收集还是自己DIY一个菜单吧。
       如果你只是想了解用Delphi编写ActiveX或者IE 右键菜单的相关信息，注意每一步下面的Addition，那里有相关主题的更多信息。

正文：
       这个菜单实现的功能是：浏览网页时在图片上单击右键，弹出菜单中比平时多一项“自动保存图片”，单击后自动将图片保存到C:\Images\下面，文件名为默认的文件名，如果遇到重名情况，自动在原文件名后添加几个随机生成的字母，然后自动保存。
       实现方法简介：
            IE右键菜单项    ---------- 修改注册表，添加菜单入口
            响应菜单        ---------- VBScript脚本调用ActiveX Object
            主体：保存文件 ---------- Delphi ActiveX Library & Automation Object


Step by Step：
       1.添加IE右键菜单项
         开始菜单，运行，输入regedit，回车，依次展开
           HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt
         添加一个子键：自动保存图片&Z，修改默认值为：C:\Program Files\PicSaver\PicSaver.htm (这是稍后我们将要编写的脚本)，在新建的子键下添加一个REG_DWORD类型的项Contexts，修改值为2。
         关闭注册表以保存
        
         此时，新打开的IE窗口在图片上单击右键，已经出现自动保存图片菜单。

         Addition:一个子键对应一个菜单项，默认值对应单击菜单时需要激活的脚本文件，Contexts是一个可选项。设置为不同的值表示仅在特定内容上单击右键才会出现这个项目。
                  Context IE 6.0典型值：
                      Context           Value 

                      ---------------------------
                      Default                0x1 
                      Images                0x2 
                      Controls              0x4 
                      Tables                0x8 
                      Text selection     0x10 
                      Anchor               0x20 


                  添加菜单项更多信息参见MSDN：http://msdn2.microsoft.com/en-us/library/Aa753589.aspx

        2.编写VBScript脚本
            新建一个空文件，输入以下内容：

<script language="VBScript">
set srcEvent = external.menuArguments.event
set img = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
set ps = CreateObject("PicSaver.AutoSave")
call ps.SaveImage(img.href)
set ps = nothing
</script>

            保存为C:\Program Files\PicSaver\PicSaver.htm

         Addition: 这个脚本参考了FlashGet下载软件的脚本。其中external.menuArguments可以获得对应的页面内容，elementFromPoint方法返回一个object（事实上就是那个单击的图片），img.href属性取得object对应的URL地址。
                   PicSaver.AutoSave是下面将要编写的ActiveX (Automation Object)，调用了对象的SaveImage方法。

                   脚本中使用HTML 的参考资料比较少，只有MSDN的内容

http://msdn2.microsoft.com/en-us/library/ms533050.aspx

                   这个信息是很全的，但是检索很不方便。
                   脚本中使用Automation Object的方法与使用Scripting.FileSystemObject的方法完全相同，创建对象，访问属性(properties)和方法(methods)都很简单。
                   Scripting.FileSystemObject是内置的处理文件的object，Scripting.FileSystemObject的使用方法见：http://msdn2.microsoft.com/en-us/library/6kxy1a51.aspx，一般的VBScript教程里面都有详细说明。

        3.编写Automation Object: PicSaver.AutoSave
          这是最重要的部分。网上范例用.Net来编写的比较多，本例中我使用Delphi来编写。
          选择用Delphi而不用C++, .Net的原因是：我现在用的机器上没有Virtual Studio，只有Delphi 7。寒。
          进入正题，先打开Delphi7，File->close all，工具栏，New Item，选择ActiveX->ActiveX Library，Save，Project name为PicSaver。
          New Item，选择ActiveX->Automation Object，CoClass Name为AutoSave，其余项目保留默认值。
          弹出PicSaver.tlb窗口(如果没有看到，View->Type Library可以打开这个窗口)，Save，Unit name为AutoSave。
          在左侧可以看到IAutoSave(接口)，右键单击，选择New->Method，取名字为SaveImage，单击Parameters选项卡修改参数，Name:urlstr，Type:BSTR, 单击窗口上的Refresh Implementation。Save。
          关闭PicSaver.tlb窗口，弹出代码编辑器。可以看到Delphi已经自动生成了刚才定义的方法：
procedure SaveImage(const urlstr: WideString); safecall;
          接下来是Coding，没有太多可说的，附上我的源代码。

<---------------------------------Delphi Code---------------------------------->
unit AutoSave;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
   ComObj, ActiveX, PicSaver_TLB, StdVcl;

type
   TAutoSave = class(TAutoObject, IAutoSave)
   protected
     procedure SaveImage(const urlstr: WideString); safecall;

   end;

implementation

uses ComServ, UrlMon, SysUtils, Dialogs, StrUtils;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
   try
     Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
   except
     Result := False;
   end;
end;

function rPos(const substr, str: AnsiString): Integer;
begin
   Result := length(str) - pos(AnsiReverseString(substr), AnsiReverseString(str)) + 1;
end;

function rename(filename: string): string;
var
   i, p: integer;
   randomchar: char;
   name, ext: string;
begin
   p := rpos('.', filename);
   name := copy(filename, 1, p - 1);
   ext := copy(filename, p + 1, length(filename) - p);
   result := name;
   for i := 1 to 5 do
   begin
     randomchar := Chr(random(300) mod 26 + 65);
     result := result + randomchar;
   end;
   result := result + '.' + ext;
end;

procedure TAutoSave.SaveImage(const urlstr: WideString);
const
   PATH = 'C:\Images';
var
   url, DestFile, name, rname: string;
   len, p: integer;
begin
   url := urlstr;
   //parse file name and get destfile name
   len := length(url);
   p := rpos('/', url);
   name := copy(url, p + 1, len - p);
   rname := name;
   while fileexists(PATH + rname) do
   begin
     rname := rename(name);
   end;
   name := rname;
   DestFile := PATH + name;
  
   if DownloadFile(url, DestFile) then
   begin
     //ShowMessage('保存成功!');
   end
   else
   begin
     ShowMessage('！！！！保存不成功！！！！');
   end;
end;

initialization
   TAutoObjectFactory.Create(ComServer, TAutoSave, Class_AutoSave,
     ciMultiInstance, tmApartment);
end.

<-----------------------------End of Delphi Code-------------------------------->

          Save, Compile, Build。
          菜单：Run->Register ActiveX Server，弹出注册成功的提示。
          OK，整个工程完成。

         Addition: Delphi作为一款强大的IDE早已被众多程序员肯定。但是这次是我使用Delphi的最糟糕的经历。
                   因为“编写一个VBScript脚本里可以调用的object”相关的文档太难找了，开始的时候我选择了COM Object，编写一点问题都没有。但是VBScript CreateObject之后返回值根本不包含对象的引用。然后看到网上有很多例子都是使用ActiveX Control(控件)，但是Delphi里面都是需要VCL Component来转换或者创建Active Form来实现，但是我需要的功能不是一个可视组件，只是需要一个方法和接口。之后又看到一些软件使用了BHO(Browser Helper Object)，那个可以在页面加载时就开始运行，获取事件响应。BHO 也不符合我的要求。COM+好像与服务有关系，没有考虑。剩下的就只有Automation Object了，试一下居然OK了。
                   还有值得注意的是字符串参数一定要选BSTR，不能用LPSTR。如果选LPSTR，脚本运行的时候会出错，提示不支持的对象类型。
                   结论：右键菜单脚本调用object在Delphi中一定要选择Automation Object

        4.由于没有制作Setup安装程式，所以使用上需要注意：
          确保C:\Images存在
          Delphi 提示ActiveX DLL注册成功
          脚本文件存在，位置与注册表对应项一致
]]> http://www.is21.cn/default.asp?id=235 <![CDATA[学习网址]]> lianxiangpanjin@163.com(admin) Mon,24 Mar 2008 23:44:44 +0800 http://www.is21.cn/default.asp?id=235 http://www.2ccc.com 
编程论坛http://www.programbbs.com 
学delphi网http://www.xuedelphi.cn 
大富翁编程网站http://www.delphibbs.com/ 
Delphi K.Top讨论区http://delphi.ktop.com.tw 
delphi 窑洞www.51delphi.com 

视频学习网址http://www.51eren.com/
                        http://21hulian.com

-----------------------------------------------------------------------------------------------------
黑客新闻    http://www.anqn.com/news
黑客文章    http://www.anqn.com/article
黑客软件    http://www.anqn.com/soft
黑客动画    http://www.anqn.com/demo
黑客编程    http://www.anqn.com/dev
黑客视频    http://www.anqn.com/video
赚钱王道    http://www.anqn.com/wangzhuan


DDOS攻防    http://www.anqn.com/ddos
脚本注入    http://www.anqn.com/zhuru
加壳脱壳    http://www.anqn.com/ke
破解        http://www.anqn.com/creak
QQ        http://www.anqn.com/qq
灰鸽子        http://www.anqn.com/huigezi
溢出        http://www.anqn.com/yichu
提权        http://www.anqn.com/tiquan
3389        http://www.anqn.com/3389
Arp嗅探        http://www.anqn.com/arp
Serv-U攻防    http://www.anqn.com/servu
Sniffer嗅探    http://www.anqn.com/sniffer
专杀工具    http://www.anqn.com/zhuansha
防火墙        http://www.anqn.com/fanghuoqiang
杀毒软件    http://www.anqn.com/shadu]]> http://www.is21.cn/default.asp?id=232 <![CDATA[常用组件的属性]]> lianxiangpanjin@163.com(admin) Mon,24 Mar 2008 00:33:08 +0800 http://www.is21.cn/default.asp?id=232 button 组件：
CAPTION 属性 ：用于在按钮上显示文本内容
Cancel     属性：是否设置成默认的取消按钮，当设置为真的时候（true） 按ESC触发改按钮的事件！
Default  属性：是否设置成默认的确认按钮，当设置为真的时候 按ENTER键的时候触发事件
Hint  属性：设置当鼠标在按钮上短暂停留是显示的提示内容。
Showhint 属性： 是否显示提示内容默认为假！


Bitbtn 组件
Kind 属性： 他的值就是位图按钮组件上所显示的图标！
GLYPH 属性： 用于在位图按钮上显示加载后的位图图形！
Numclyphs 属性：用于指定位图按钮上所能使用的位图个数！
Layout    属性： 用于指定位图在位图组件上的位置！

Speedbutton 组件
Flat 属性：是否具有OFFICE 2000的风格
Groupindex 属性：设置分组。
DOWN    属性： 设置改按钮是否处于按下状态
Allowallup 属性：设置同一组的快速按钮是否具有同时弹起的状态。

Radiobutton 组件
Checked 是否处于选中状态
Alignment 用于设置选择框和文字的排列方式！

Checkbox  组件
Allowgrayed 用来设置当前组件被选种时，是否为变灰状态！
State       设置当前复选框的状态。

文本类组件
label 组件
Alignment 用来设置标签中的文本在水平方向的排列方式！
AUTOSIZE 用来设置标签的尺寸大小，是否随CAPTION属性中文字的字体大小而进行自动调节！
Font 用来设置显示文字的字体，颜色！
Layout  用于设置标签中的文本在垂直方向的排列方式！
WORDWRAP 用于设置是否自动换行！


EDIT组件
Charcase 用于设置组件中文字的大小写显示方式！
TEXT   用于显示编辑框中的文字内容
Modified 用来判断edit组件里的文字内容是否被修改过，若为假，就是没有被修改过！
Passwordchar 设置显示密码字符！
]]> http://www.is21.cn/default.asp?id=228 <![CDATA[[delphi]type類型的使用]]> lianxiangpanjin@163.com(admin) Sun,16 Mar 2008 14:26:53 +0800 http://www.is21.cn/default.asp?id=228
1.枚舉類型:
     type
        DayOfWeek=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);//變量名=(枚舉列表)
     引用此枚舉類型:
        var 
           Days:DayOfWeek;
     也可以直接將類型聲明和變量聲明一起:
        var  
           Days:(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
2.子界類型:
        子界類型是下列類型中某范圍內的值,即整形,布爾型,字符型或枚舉型.
       例:
         type 
           DayOfWeek=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);//枚舉型
           Days = Moday..Friday//一個DayOfWeek型的子界.
3集合類型
        集合類型是一群具有相同類型的元素的集合,這些類型必須是有限類型,如整形,布爾型,字符型,枚舉型和子界類型
       例:
         type
            Set1 = Set of 'A'..'Z';

4.數組類型
       數組類型是某種數據類型的有序集合.下面代碼聲明了一個Integer型的數組變量:
        type
           Int = array[0..15] of integer;

        使用:
          var  
             TInt : Int;

             for i := 0 to 5 do
                TInt := 0;   //為數組各元素賦初始值為0
    
        多維數組的定義:
          type
            TArr = array[0..1.,0..10] of integer;
      
          var
             Arr : TArr;
             c,r : integer;
             ........

          for c := 0 to 10 do
            for r := 0 to 10 do
               Arr[c,r] := 0;   //為多維數組各元素賦初始值為0
5記錄類型 
       記錄是程序可以成組訪問的一群數據的集合.
       例:
         type
            TStudent = record   
               ID : integer;
               Name : String[10];
         end;
       使用:
          var
             Stu : TStudent;
            ........
          with Stu do
          begin
             ID := 1;
             Name := 'yueyun889';
          end;
6.指針類型
        指針是一個表示內存地址的變量.語法如下:
        指針類型標志符=^基類型
        例:
          type
            PInt = ^Integer; //定義指針類型
        '^'運算符放在數據類型的前面,可以定義該類型的一個指針類型;放在一個指針的後面,可以獲得該指針所指地址空間的內容.
       '@'運算符放在變量的前面,獲取的是變量的地址,并可以將地址賦值為相同數據類型的指針.  
7.定義類和對象
       類的定義如下:
          type   ClassName = Class(AncestorClass)
             MemberList
          end;
       上面的ClassName是需要定義的類的名稱,通常是一個以T開頭的標志符.AncestorClass是所繼承的父類的名稱.MemberList是類的成員列表,可以聲明一些變量和對象,或者是過程與函數.


順便記錄下多態性:
    在Object Pascal 語言中定義的類的方法通常是"靜態"的,也就是在編譯和連接階段就確定了對象方法的調用地址.
    在面向對象的程序設計語言中還可以在運行時才確定對象方法的調用地址.這種調用函數的方式就稱為"多態".
(不是很了解,先記錄下來再說...)
]]> http://www.is21.cn/default.asp?id=219 <![CDATA[对文本文件操作]]> lianxiangpanjin@163.com(admin) Fri,14 Mar 2008 16:19:54 +0800 http://www.is21.cn/default.asp?id=219 1 首先要打开此文本文件,声明变量
var
    MyTextFile:Textfile
通过此变量来引用一个文本文件

打开一个文本文件需要两步:首先是AssignFile(),它可以将变量与一个文件关联起来.
例:AssignFile(MyTextFile,'MyTextFile.txt');

2,打开文本文件
   (1)rewrite创建 (2)reset   (3)append]]>