Delphi ·¢²¼ActiveX¿Ø¼þ Êý×ÖÇ©Ãû£¨×ª£©
Ô×÷Õߣº¹âÃ÷ÐÖµÜ
×î½üÎÒÕýÔÚÑо¿ActiveX¼¼Êõ¡£ÎÒʹÓÃDelphi 7´´½¨ÁËÒ»¸ö¾ßÓÐActiveFormµÄActiveX¿Ø¼þÓ¦ÓóÌÐò¡£Õâ¸ö¿Ø¼þ²úÉúÒ»¸ö.OCXÎļþ¡£ÏÖÔÚ£¬ÎÒÐèÒª°ÑÕâ¸ö¿Ø¼þ²¿ÊðÔÚ·þÎñÆ÷¶Ë£¬ÔÚÓû§ä¯ÀÀÍøÒ³²¢Ñ¡Ôñ°²×°Õâ¸ö¿Ø¼þµÄʱºò£¬Óû§µÄIE²Å»áÏÂÔØ¡¢°²×°²¢ÏÔʾÕâ¸ö¿Ø¼þ¡£
µ«ÊÇÎҵĿؼþ±ØÐë×÷Êý×ÖÇ©ÃûÒÔºó£¬IE²Å»áÏÂÔØ°²×°¡£ÎÊÌâÊÇÈçºÎ¸øActiveX¿Ø¼þ×÷Êý×ÖÇ©ÃûÄØ£¿ÏÖ½«¾ßÌå²½ÖèÓë´ó¼Ò·ÖÏí¡£
Ê×ÏÈÎÒÐèÒªÒ»Ì××öÊý×ÖÇ©ÃûµÄ¹¤¾ß¡£Èç¹ûÄãûÓУ¬¿ÉÒÔµ½ÒÔϵØÖ·ÏÂÔØ£º
http://files.cnblogs.com/babyt/SignTool.rar
¿Ø¼þµÄÃû×ÖÊÇCustForm.ocx¡£Ê×ÏÈ£¬ÎÒÃÇÐèÒª´´½¨Ò»¸ö.CABÎļþÓÃÀ´°ÑËùÓÐÐèÒª·¢²¼µÄÎļþѹËõÔÚÒ»Æð¡£ÎÒÃÇÐèÒªÒ»Æð·¢²¼µÄÎļþÊÇCustForm.licÎļþ¡£ËüÊÇDelphiÔÚÎÒÃÇ´´½¨¿Ø¼þ¹¤³ÌµÄʱºòΪÎÒÃÇÉú³ÉµÄ¡£Èç¹û²»·¢²¼Õâ¸öÎļþ£¬ÄãµÄ¿Ø¼þ¼´Ê¹ÏÂÔØ°²×°³É¹¦£¬IEÒ²ÎÞ·¨ÏÔʾËü¡£
ΪÁËÔÚÒ»¸ö.CABÎļþÖз¢²¼¶à¸öÎļþ£¬ÎÒÃDZØÐëÏÈ´´½¨Ò»¸ö.INFÎļþ¡£Ò»¸ö.INFÎļþ¿ÉÒÔ¸æËßIE£¬ËüÐèÒªÏÂÔØµÄÎļþºÍÔÚÄÄÀï¿ÉÒԵõ½ÕâЩÎļþ¡£
1. ´´½¨.INFÎļþ
´´½¨Ò»¸ö.INFÎļþºÜ¼òµ¥£¬ÓüÇʱ¾³ÌÐò±àд¾Í¿ÉÒÔÁË¡£ÎÒÃǰÑÎÒÃǵÄ.INFÎļþÈ¡ÃûΪGMTestX.inf¡£ÒòΪÎÒÃÇÒªÔÚ.CABÎļþÖзÅÈëGMTest.ocxºÍGMTest.licÕâÁ½¸öÎļþ£¬ËùÒÔÎÒÃǵÄ.INFÎļþµÄÄÚÈÝÈçÏ£º
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[version]
signature="$CHICAGO$"
dvancedINF=2.0
[Add.Code]
CustForm.ocx=CustForm.ocx
CustForm.lic=CustForm.lic //Èç¹û´´½¨Active FormʱûÓÐÑ¡ÔñMake Conctrol Lincensed Ôò²»»á²úÉú.licÎļþ£¬ÄÇô´´½¨.infÎļþʱ¿ÉÈ¥µô´ËÐÐ
[CustForm.ocx]
file-win32-x86=thiscab
clsid={C504DF79-C5EC-4314-AC3E-1F770DB81A01}
FileVersion=1,0,0,0
RegisterServer=yes
[CustForm.lic]//Èç¹û´´½¨Active FormʱûÓÐÑ¡ÔñMake Conctrol Lincensed Ôò²»»á²úÉú.licÎļþ£¬ÄÇô´´½¨.infÎļþʱ¿ÉÈ¥µô´ËÐÐ
file-win32-x86=thiscab//Èç¹û´´½¨Active FormʱûÓÐÑ¡ÔñMake Conctrol Lincensed Ôò²»»á²úÉú.licÎļþ£¬ÄÇô´´½¨.infÎļþʱ¿ÉÈ¥µô´ËÐÐ
FileVersion=1,0,0,0//Èç¹û´´½¨Active FormʱûÓÐÑ¡ÔñMake Conctrol Lincensed Ôò²»»á²úÉú.licÎļþ£¬ÄÇô´´½¨.infÎļþʱ¿ÉÈ¥µô´ËÐÐ
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ÔÚÕâ¸ö.INFÎļþµÄ[version]²¿·ÖÓÐÁ½¾ä´úÂë¡£signature="$CHICAGO$"±íʾÕâ¸ö.INFÎļþºÍWindows95»òÆäºó°æ±¾ºÍWindows NT 4.0»òÆäºóµÄ°æ±¾¼æÈÝ¡£AdvancedI
Ïà¹ØÎĵµ£º
Delphi ¹Ø¼ü×ÖÏê½â---absolute//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλÖñ£´æÁË×Ö·û´®µÄ³¤¶È, ËùÒÔStrLenµÄÖµ¼´×Ö·û´®³¤¶È.
begin
Str := 'abc';
Edit ......
Delphi in a Unicode World Part II: New RTL Features and
Classes to Support Unicode
By: Nick
Hodges
ÔÎÄÁ´½Ó:http://dn.codegear.com/article/38498
Abstract: This article will cover the new features of the Tiburon
Runtime Library that will help handle Unicode strings.
//
& ......
´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......