2006年12月 - 傻猫网络日志

第一个ActiveX控件诞生

本控件由Delphi7完成，实现本地浏览图片，添加删除图片，从而为上传图片作准备。

缩略图全为程序自动绘制，支持JPG，JPEG，BMP图像。

支持创建新窗口，支持参数传递，为控件添加了数字签名（虽然签名不可用，哈哈，到MS拿一个签名贵的咬人）

网页代码如下：

[php]

<HTML>
<H1>
<OBJECT
   classid="clsid:FCF8D55F-2C5B-49AF-BDE8-93C004FDB5FD"
   codebase="http://www.samool.com/work/SamoolImagUploadProj1.cab#version=1,0,0,0"
   width=800
   height=515
   align=center
   hspace=0
   vspace=0
>
<param name="upUserName" value="asdfasd123"> //传递的参数
</OBJECT>
</H1>
</HTML>

[/php]

仿Sohu相册控件，呵呵。

Posted in 软件开发 at December 28, 2006. by 傻猫 . Views: 3311 No Comments

制作cab安装文件

Microlog Cabinet Manager 2000 is a utility for opening and creating Microsoft CAB compressed files. CAB is a file compression format used by Microsoft to distribute many of their products, including Windows 98. Cabman 2000 can open CAB files to display a list of the files contained inside. You can extract or view files inside a CAB archive or self-extracting file, or add new files to a CAB file.

Cabman 2000 also allows you to create self-extracting, self-installing packages for the Internet. It can also be used to check the authenticity and integrity of the files using Authenticode. It also provides effective LZX/LZ77 compression.

This newest version has the ability to encrypt cabinet files using RSA RC2, RC4 and DES.

安装脚本

[version]
signature="$Samool$"
AdvancedINF=1.0.0.0
[ActiveFormProj1.ocx]
file-win32-x86=thiscab
clsid={C4385F93-1130-4D2C-8EC6-CF2B4D138C1A}
FileVersion=1,0,0,0
RegisterServer=yes

activeformproj1.inf

activeformproj1.cab

Posted in 杂七杂八 at December 25, 2006. by 傻猫 . Views: 3379 No Comments

如何添加数字签名

1、先制作证书

makecert -sv samool.pvk -n "CN=傻猫软件" -ss My -b 01/01/2005 -e 01/01/2095 samool.cer

命令中各参数的含义见附表。

以上命令执行后，将弹出一个窗口，要求你设置私匙密码，如果你不设密码，点“无”按钮即可。

于是在makecert.exe程序所在目录下，就生成了数字证书文件samool.cer和对应的私匙文件samool.pvk。注意：私钥文件为你个人所有，不能泄露给其他人，否则别人可以使用它、已你的名义签名

2、开始证书spc转换

运行 c:\cert2spc samool.cer samool.spc

3、开始数字签名

运行signcode 按照提示操作就可以了。

signtool.rar

Posted in 软件开发 at December 19, 2006. by 傻猫 . Views: 6106 1 Comment

TADOConnection连接MySql

try
     con1.ConnectionString:=('DRIVER={MySQL ODBC 3.51 Driver};'+
                    'SERVER=localhost;'+
                    'DATABASE=test;'+
                    'USER=root;'+
                    'PASSWORD=root;'+
                    'OPTION=3;');
     con1.Close;
     con1.Open;

     qry1.SQL.Clear;
     qry1.SQL.Add('Select * from user');
     qry1.Open;
except
        application.MessageBox('无法连接数据库服务器.请与管理员联系','提示',MB_ICONINFORMATION);
end;