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

ʹÓÃDelphiÄÚÖú¯Êý¶ÁдINIÎļþ


ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´ÊµÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£¬×¨ÃÅÓÃÀ´¶ÔINIÎļþ½øÐжÁд²Ù×÷¡£Èç¹ûÔÚ³ÌÐòÖÐÒªÓõ½TIniFileÀà»òÆä·½·¨ÊôÐÔ£¬¾Í±ØÐëÔÚ³ÌÐòµ¥ÔªµÄusesÓï¾äÖÐÊÖ¹¤¼ÓÈë¶ÔIniFilesµ¥ÔªµÄÒýÓá£
2¡¢Create·½·¨
¸Ã·½·¨ÓÃÀ´´´½¨Ò»¸ö´¦ÀíINIÎļþµÄTIniFileÀàÐÍʵÀý¡£
·½·¨ÉùÃ÷£ºconstructor Create(const FileName:string);
²ÎÊý˵Ã÷£ºFileNameÖ¸Ã÷´ý´´½¨µÄINIÎļþµÄÎļþÃû£»
×¢ÊÍ£ºÔÚʹÓÃTIniFile¶ÔÏó֮ǰ£¬±ØÐëÏÈÓô˷½·¨´´½¨Ò»¸öINIÎļþµÄʵÀý¡£FileNameÖпÉÒÔ°üº¬Â·¾¶Ãû£¬È±Ê¡Ê±ÎªWindowsËùÔÚĿ¼£¨Ò»°ã¾ÍÊÇC:\windows,¶ÔÓÚWindows NTÀ´Ëµ£¬ÔòÒ»°ãÊÇc:\winnt)¡£ÓÃCreate·½·¨´´½¨µÄʵÀý£¬ÔÚʹÓÃÍêÖ®ºó£¬µ÷ÓÃFree·½·¨ÊÍ·ÅÄÚ´æ¡£
3¡¢ReadSection·½·¨
¸Ã·½·¨´ÓINIÎļþÖжÁ³öÖ¸¶¨¶ÎµÄËùÓÐ×Ó¼üÃû£¬²¢´æÈëStrings²ÎÊýÖ¸¶¨µÄ×Ö·û´®Áбí¶ÔÏóÖС£
·½·¨ÉùÃ÷£ºprocedure ReadSection(const Section:string; Strings:TStrings);
²ÎÊý˵Ã÷£ºSectionÖ¸Ã÷Òª¶ÁÈ¡¶ÎµÄ¶ÎÃû£»
StringsÖ¸Ã÷´æ·Å×Ó¼üÃûµÄ×Ö·û´®ÁÐ±í£»
×¢ÊÍ£ºReadSection·½·¨½ö¶ÁÈëÖ¸¶¨¶ÎµÄËùÓÐ×Ó¼üÃû£¬µ«²»¶ÁÈë×Ó¼üµÄÖµ¡£
4¡¢ReadSections·½·¨
¸Ã·½·¨´ÓINIÎļþÖжÁÈ¡ËùÓжÎÃû£¬²¢´æÈëStrings²ÎÊýÖ¸¶¨µÄ×Ö·ûÖÐÁбíÖС£
·½·¨ÉùÃ÷£ºprocedure ReadSections(Strings:TStrings);
²ÎÊý˵Ã÷£ºStrings²ÎÊýÖ¸Ã÷´æ·Å¶ÎÃûµÄ×Ö·û´®ÁÐ±í£»
×¢ÊÍ£ºReadSections·½·¨½«INIÎļþÖÐËùÓжεĶÎÃû¶Á³ö£¬´æÈëÒ»Ö¸¶¨µÄ×Ö·û´®ÁбíÖУ¬´Ë×Ö·û´®Áбí¿ÉÒÔÖ±½ÓʹÓÃij¸öÁбí¿òµÄItemsÊôÐÔ¡£
5¡¢ReadSectionValues·½·¨
¸Ã·½·¨´ÓINIÎļþÖжÁÈëÖ¸¶¨¶ÎµÄËùÓÐ×Ó¼üÃû¼°Æä¼üÖµ£¬²¢´æÈëStrings²ÎÊýÖ¸¶¨µÄ×Ö·û´®ÁбíÖС£
·½·¨ÉùÃ÷£ºprocedure ReadSectionValues(const Section:String; Strings:TStrings);
²ÎÊý˵Ã÷£ºSectionÖ¸Ã÷Òª¶ÁÈ¡¶ÎµÄ¶ÎÃû£»
StringsÖ¸Ã÷´æ·Å¶ÎÃûµÄ×Ö·û´®ÁÐ±í£»
×¢ÊÍ£ºReadSectionValues·½·¨ÓëReadSection·½·¨µÄÇø±ðÔÚÓÚºóÕß½ö¶ÁÈë×Ó¼üÃû£¬ÃæÇ°Õß³ýÁ˶ÁÈ¡×Ó¼üÃûÖ®Í⣬»¹¶ÁÈ¡¸Ã×Ó¼ü¶ÔÓ¦µÄ¼üÖµ¡£¶ÁÈëµÄ×Ó¼üÃû¼°¼üÖµÔÚ×Ö·û´®ÁбíÖеĴæ·Å·½·¨ÓëÔÚÎļþÖеÄÏÔʾ·½·¨Ò»Ö£¬¼´"Key=Value"ÐÎʽ¡£
6¡¢EraseSection·½·¨
¸Ã·½·¨É¾³ýINIÎļþÖÐ


Ïà¹ØÎĵµ£º

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......

DelphiÖж¯Ì¬Á´½Ó¿â(DLL)µÄ½¨Á¢ºÍʹÓÃ

¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øD ......

DelphiÈý²ã ѹËõÊý¾Ý´«Êä

Client:TSocketConnection ºÍServer: Scktsrvr¹ØÏµ----ѹËõÊý¾Ý´«Êä
Ò»Ö±ÓÃSocketConnectionºÍ·þÎñ¶ËµÄ´«ÊäÊý¾ÝÔÚÈý²ãÊý¾Ý¿âÖУ¬´ÓÀ´Ã»ÓÐ×¢Òâµ½ËüÃÇÖ®¼äµÄÊý¾Ý´«Ê䣬ֻÊÇÏë×Å£¬¹ÜËüÁË£¬ÍøÂçµÄÊ£¬Ç°¶Îʱ¼äÔÚDelphiÖеÄDemosÖз¢ÏÖDemos\Midas\Intrcpt.dprÀý×Ó£¬ºÇºÇ£¬ÔÙ¿´Á˰ëÌìµÄVCL·¢ÏÖ¿ÉÒÔ½«Client¶Ë·¢Ë͵ĸøServerµÄÊ ......

ÓÃdelphiÖÆ×÷OCX¿âÎļþ£¨Èý£©

¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
view|type library
ÕÒµ½ÒѾ­Éú³ÉµÄtype library,ÆäʵºÍTLBÎļþÊǶÔÓ¦µÄ¡£
ÎÒÃÇ¿ÉÒÔ¿´µ½ÉÏÒ»²½Éú³ÉµÄ¶ÔÏóÒ²º¬ÔÚÀïÃæ¡£
ÎÒ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ