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

DelphiʵÏÖµÄMIMEÓʼþ¸ñʽ½âÎöÀà¿â

Ñо¿ÁËÒ»ÏÂPop3µÄÓʼþ½ÓÊÕЭÒ飬ȻºóËæÊÖдÁËÒ»¸öPop3µÄÓʼþ½ÓÊտؼþ£¡Pop3µÄÓʼþЭÒéʵ¼ÊÉÏÊǺܼòµ¥µÄ£¬ÖªµÀÄǼ¸¸öÃüÁî¾ÍÐÐÁË£¬Óë·þÎñÆ÷Ö®¼ä
µÄ½»»¥ÊÇÒ»ÎÊÒ»´ðµÃ·½Ê½£¬¿ØÖÆÆðÀ´Ò²ÈÝÒ×£¬Ïà¶Ô¶øÑÔÓʼþ¸ñʽµÄ½âÎöµ¹ÊǸü¼ÓÂé·³Ò»µã£¡ÓÚÊÇÒ²±ã˳´ø×Ž«MIMEÓʼþ¸ñʽ¸øÊìϤÁËһϣ¡×ܹé˵À´£¬¹æÂÉÐÔ±È
½ÏÇ¿£¬ÏÈ»ñÈ¡×î´óµÄ¶¥²ã¿ò¼Ü£¬È»ºó¸ù¾Ý¶¥²ã¿ò¼ÜÀ´ÅжÏÊÇ·ñÓл¹ÓÐ×Ó¿ò¼Ü£¬ÒÀ´Î¸ù¾Ý¸ø¶¨µÄ¼ä¸ô·ûºÅµü´úÏÂÀ´£¡¿´¿´ÀàÉè¼Æ£¡Ê×ÏÈÒ»¸öMIMEÊÇÒªÓÐÒ»¸öÓʼþ
Í·£¡ËùÒÔÕâ¸öÀàÊDZØÈ»µÄ£¡
ʵÏÖÁËÓʼþÍ·ÀàTDxMIMEHeader
£¬È»ºóÔÙ¿´Óʼþ¸ñʽ£¬¾ÍÊÇÊý¾Ý²¿·ÖÁË£¬Êý¾Ý²¿·Ö¾ÍÉæ¼°µ½Ç°ÃæËµµÄ¿ò¼ÜÎÊÌ⣬ÓÐMulpart/mixedµÈÕâÑùµÄ»¹ÓÐ×Ó¿ò¼ÜµÄ½á¹¹£¬Ò²Óе¥´¿µÄtext
/plainÕâÑùµÄ´¿Îı¾½á¹¹£¬¾ßÌåµÄÐÅÏ¢¶¼ÔÚÓʼþ¸ñʽµÄÍ·²¿ÓÐ˵Ã÷
£¬ÓÚÊǽ«Êý¾ÝPartÉè¼Æ³ÉÁËÒ»¸ö¼Ì³Ðģʽ£¬TDxMIMEPart×÷ΪÊý¾ÝPartµÄ»ùÀ࣬ȻºóMulpart/mixed£¬text/plainµÈÕâ
ÑùµÄ¸÷¸öÄ£¿é²¿·Ö¶¼´Ó¸ÃÀà¼Ì³Ð£¬Mulpart/mixedµÈÊÇÓÐÄÚ²¿Êý¾ÝÄ£¿éµÄ£¬ËùÒÔÕâ¸öÁíÍâ¼Ì³ÐÒ»¸ö¶àÊý¾ÝÄ£¿é»ùÀàTDxMimeMulPart£¬È»
ºóÖ»Òªº¬Óжà¸öÊý¾ÝÄ£¿éµÄÄ£¿é¶¼´ÓÕâ¸öÀà¼Ì³ÐȥʵÏÖ£¬³ý´ËÖ®Í⣬»¹ÐèÒªÒ»¸ö¸½¼þµÈÁ÷ʽÊý¾ÝµÄÁ÷Ä£¿éµÄ½âÎöÀàTDxMIMEStreamPart£¬±¾ÀàÖ÷Òª
Êǽ«¸½¼þµÈÐÅÏ¢»¹Ô­³öÀ´£¡´óÖÂÐÅÏ¢Èç´Ë£¬ÆäʵӦ¸Ã¸øÄ£¿éÀ໹ҪÉèÖÃÒ»¸öÄ£¿éÍ·µÄÀàµÄ£¬ÒòΪֻÊÇÑо¿Ò²¾ÍÖ±½ÓдÔÚÀïÃæÁË£¡´óÖ´úÂë¿éÈçÏ£º
´úÂë
(*
****************************************************
*)
(*
                µÃÏй¤×÷ÊÒ                          
*)
(*
              Óʼþ¸ñʽ½âÎöµ¥Ôª                      
*)
(*
                                             &nbs


Ïà¹ØÎĵµ£º

delphi²Ù×÷excel

(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add ......

DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ


DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ
 
»ù±¾°²×°
1¡¢¶ÔÓÚµ¥¸ö¿Ø¼þ£¬Componet-->install component..-->PAS»òDCUÎļþ-->install;
2¡¢¶ÔÓÚ´ø*.dpkÎļþµÄ¿Ø¼þ°ü£¬File-->Open(ÏÂÀ­Áбí¿òÖÐÑ¡*.dpk)-->install¼´¿É£»
3¡¢¶ÔÓÚ´ø*.bplÎļþµÄ¿Ø¼þ°ü£¬Install Packages-->Add-->bplÎļþÃû¼´¿É£»
4¡¢Èç¹ ......

DelphiÓëC#Ö®¸¸£º¼¼ÊõÀíÏë¼Ü¹¹¿ª·¢´«Ææ

    Anders Hejlsberg(°²µÂ˹-º£É­²©¸ñ) ×øÔÚ×Ô¼ºµÄ°ì¹«ÊÒ£¬Ë«ÑÛÖ±Ö±µÄ¶¢×Åǰ·½¡£ËûÒª×öÒ»¸ö¾ö¶¨£¬¾ö¶¨×Ô¼ºÎ´À´µÄÃüÔ˺ÍÀíÏë¡£ÕâÊÇ1996ÄêÒ»¸öÆÕͨµÄÏÂÎ磬¼¸¸öСʱǰ£¬Ëû¸ÕÓë±È¶û-¸Ç´Ä½áÊøÁËÒ»´ÎÓä¿ìµÄÎç²Í£¬Í¬ÎªÈí¼þ½çµÄ¾«Ó¢£¬ËûÃÇÏà̸Éõ»¶£¬¸Ç´Ä¸øËû¿ª³öÈý°ÙÍòÒÔÉϵÄÄêнºÍÊýÍò¹ÉµÄ΢Èí¹ÉƱ¡£ÕâÊÇÒ»¸öÓÕÈË ......

Delphi×Ö·û´®º¯Êý´óÈ«

Delphi×Ö·û´®º¯Êý´óÈ«
uses StrUtils;
¡¾×Ö·û´®º¯Êý´óÈ«¡¿
      Êײ¿ function AnsiResemblesText(const AText, AOther: string): Boolean;
      $[StrUtils.pas
      ¹¦ÄÜ ·µ»ØÁ½¸ö×Ö·û´®ÊÇ·ñÏàËÆ
      ......

DelphiµÝ¹é¼ÓÔØÊ÷ÐΣ¨TreeView£©Áбí

//²ÉÓõݹ鷽·¨£¬D7±àÒëµ÷ÊÔͨ¹ý¡£
//Êý¾Ý²ÉÓÃADOQuery¶ÁÈ¡£¬²¢½«Êý¾ÝÔÝ´æÔÚÒ»¸ö¶¯Ì¬Êý×éÖУ¬Ê÷ÐÎÁÐ±í¿Ø¼þΪTreeView¡£
procedure TForm1.LoadTreeInfo;
type
  TInfo = record
    ID,      //´úÂë      
    Name,    //Ãû³Æ
  &nb ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ