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 ±àдµÄcom ¶ÔÏó ÓÃdelphi µÄµ÷ÓÃʵÀý
COM ¶ÔÏóÓë ǰһƪÎÄÕ嵀 PHPµ÷ÓõÄCOMΪͬһ¸ö¶ÔÏ󣬹ʲ»Àý³öCOM.
procedure TForm1.Button4Click(Sender: TObject);
var
myCounter, mReturn: variant;
begin
myCounter := CreateOleObject('abc.myxml');
mReturn := myCounter.xml;
&nbs ......
http://meidi152.blog.163.com/blog/static/5423302009610103610744/
1. memo¿Ø¼þ¶ÁÈ¡txt
memo1.Lines.LoadfromFile('E:\*\*.txt');
2.
Procedure NewTxt(FileName:String);
Var
F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {¿´ÎļþÊÇ·ñ´æÔÚ,ÔÚ¾Í刪³ý}
AssignFile(F, ......
Format
typeµÄ¿ÉÄÜÖµÓÐÏÂÁÐÕâЩ£º
(1) d ÓзûºÅÊ®½øÖÆÊý
Args±ØÐëÊÇÓзûºÅÕûÐÍÊý¡£Èç¹ûÔÚ¸ñʽ»¯×Ö·û´®Öл¹¼ÓÈëÁË["." prec]£¬ÔòÈç¹ûArgs
µÄ³¤¶ÈÈç¹ûСÓÚ¸ø³öµÄ¾«¶ÈÊýʱ£¬ÔÚǰ±ßÌî²¹0£»Èç¹û´óÓÚ¾«¶ÈÊý£¬°´Êµ¼Ê³¤¶ ......
ÎÊÌâ±³¾°£º
¹«Ë¾Ï£ÍûʹÓÃMagentoÀ´½øÐнӵ¥£¬¶øºó°Ñ¶©µ¥µ¼Èëµ½Ò»¸öERPϵͳÖÐ(¶©µ¥´¦ÀíÒýÇæ)¡£
ÎÊÌ⣺
ÔÚʹÓÃWebService´ÓMagentoÖлñÈ¡PaymentÐÅϢʱ£¬ÐÅÓÿ¨ÊDZ»¼ÓÃܵÄ(·¨Âɹ涨²»ÔÊÐíÔÚÊý¾Ý¿âÖд洢ÐÅÓÿ¨µÄÃ÷ÎÄÐÅÏ¢)£¡
......