Delphi µÄRTTI»úÖÆdz̽(Ðø)
http://www.delphibbs.com/delphibbs/dispq.asp?LID=2421470
±¾ÎÄÊÇ¡¶Delphi µÄRTTI»úÖÆdz̽¡·µÄÐøƪ£¬ÉÏƪµØÖ·ÔÚ£º
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610
±¾ÎÄÉÏƪ»ù±¾ÉÏÊÇ
RTTI ÈëÃŽéÉÜ£¬Ðøƪ½éÉÜÁËËùÓÐ TypInfo.pas Öеĺ¯Êý£¬¸½¼ÓÁË Classes.pas¡¢Graphics.pas¡¢Controls.pas
Öеļ¸¸ö RTTI Ïà¹Øº¯Êý¡£¶ÔÓڹؼüº¯ÊýµÄ´úÂëÌṩ»ã±à×¢ÊÍ¡£Ï£Íû±¾Îĸ²¸ÇÁË Delphi ÖÐ 80% µÄ RTTI
º¯Êý¡£Ê±¼ä²Ö´Ù£¬´íÎóÄÑÃ⣬¾´ÇëÅúÆÀÖ¸Õý¡£
±¾ÎÄÅÅ°æ¸ñʽΪ£º
ÕýÎÄÓÉ´°¿Ú×Ô¶¯»»ÐУ»ËùÓдúÂëÒÔ 80
×Ö·ûΪ±ß½ç£»ÖÐÓ¢ÎÄ×Ö·ûÒÔ¿Õ¸ñ·û·Ö¸ô¡£
(×÷Õß±£Áô¶Ô±¾ÎĵÄËùÓÐȨÀû£¬Î´¾×÷ÕßͬÒâÇëÎðÔÚÔÚÈκι«¹²Ã½ÌåתÔØ¡£)
Ä¿
¼
===============================================================================
¡Ñ
GetTypeData º¯Êý
¡Ñ GetPropInfo º¯Êý
¡Ñ FindPropInfo º¯Êý
¡Ñ GetPropInfos
º¯Êý
¡Ñ SortPropList º¯Êý
¡Ñ GetPropList
º¯Êý
------------------------------------------------------
¡Ñ
GetObjectPropClass º¯Êý
¡Ñ PropType / PropIsType º¯Êý
¡Ñ IsPublishedProp º¯Êý
¡Ñ
IsStoredProp º¯Êý
¡Ñ FreeAndNilProperties º¯Êý
¡Ñ SetToString / StringToSet
º¯Êý
¡Ñ GetEnumName / GetEnumValue / GetEnumNameValue
º¯Êý
------------------------------------------------------
¡Ñ GetOrdProp
º¯ÊýÏê½â
¡Ñ SetOrdProp º¯Êý
¡Ñ GetEnumProp / SetEnumProp º¯Êý
¡Ñ GetSetProp /
SetSetProp º¯Êý
¡Ñ GetObjectProp / SetObjectProp º¯Êý
¡Ñ GetStrProp / SetStrProp
º¯Êý
¡Ñ GetFloatProp / SetFloatProp º¯Êý
¡Ñ GetPropValue / SetPropValue º¯Êý
¡Ñ
TPublishableVariantType
class
------------------------------------------------------
¡Ñ
RegisterClass / FindClass ϵÁк¯Êý (Classes.pas)
¡Ñ IdentToInt / IntToIdent ϵÁк¯Êý
(Classes.pas)
===============================================================================
Õý
ÎÄ
===============================================================================
¡Ñ
GetTypeData
º¯Êý
===============================================================================
GetTypeData
º¯Êý¸ù¾Ý TTypeInfo Ö¸Õë»ñµÃ TTypeData µÄµØÖ·¡£
function GetTypeD
Ïà¹ØÎĵµ£º
ÏÂÃæÈý¸ödelphiº¯ÊýʵÏÖÁËbmpÀàÐÍͼƬºÍjpg(jpeg)ÀàÐÍͼƬµÄת»»ºÍ¸Ä±äλͼͼƬµÄ´óС¡£
jpgת»»Îªbmp:
{********************************************
×÷Õß/ÈÕÆÚ
ÃèÊö£º ʵÏÖjpg(jpeg)ͼƬÏòbmpͼƬµÄת»»
²ÎÊý½éÉÜ
FileName:Ҫת»»µÄjpg(jpeg)ͼƬµÄÃû³Æ£¨°üÀ¨Â·¾¶£©
SaveFileName:ת»»ºóµÄbmpͼƬµÄ´æ´¢Î»Öá£
......
unit Servicescontrol;
interface
uses Windows,Messages,SysUtils,Winsvc,Dialogs;
function StartServices(Const SvrName:String):Boolean;
function StopServices(Const SvrName:String):Boolean;
function QueryServiceStatu(Const SvrName:  ......
ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý
Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb Serviceµ ......
¡¶DelphiÏÂÉîÈëWindowsºËÐıà³Ì¡·£¨¸½Â¼A Delphi±àÒëÖ¸Áî˵Ã÷£©
Õª³ÈË£ºÂé×Ó qq:71892967
Delphi¿ìËÙ¸ßСµÄ±àÒëÆ÷Ö÷ÒªÀ´×ÔObject PASCALµÄÑϽ÷£¬Ê¹ÓÃDelphiËæʱ¶¼ÔÚÓë±àÒëÆ÷½»Á÷£¬´ó²¿·ÖÇé¿öϲ»ÐèÒª¸ÉÉæ±àÒëÆ÷µÄÔËÐУ¬µ«ÊÇÓÐʱҲÐèÒª¶Ô±àÒëÆ÷½øÐбØÒªµÄÉèÖá£
*************************************************** ......
//²Î¿¼µØÖ·£ºhttp://www.wangchao.net.cn/bbsdetail_41190.html
Ò»¡¢Î¢ÈíRegExp
1. ÏÂÔز¢°²×°×îаæµÄ"Microsoft(r) Windows(r) Script"
¡¡¡¡2. RegExp°üº¬ÔÚvbscript.dllÖÐËùÒÔÎÒÃDZØÐëÏÈ×¢²áregsvr32 vbscript.dll
¡¡¡¡×¢(°²×°ÁËIe5ºóĬÈÏÒѾ°üº¬¸Ã¿Ø¼þ)
¡¡¡¡3.ÔÚDelph ......