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
Ïà¹ØÎĵµ£º
(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add ......
DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ
»ù±¾°²×°
1¡¢¶ÔÓÚµ¥¸ö¿Ø¼þ£¬Componet-->install component..-->PAS»òDCUÎļþ-->install;
2¡¢¶ÔÓÚ´ø*.dpkÎļþµÄ¿Ø¼þ°ü£¬File-->Open(ÏÂÀÁбí¿òÖÐÑ¡*.dpk)-->install¼´¿É£»
3¡¢¶ÔÓÚ´ø*.bplÎļþµÄ¿Ø¼þ°ü£¬Install Packages-->Add-->bplÎļþÃû¼´¿É£»
4¡¢Èç¹ ......
Anders Hejlsberg(°²µÂ˹-º£É²©¸ñ) ×øÔÚ×Ô¼ºµÄ°ì¹«ÊÒ£¬Ë«ÑÛÖ±Ö±µÄ¶¢×Åǰ·½¡£ËûÒª×öÒ»¸ö¾ö¶¨£¬¾ö¶¨×Ô¼ºÎ´À´µÄÃüÔ˺ÍÀíÏë¡£ÕâÊÇ1996ÄêÒ»¸öÆÕͨµÄÏÂÎ磬¼¸¸öСʱǰ£¬Ëû¸ÕÓë±È¶û-¸Ç´Ä½áÊøÁËÒ»´ÎÓä¿ìµÄÎç²Í£¬Í¬ÎªÈí¼þ½çµÄ¾«Ó¢£¬ËûÃÇÏà̸Éõ»¶£¬¸Ç´Ä¸øËû¿ª³öÈý°ÙÍòÒÔÉϵÄÄêнºÍÊýÍò¹ÉµÄ΢Èí¹ÉƱ¡£ÕâÊÇÒ»¸öÓÕÈË ......
Delphi×Ö·û´®º¯Êý´óÈ«
uses StrUtils;
¡¾×Ö·û´®º¯Êý´óÈ«¡¿
Êײ¿ function AnsiResemblesText(const AText, AOther: string): Boolean;
$[StrUtils.pas
¹¦ÄÜ ·µ»ØÁ½¸ö×Ö·û´®ÊÇ·ñÏàËÆ
  ......
//²ÉÓõݹ鷽·¨£¬D7±àÒëµ÷ÊÔͨ¹ý¡£
//Êý¾Ý²ÉÓÃADOQuery¶ÁÈ¡£¬²¢½«Êý¾ÝÔÝ´æÔÚÒ»¸ö¶¯Ì¬Êý×éÖУ¬Ê÷ÐÎÁÐ±í¿Ø¼þΪTreeView¡£
procedure TForm1.LoadTreeInfo;
type
TInfo = record
ID, //´úÂë
Name, //Ãû³Æ
&nb ......