DelphiϵÄCOM±à³Ì
Delphiͨ¹ýÏòµ¼¿ÉÒԷdz£Ñ¸Ëٺͷ½±ãµÄÖ±½Ó½¨Á¢ÊµÏÖCOM¶ÔÏóµÄ´úÂ룬µ«ÊÇÕû¸öCOMʵÏֵĹý³Ì±»ÍêÈ«µÄ·â×°£¬ÉõÖÁûÓÐVCLÄÇô½á¹¹ÇåÎú¿É¼û¡£Ò»¸öûÓÐC++ÏÂCOM¿ª·¢¾ÑéÉõÖÁûÓнӴ¥¹ýCOM¿ª·¢µÄDelphi³ÌÐòÔ±£¬Ò²Äܹ»ºÜÈÝÒ׵İ´Õս̳ÌÉè¼ÆÒ»¸ö½Ó¿Ú£¬µ«ÊÇ£¬¿ÖÅÂÉîÈëÒ»Ï룬Á¬Éú³ÉµÄ´úÂë´ú±íºÎÖÖÒâÒ壬ÄÄЩÄܹ»¶¨Öƶ¼²»Çå³þ¡£Ç°¼¸ÆÚ “DELPHIϵÄCOM±à³Ì¼¼Êõ”Ò»ÎÄÒѾ³õ²½½éÉÜÁËCOMµÄһЩ»ù±¾¸ÅÄÎÒÔòÏë̸һЩ¸öÈ˵ÄÀí½â£¬Ï£ÍûÄܸø¶ÔDelphiÏÂCOM±à³ÌÓÐÒÉ»óµÄÅóÓÑ´øÀ´°ïÖú¡£
COM (×é¼þ¶ÔÏóÄ£ÐÍ Component Object Model)ÊÇÒ»¸öºÜÅÓ´óµÄÌåϵ¡£¼òµ¥À´Ëµ£¬COM¶¨ÒåÁËÒ»×éAPIÓëÒ»¸ö¶þ½øÖƵıê×¼£¬ÈÃÀ´×Ô²»Í¬Æ½Ì¨¡¢²»Í¬¿ª·¢ÓïÑԵĶÀÁ¢¶ÔÏóÖ®¼ä½øÐÐͨÐÅ¡£COM¶ÔÏóÖ»Óз½·¨ºÍÊôÐÔ£¬²¢°üº¬Ò»¸ö»ò¶à¸ö½Ó¿Ú¡£ÕâЩ½Ó¿ÚʵÏÖÁËCOM¶ÔÏóµÄ¹¦ÄÜ£¬Í¨¹ýµ÷ÓÃ×¢²áµÄCOM¶ÔÏóµÄ½Ó¿Ú£¬Äܹ»ÔÚ²»Í¬Æ½Ì¨¼ä´«µÝÊý¾Ý¡£
COM¹â±ê×¼ºÍϸ½Ú¾Í¿ÉÒÔ³ö¼¸±¾´óÊé¡£ÕâÀï±ÜÖØ¾ÍÇᣬ½ö½ö³õ²½µÄ½âÊÍDelphiÈçºÎ½øÐÐCOMµÄ·â×°¼°ÊµÏÖ¡£¶ÔÓÚÉÏÊöCOM¼¼Êõ¾Ñé²»×ãµÄDelphi³ÌÐò¿ª·¢ÕßÀ´Ëµ£¬Delphiͨ¹ýÄ£°æÉú³ÉµÄ´úÂë¾ÍÏñÊǸøÄãÒ»·ù³éÏó»ÕÕׯһÑù£¬»³öÀ´ÁËÈ´²»Ò»¶¨ÖªµÀ»µÄ¾¿¾¹ÊÇʲô£¬Ò²²»Öª¸ÃÈçºÎÏÂÊÖ»×Ô¼ºµÄ¶«Î÷¡£±¾ÎÄÄܹ»°ïÖúÄã½â¾öÕâÀàÒÉ»ó¡£
Ôٴν²½âһЩ¸ÅÄî
“DELPHIϵÄCOM±à³Ì¼¼Êõ”Ò»ÎÄÒѾ½éÉÜÁ˲»ÉÙCOMµÄ¸ÅÄ±ÈÈçGUID¡¢CLSID¡¢IID£¬ÒýÓüÆÊý£¬IUnKnown½Ó¿ÚµÈ£¬ÏÂÃæÔÙ²¹³äһЩÏà¹ØÄÚÈÝ
£º
COMÓëDCOM¡¢COM+¡¢OLE¡¢ActiveXµÄ¹ØÏµ
DCOM£¨·Ö²¼Ê½COM£©ÌṩһÖÖÍøÂçÉÏ·ÃÎÊÆäËû»úÆ÷µÄÊֶΣ¬ÊÇCOMµÄÍøÂ绯À©Õ¹£¬¿ÉÒÔÔ¶³Ì´´½¨¼°µ÷Óá£COM+ÊÇMicrosoft¶ÔCOM½øÐÐÁËÖØÒªµÄ¸ü
кóÍÆ³öµÄ¼¼Êõ£¬µ«Ëü²»¼òµ¥µÈÓÚCOMµÄÉý¼¶£¬COM+ÊÇÏòºó¼æÈݵ쬵«ÔÚijЩ³Ì¶ÈÉϾßÓкÍCOM²»Í¬µÄÌØÐÔ£¬±ÈÈçÎÞ״̬µÄ¡¢ÊÂÎñ¿ØÖÆ¡¢°²È«¿ØÖƵȵȡ£
ÒÔǰµÄOLEÊÇÓÃÀ´ÃèÊö½¨Á¢ÔÚCOMÌåϵ½á¹¹»ù´¡ÉϵÄÒ»ÕûÌ×¼¼Êõ£¬ÏÖÔÚOLE½ö½öÊÇÖ¸Óë¶ÔÏóÁ¬½Ó¼°Ç¶ÈëÓйصļ¼Êõ£»ActiveXÔòÓÃÀ´ÃèÊö½¨Á¢ÔÚCOM»ù´¡ÉϵķÇCOM¼¼Êõ£¬ËüµÄÖØÒªÄÚÈÝÊÇ×Ô¶¯»¯£¨Automation£©£¬×Ô¶¯»¯ÔÊÐíÒ»¸öÓ¦ÓóÌÐò£¨³ÆÎª×Ô¶¯»¯¿ØÖÆÆ÷£©²Ù×ÝÁíÒ»¸öÓ¦ÓóÌÐò»ò¿â£¨³ÆÎª×Ô¶¯»¯·þÎñÆ÷£©µÄ¶ÔÏ󣬻òÕß°ÑÓ¦ÓóÌÐòÔªËØ±©Â¶³öÀ´¡£
Óɴ˿ɼûCOMÓëÒÔÉϵļ¸ÖÖ¼¼ÊõµÄ¹ØÏµ£¬²¢ÇÒËüÃǶ¼ÊÇΪÁËÈöÔÏóÄܹ»¿ç¿ª·¢¹¤¾ß¿çƽ̨ÉõÖÁ¿çÍøÂçµÄ±»Ê¹Óá£
DelphiϵĽӿÚ
DelphiÖеĽӿڸÅÄîÀàËÆC++ÖеĴ¿ÐéÀ࣬ÓÖÓÉÓÚDelphiµÄÀàÊǵ¥¼Ì³Ðģʽ£¨C++ÊǶà¼Ì³ÐµÄ£©£¬¼´Ò»¸öÀ
Ïà¹ØÎĵµ£º
Õª
Òª£º±¾ÎÄͨ¹ýʹÓÃDelphiºÍWebServices¼¼Êõ¿ª·¢¶ÌÐÅÓ¦ÓóÌÐòµÄʵÀýÏêϸµÄ½éÉÜÁËÈçºÎÔÚDelphiÖпª·¢»ùÓÚWebServices¼¼Êõ
µÄÓ¦ÓóÌÐò¡£
¡¡¡¡¹Ø¼ü×Ö£ºDelphi£»WebService£»¶ÌÐÅÓ¦ÓóÌÐò¿ª·¢
¡¡¡¡Ò»ÌáÆð»ùÓÚWebServices¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVS.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß
(RAD)µ ......
×÷Õß: yangyxd ×ªÔØÇë×¢Ã÷³ö´¦ http://hi.baidu.com/yangyxd 2009-3-12
ÂÛ̳ÀïÓйØÓÚHOOK APIµÄÌù×Ó£¬ µ«ÆäʵÏÖÔÚ·½Ê½ÏÔʾµÃÂé·³£¬ ÆäʵÏÖÔÚÀ¹½ØAPIÒ»°ã²»ÓÃÄÇÖÖ·½Ê½£¬ ´ó¶¼²ÉÓÃinline Hook API·½Ê½¡£ÆäʵҲ¾ÍÊÇÖ±½ÓÐÞ¸ÄÁËÒªÀ¹½ØµÄAPIÔ´ÂëµÄÍ·²¿£¬ÈÃËüÎÞÌõ¼þÌø×ªµ½ÎÒÃÇ× ......
alter procedure qry_page
@sqlstr nvarchar(4000), --²éѯ×Ö·û´®
@page int, --µÚNÒ³
@pagesize int &n ......
1£®ÒýÑÔ
ÔÚÀûÓÃdelphi¿ª·¢Ó¦ÓóÌÐòµÄʱºò£¬Í¨³£ÎÒÃÇÒªÉè¼Æ³öºÜ¶à¸÷ÖÖ¸ñʽµÄÎĵµ¡¢±¨±í£¬¾³£Òª½øÐÐÎļþµÄ´´½¨¡¢±à¼¼°Ð޸ģ¬ËäÈ»delphi±¾ÉíÌṩÁ˺ܶàÉè¼Æ±¨±íµÄ¿Ø¼þ»ò·½·¨£¬µ«ÊÇ´æÔÚÃ÷ÏԵIJ»×㣬±ÈÈçÖÐÎÄÊäÈ룬Êý¾Ý¸ñʽµÄ¿ØÖƵȲÙ×÷ÆðÀ´±È½ÏÂé·³¡£ÀûÓôó¼Ò¶¼ºÜÊìϤµÄoffice¹¤¾ß½áºÏ¿ª·¢£¬Äܹ»ºÜºÃµÄ½â¾öÕâ·½ÃæµÄÎÊÌâ¡£ÒÔÏ ......
Õâ¸ö±¾À´ÎÒÎÒÔÚDELPHIºÐ×Ó¿´µ½µÄ£¬ºóÀ´ÎÒ¶ÔÆä×÷ÁËÒ»µãÐ޸ģ¬ÕâÀïÉÏÈ«²¿´úÂ룬¿ÉÒÔÖ±½ÓÓÃ
Ê×ÏÈÓÐÁ½¸ö×Ô¶¨µÄת»»º¯Êý£º
function myStrToHex(s:string):string; //×Ö´®×ª16½øÖÆ
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Res ......