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

Delphi¿Ø¼þ°²×°·½·¨

    ÓÉÓÚ×é¼þÌṩµÄ·½Ê½²»Í¬£¬ËùÒÔ°²×°µÄ·½·¨Ò²ÊDz»Ò»ÑùµÄ£¬ÏÂÃæ¾ÍĿǰ³£¼ûµÄ¸÷ÖÖÐÎʽµÄ×é¼þµÄ°²×°·½·¨½éÉÜһϡ£ 
    1  Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë×é¼þ¾Í²»ÄÜÔÙʹÓÃÁË£¬µ±È»ÓеÄ×÷Õ߸ø³öÁ˼¸ÖÖ°æ±¾µÄDCUÎļþ£¬Óû§¸ù¾ÝÐèҪѡÔñʹÓá£ÕâÑùµÄ×é¼þµÄ°²×°·½·¨ÊÇ£ºÔÚComponent²Ëµ¥ÖУ¬Ñ¡Ôñinstall component£¬ÔÚ¶Ô»°¿ò "into existing package"Ò³ÖУ¬µ¥»÷“Unit file name”ºóµÄ“Browse”°´Å¤£¬ÔÚ´ò¿ªµÄÎļþ¶Ô»°¿òÖУ¬½«“ÎļþÀàÐÍ”É趨Ϊ*.dcu£¬ÕÒµ½Òª°²×°µÄDCUÎļþ£¬°´OK°´Å¥·µ»Ø"into existing package"Ò³ºóÔÙ°´OK°´Å¥¾Í¿ÉÒÔ°²×°ÁË¡£×¢Ò⣬´ËʱDelphi»áÌáʾdclusr40.dpk½«±»Öؽ¨£¬ÊÇ·ñ¼ÌÐø£¬OK¾Í¿ÉÒÔÁË¡£ÕâÀïÊǽ«×é¼þ°²×°µ½dclusr40.dpk°üÖУ¬´Ë°ü´ÓÎļþÃûÉÏ¿ÉÒÔ¿´³öÊÇÓû§×Ô¶¨Òå×é¼þ°ü£¬ÏȰ²×°µ½Õâ¸ö°üÖаɣ¬ÏÂÃæÔÙ½²ÓйØ×¢ÒâÊÂÏî¡£°²×°Íê±Ï»áÓÐÒѾ­½«×é¼þ×¢²áÍêµÄÌáʾÐÅÏ¢ÒÔ¼°°²×°µ½Äĸö×é¼þÒ³ÖеÄÐÅÏ¢µÈ£¬µ½×é¼þÃæ°åÉÏ¿´¿´£¬Ò»°ã»á³öÏÖÒ»¸öеÄ×é¼þÒ³£¬ÆäÖÐÓиհ²×°µÄ×é¼þ¡£ 
    2¡¢ Ö»ÓÐPASÎļþ»ò¼ÈÓÐPASÓÖÓÐDCUÎļþµÄ×é¼þ¡£ÕâÖÖ×é¼þÒòΪÓÐPASÎļþ£¬Ò²¾ÍÊÇ˵×÷ÕßÌṩÁËÔ´Â룬Õâ¾ÍºÃ°ì¶àÁË¡£°²×°µÄ·½·¨ºÍÉÏÃæÊÇÒ»ÑùµÄ£¬ÔÚÎļþÀàÐÍÖпÉÒÔÉ趨ΪDCUÒ²¿ÉÒÔÉ趨ΪPAS£¬½¨ÒéÉ趨ΪPAS£¬ÕâÑù¿ÉÓÃÄãµÄDelphiÖØÐ±àÒëһϣ¬¿´ÊÇ·ñ»á³öÏÖÎÊÌâ¡£DelphiÉý¼¶ºóÖ»ÄÜÑ¡ÔñPASÎļþ°²×°£¬ÕâÑù²ÅÄÜÖØÐ±àÒ룬ʹµÃ×é¼þÄÜÊÊÓ¦ÐÂDelphi°æ±¾¡£ÕâÑùµÄ×é¼þÊǺÜÖµµÃʹÓõ쬏ù¾ÝÐÄÁåµÄ¾­Ñ飬ûÓÐÔ´ÂëµÄ×é¼þ×îºÃ²»ÒªÊ¹Óã¬Ò»ÊÇ´æÔÚDelphi°æ±¾Éý¼¶ºóÎÞ·¨Ê¹ÓõÄÎÊÌ⣬ÔÙÕßµ±³ÌÐò³öÏÖÎÊÌâºóÓû§ÎÞ·¨µ÷ÊÔ×é¼þÀ´ÅжÏÊÇ·ñÊÇ×é¼þÖдæÔÚBUG¡£ 
    3¡¢ÓÐdpkÎļþµÄ×é¼þ°ü¡£´øÓÐdpkÎļþµÄ×é¼þ°üÒ»°ãÊÇÓжà¸ö×é¼þ¹¹³ÉµÄ£¬Ò²¾ÍÊÇ˵°²×°ºó»áÓжà¸ö×é¼þ¹©Ê¹Óã¬Èç¹ûÖ»ÓÐÒ»¸ö×é¼þ×÷ÕßÒ»°ã²»»áÖÆ³ÉDPKÎļþ£¬Ê¹ÓÃÉÏÃæµÄ·½Ê½·¢²¼¾Í¿ÉÒÔÁË¡£¶ÔÓÚÕâÑùµÄ×é¼þ°ü£¬Ò»°ãÀ´Ëµ»áÓÐÏêϸµÄ°²×°ËµÃ÷Îļþ£¬ÈçÉÏÃæÌáµ½µÄRXLIB£¬ÓÉÓÚ×é¼þ¸´ÔÓÇÒ°²×°Ê±ÓÐÏȺó˳Ðò£¬×÷Õß²»Ìṩ°²×°ËµÃ÷Óû§¸ù±¾ÎÞ·¨ÕýÈ·°²×°¡£Èç¹ûûÓа²×°ËµÃ÷Îļþ£¬ÄÇôÓÃÏÂÃæµÄ·½·¨°²×°£ºÔ


Ïà¹ØÎĵµ£º

Êý×Öת»»´óдÈËÃñ±ÒµÄdelphiʵÏÖ

ÎÄÕÂÀ´Ô´£ºIT¹¤³ÌÐÅÏ¢Íø  http://www.systhinker.com/html/09/n-12309.html
֮ǰÓÃAccess×÷Ò»¸öÓ¦Ó㬵«ÕÒ²»µ½»õ±Òת»»³É´óдÈËÃñ±ÒµÄ¹¦ÄÜ£¨µ±È»¿ÉÒÔͨ¹ýexcel ת»»£¬µ«²»ÔÚÒ»¸öÓ¦ÓÃÉÏ£¬·ÅÆú£©¡£ÒÔΪ±È½Ï¼òµ¥£¬×Ô¼ºÊÔд£¬Ë­ÖªÓÃÁËÁ½¸öÍíÉÏ£¬²Å»ù±¾ÊµÏÖ£¬µ«Ã»ÓÐСÊýµã£¨Ôª£©ÒÔÏ»õ±ÒµÄת»»¡£Ò²Ã»ÓÐÕ×µÄÅжϡ£¶øÇÒ¶Ô×Ö· ......

Delphi to Excel һЩ·½·¨

Ò»)   ʹÓö¯Ì¬´´½¨µÄ·½·¨   
  
  Ê×ÏÈ´´½¨   Excel   ¶ÔÏó£¬Ê¹ÓÃComObj: 
  var   ExcelApp:   Variant; 
  ExcelApp   :=   CreateOleObject(   'Excel.Application'  ......

CSDN ѰÕÒ×îºóÒ»¸öDelphiϬÀû¸ç

°Ù¶ÈÖªµÀÕæÀ¬»ø£¬ÄÇô´óµÄÒ»¸öÆóÒµ£¬¾Í¸øÄÇôµã¿Õ¼ä£¬Ìá¸öÎÊ1500×ÖÏÞÖÆÁË¡£ÏëÏëÀ´csdn£¬¹ÒÁËÒ»¸öÐÇÆÚ¶¼Ã»ÈËÀí£¬²»ÖªµÀÊÇÎÒ·ÖÌ«ÉÙ£¬»¹ÊÇÕæµÄ¸ßÊÖ¶¼²»À´ÕâÀ£¿£¿ÆÚ´ýÒ»¸öÓ¢Ð۵ĵ½À´£¬²ËÄñÎÒÔÚÕâÀï°ÝлÁË£¡£¡ÆäʵÕâ¸ù±¾²»ÊÇÉúÃüÄÑÌ⣬ÎҲŸոÕѧ£¬Îʲ»³öÉúÃü¸ßÉîµÄÌâÄ¿À´£º
rT;
delphi7 ,DB:oracle
ÎÊÌâÔËÐй¤³ÌÎļþexe²» ......

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ÖÐÎļþ¿½±´·½·¨¼¯ºÏ

Ò»¡¢Ê¹ÓÃÎļþÁ÷µÄ·½·¨½øÐп½±´£¬µ±È»¡£Í¬ÑùµÄµÀÀí£¬ÄãÒ²¿ÉÒÔʹÓÃÄÚ´æÁ÷µÈ·½·¨½øÐÐÎļþµÄ¿½±´£¬Ô­ÀíÊÇÒ»ÑùµÄ¡£
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
 f1 := tfilestream.Create(sourcefilename, fmopenread);
 try
   f2 := tfilestream ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ