Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

XP»·¾³ÏÂÔÚDelphiÖе÷ÊÔCOM+×é¼þ

ÏÖÔÚÓ¦ÓÃϵͳÁ÷ÐÐÓÃB/S¿ª·¢£¬Ô缸ÄêÇ°¿ÉÊÇC/SµÄÌìÏÂÄØ£¬ÎÒÏÖÔÚ×öµÄijº½¿Õ¹«Ë¾»õÔ˽áËãά»¤¹¤×÷£¬Æäϵͳ¾ÍÊÇÀûÓÃDelphi¿ª·¢µÄC/SÓ¦ÓóÌÐò£¡ÔÚÈÕ³£µÄά»¤¹¤×÷ÖУ¬ÄÑÃâÒª¶ÔÒѾ­×öºÃµÄCOM+×é¼þ½øÐе÷ÊÔ£¬ÒԲ鿴¾ßÌåµÄ´¦ÀíÂß¼­£¡±¾ÎľÍÊǽéÉÜÔÚWindowsXP»·¾³ÏÂÈçºÎÔÚDelphiÖе÷ÊÔCOM+×é¼þ£¡
µÚÒ»²½£º¼Ç¼ÏÂÄãÏ£Íûµ÷ÊÔµÄCOM+×é¼þµÄGUID¡£¿Éͨ¹ýÈçÏ·½Ê½»ñÈ¡¡£¿ÉÒÔͨ¹ý´ò¿ª“¿ØÖÆÃæ°å”£¬ÕÒµ½“¹ÜÀí¹¤¾ß”£¬È»ºó´ò¿ª“×é¼þ·þÎñ”£¬Õ¹¿ª“¼ÆËã»ú”£¬ÕÒµ½“COM+Ó¦ÓóÌÐò”£¬ÔÚÏ£Íûµ÷ÊÔµÄCOM+Ó¦ÓóÌÐòÉÏÓÒ¼üÒÔ´ò¿ªËüµÄÊôÐÔ£¬Ò»´®ÀàËÆ{2F240A4F-7A70-4573-BD91-FC7AC00EB409}µÄÖµ¾ÍÊÇÎÒÃÇËùÐèÒªµÄ£¬¾ÍÊÇÎÒÃÇÐèÒªµÄÐÅÏ¢£¬½«´Ë¼Ç¼ֵ¸´ÖÆÏÂÀ´´æ´¢ÓÚij¼Çʱ¾ÎļþÖС£
µÚ¶þ²½£º¹Ø±ÕÓûµ÷ÊÔµÄCOM+×é¼þ¡£ 
µÚÈý²½£º´ò¿ªÄãÒªµ÷ÊԲ鿴µÄ×é¼þÓ¦ÓóÌÐò£¬×ªµ½²Ëµ¥Run£¬µã»÷Parameters...Ï
    ÔÚLocalÑ¡ÏîÌõÖУ¬ÔÚHost ApplicationϵÄÊäÈë¿òÄÚ£¬ÊäÈëC:\WINDOWS\system32\dllhost.exe (ÕâÀïµÄCÅÌÇëʹÓÃʵ¼ÊµÄ²Ù×÷ϵͳ·¾¶Ìæ´ú£¬ÔÚWin2000»òWin2003µ±ÖУ¬ÔòÊäÈëC:\WINNT\system32\dllhost.exe) £»ÔÚParametersϵÄÊäÈë¿òÄÚÊäÈë /ProcessID:{GUID}£¬Õâ¸öGUIDÊÇÄãÏ£Íûµ÷ÊÔµÄCOM+×é¼þµÄID£¬Ò²¾ÍÊǵÚÒ»²½²Ù×÷ÖÐÄã¼Ç¼²¢±£´æÔÚ¼Çʱ¾ÖеÄÄÇ´®Öµ£¡
µÚËIJ½£ºÔÚÏ£Íû²é¿´µÄ½Ó¿Ú´úÂë´¦ÉèÖöϵ㣬ÔËÐгÌÐò£¨°´F9£©£¬Äã¾Í´î½¨ºÃµ÷ÊÔ»·¾³ÁË£¡´ËʱֻҪÔÙÓÃÒ»¸öÍⲿӦÓóÌÐòÈ¥µ÷Óô˴úÂ룬¾ÍÄÜ¿´µ½×îÖÕЧ¹ûÁË£¬
 


Ïà¹ØÎĵµ£º

¡¶delphiѧϰ԰µØ¡·Ö® TreeviewʹÓÃÏê½â

TreeViewÓɽڵ㹹³É,½¨Ê÷ͨ¹ý¶ÔTreeView.itemsÊôÐÔ½øÐвÙ×÷¡£ItemsÊÇÒ»¸öTTreeNodes¶ÔÏó,ÕâÊÇÒ»¸öTTreeNode¼¯¡£
Ò»¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,ÓÐÕâЩÊôÐÔ:
1¡¢count,½Úµã¸öÊý¡£
2¡¢item[index]  ,ͨ¹ýindexµÃµ½½Úµã¡£
¶þ¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,³£ÓõÄÌí¼Ó½ÚµãµÄ²Ù×÷ ......

À¨ºÅÆ¥Å䣨delphi£©£­×ª

type
TCharStack = class(TStack)
private
function GetTop: Char;
public
function Pop: Char;
function Push(Item: Char): Char;
property Top: Char read GetTop;
end;
const
FindSet = ['(',')'];

implementation
{$R *.dfm}
{ TCharStack }
......

delphi Éú³Éxml ·½·¨ Óë delphi txtÎļþ²Ù×÷

Procedure TForm1.Button1Click(Sender: TObject);
Var
xmlstr,FileName: String;
f: Textfile;
Begin
xmlStr := '<?xml version="1.0" encoding="gb2312"?>';
xmlstr := xmlstr + '<user><name>ÕÅÈý</name><sex>ÄÐ</sex></user>';
sh ......

Delphi in a Unicode World Part I

 ---
Delphi in a Unicode World Part I: What is Unicode, Why do you need
it, and How do you work with it in Delphi?
By: Nick
Hodges
Ô­ÎÄÁ´½Ó£ºhttp://dn.codegear.com/article/38437
Abstract: This article discusses Unicode, how Delphi developers
can benefit from using Unicode, and ho ......

Delphi¿ç½ø³Ì·ÃÎÊDBGRID

´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
      ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ