DelPhiÏÂÓÃCDO·¢ËÍÓÊÏäʵÀý
Ïà¶ÔÓõÚÈý·½¿Ø¼þ£¬CDO·¢ËÍÓʼþ»¹ÊǺܼò½à·½±ãµÄ
×¢£ºCDONTSΪCDOµÄ×Ó¼¯£¬½öÖ§³ÖWinNT/Win2K£¬WinXPÒÔÉÏÇëÓÃCDO;
µ¥ÔªÒýÓÃComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
vCDOMessage:=CreateOleObject('CDO.Message');
vcdomessage.from:='MR.F'+'<XXXX@163.com>'; //¼ÓºÅÇ°ÃæΪ·¢¼þÈËÏÔʾÃû³Æ£¬¼ÓºÅºóÃæΪ·¢¼þÈËÓÊÏ䣻
vcdomessage.to:='XXXX@qq.com'; //ÊÕÐÅÈ˵ÄÓÊÏä
vcdomessage.Subject:='²âÊÔ';
vcdomessage.TextBody:='·¢Ëͳɹ¦';
vcdomessage.addAttachment('XXXX'); //¸½¼þ£¬ÒýºÅÄÚΪ¸½¼þ·¾¶Ãû
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/sendusing'):=2;
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/smtpserver'):='smtp.163.com'; //ÐÞ¸ÄÏàÓ¦·¢ËÍÓÊÏäµÄsmtp
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/smtpserverport'):=25;
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate'):=1;
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/sendusername'):='XXXX';//·¢ÐÅÓÊÏäµÄÓû§Ãû
vcdomessage.Configuration.Fields.item('http://schemas.microsoft.com/cdo/configuration/sendpassword'):='XXXX';//·¢ÐÅÓÊÏäµÄÃÜÂë
vcdomessage.Configuration.Fields.update;
VCDOmessage.send;
end;
Ïà¹ØÎĵµ£º
ÔÚWIN32ÖеĴ®¿ÚͨѶ£¨Delphi£©
ÓÉÔÚWIN32²Ù×÷ϵͳÖнûÖ¹Ó¦ÓóÌÐòÏóDOSÖÐÄÇÑùÖ±½Ó·ÃÎʼÆËã»úÓ²¼þ£¬Òò´Ë£¬ÎÞ·¨ÏóÒÔÇ°ÄÇÑù²ÉÓÃÖж϶Áд´®¿Ú¡£µ«ÊÇÔÚWIN32ÖÐÎÒÃÇ¿É·¢²ÉÓÃÁ½ÖÖ·½·¨·ÃÎÊ´®¿Ú£º1¡¢Ê¹ÓÃVBÖеÄMSCOMM´®¿Ú¿Ø¼þ£»2¡¢²ÉÓÃAPIº¯Êý£¬±¾ÎÄÖ÷Òª½éÉܲÉÓÃAPIº¯ÊýʵÏÖ´®¿ÚͨѶ¡£
ÓÉÓÚWM_COMMNOTIFYÏûÏ¢Òѱ»È¡Ïû£¬¹Ê±¾ÎÄ×Ô¶ ......
Ŀ¼
===============================================================================
¡Ñ RTTI ¼ò½é
¡Ñ Àà(class) ºÍ VMT µÄ¹Øϵ
¡Ñ Àà(class)¡¢ÀàµÄÀà(class of class)¡¢Àà±äÁ¿(class variable) µÄ¹Øϵ
¡Ñ TObject.ClassType ºÍ TObject.ClassInfo
¡Ñ is ºÍ as ÔËËã·ûµÄÔÀí
¡Ñ TTypeInfo – RTTI ÐÅÏ¢µÄ½ ......
¹ØÓÚÊéÇ©(BookMark)²Ù×÷£»
ÊéÇ©²Ù×÷Ö÷ÒªÓÃÓÚÔÚ±íÖпìËٵض¨Î»¼Ç¼ָÕ룬ÔÚÓ¦ÓóÌÐòÖг£³£Òª±£´æ¼Ç¼ָÕëËùÔÚµÄλÖã¬ÔÚ½øÐÐÆäËû´¦ÀíÖ®ºó£¬Ï£ÍûÄÜ¿ìËٵطµ»Øµ½ÏÈÇ°Ö¸ÕëËùÔÚµÄλÖ㬴Ëʱ£¬Ê¹ÓÃÊéÇ©½«ÏÔµÃÌرðÓÐÓá£ÓйØÊéÇ©²Ù×÷£¬DelphiÌṩÁËÈý¸ö·½·¨£¬ËüÃÇÊÇ£º
¡ñ&n ......
×î½üÔÚµ÷ÊÔ´úÂë,·¢ÏÖÒ»¸öÎÊÌâ.Ó¦¸ÃËãÊÇbug°É. ºÇ,Èç¹û²»Ëãbug,ÄǾÍÊÇÎÒ¶ÔÆäʵÏÖÔÀíµÄÎó½â.
Èç¹û°Ñ·µ»Ø²ÎÊýResult×÷ΪÁíÒ»º¯ÊýµÄÊäÈë²ÎÊý,resultµÄ³õÖµÊDz»È·¶¨...
function fun(str:string):string;
begin
fun2(result);
end; ......
½ÌÄãÓÃdelphiдµ¯´°¹ã¸æ²å¼þ
2009Äê12ÔÂ25ÈÕ ÐÇÆÚÎå 00:45
½ÌÄãÓÃdelphiдµ¯´°¹ã¸æ²å¼þ
Òý×Ó
Ä¿Ç°Ô½À´Ô½¶àµÄ¹ã¸æ²å¼þÔÚÎÒÃǵçÄÔÉÏÔú¸ùפµØ£¬Ê±²»Ê±µØµ¯³öÁîÈËÌÖÑáµÄ¹ã¸æ£¬²¢ÇÒÿµ±ÎÒÃÇ¿ª»úµÄʱºò¶¼»áµ¯³öÀ´£¬¸ãµÄºÜ¶àС²ËÖ»ÄÜÖØװϵͳ£¬
À´½â¾öÕâÁíÈËÌÖÑáµÄ¹ã¸æ£¡Ó°ÏìÎÒÃÇÉÏÍøÁÄÌ죬ÍæÓÎÏ·£¬¹¤×÷µÈµÈ……º ......