delphi ½Å±¾ÒýÇæ±È½Ï
TMS Scripter£ºÖ§³ÖPascalºÍVBScriptÁ½ÖÖÓï·¨¡£ÓŵãÊÇÎĵµÆëÈ«¡¢Àý×ÓÆëÈ«£¬½Å±¾¿ÉÖ±½ÓÖ§³ÖDLL£¬¹Ù·½»¹ÌṩÁ˷ḻµÄIDE Debug¹¤¾ß¡¢µ¥Ôªµ¼³öº¯Êý¹¤¾ßµÈ£¬È±µãÊDZàÒëÔËÐнÏÂý¡£for ¿ÕÑ»·1000Íò´Î£¬ÐèÒª10ÃëÖÓÒÔÉÏ¡£TMS ScripterÊÇÉÌÒµ¹²ÏíÈí¼þ¡£
FastScript£ºÓùýFastReport±¨±íµÄͬѧ¶¼ÖªµÀFastReportËٶȷdz£¿ì¡£for ¿ÕÑ»·1000Íò´Î£¬Ö»ºÄ·Ñ4ÖÁ5Ãë×óÓÒ¡£ÆäÖÐFastScriptÔÚ±¨±í¿É×ö°æ±¾ÅÅ°æ΢µ÷´¦Àí¡¢º¯Êý¼ÆËãµÈ¡£ÆäÓŵãÊÇËٶȺܿ졢ºÜÈÝÒ×д³ö½Å±¾µ¥ÔªµÄRTTI×é¼þ¡¢Ö§³Öpascal¡¢VBScript¡¢JS¡¢C ËÄÖÖÓï·¨£¬È±µãÊÇÎĵµºÍÀý×ӱȽÏÉÙ£¬Ä¬ÈϵĽű¾²»ÄÜÖ±½ÓÖ§³ÖDLL¡£FSÒ²ÊÇÉÌÒµ¹²ÏíÈí¼þ¡£
Remobjects PascalScript£¬¹ËÃû˼Ò壬ֻ֧³ÖpascalÓï·¨£¬Remobjects ³õÖÔÊÇÔÚDAÀïÌṩ×Ô¶¨ÒåµÄ½Å±¾´¦Àí¡£ÓŵãÊÇÃâ·ÑÈí¼þ£¬½Å±¾Ö±½ÓÖ§³ÖDLL ¡£È±µãÊÇÎĵµ²»¶à¡£ËٶȱÈTMS Scripter ÉÔ¿ì¡£
PaxScripterÊÇ×ÛºÏÐÔÄÜ×îºÃµÄ½Å±¾½âÊÍÆ÷¡£ÆäÓŵãÊÇËÙ¶È×î¿ì£¬for ¿ÕÑ»·1000Íò´Î£¬Ö»ºÄ·Ñ1ÖÁ2Ãë×óÓÒ¡£ÎĵµºÍÀý×ӱȽÏÆëÈ«£¬Óе¼³öº¯Êý¹¤¾ß¡£½Å±¾ÀïÖ±½ÓÖ§³ÖDLL¡£Ö§³Öpascal¡¢VBScript¡¢JS¡¢C ËÄÖÖÓï·¨¡£È±µãÊÇ£¬×÷Õß05ÄêÖÁ½ñÉÐδ¸üа汾¡£×÷ÕßÐËȤÒѾ²»Ôڽű¾½âÊÍÆ÷£¬×¨ÃÅÑо¿.NetºÍpascal±àÒëÆ÷¡£Òò´Ë£¬PaxScripterÖÁ½ñÉв»ÄÜÖ§³ÖD2009¡£PaxScripterÊÇÉÌÒµÈí¼þ¡£Èç¹ûÖ»ÏëÖ§³ÖpascalÓï·¨¼´¿É£¬¿ÉÓÃ×÷ÕßµÄpascal±àÒëÆ÷´úÌæPaxScripter£¬ËٶȸüÊDZÈPaxScripter»¹Òª¿ì¡£
Ïà¹ØÎĵµ£º
Óйؿª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆÈ¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøͬÐУ¨ÄîXing£©ÕßÌṩһЩ
½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
&n ......
Îҵİ취£¬Ôö¼ÓÒ»¸ötimer ÉèÖüä¸ô100ms£¬Í¨¹ýtimerµÄʹÄÜ·ñ£¬¿ØÖƱ¨¾¯ÉùÒô¿ª¹Ø
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
ÔÚ¿ª½²Ö®Ç°£¬Ê×ÏÈ£¬ÎÒ¼ÙÉèÄãÁ˽âʲôÊÇÃæÏò¶ÔÏó£¬Ê²Ã´ÊÇÀà¡£Èç¹û²»Á˽âµÄ»°£¬½¨ÒéÏÈÈ¥Á˽âÒ»ÏÂÏà¹Ø֪ʶ£¡
ÔÚDelphiÖУ¬×é¼þ£¬ÎÒÃÇ¿ÉÒÔ½«ËüÀí½âΪһ¸ö¸öµÄ·â×°ºÃÁ˵ŦÄܶÔÏó¿â£¬Ê¹ÓÃÕâ¸ö¿â£¬¾ÍÖ»Óüòµ¥µÄ¼¸¾ä´úÂ룬ÉõÖÁ½ö½ö¼òµ¥µÄÉèÖü¸¸öÊôÐÔ¾ÍÄÜʵÏÖijЩ
¹¦ÄÜ£¬ÎÒÃÇ¿ÉÒÔ½«×é¼þÏëÏó³ÉÈÕ³£Éú»îÖÐʹÓõÄijЩ ......
Ïà¶ÔÓõÚÈý·½¿Ø¼þ£¬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'+'< ......
Windows ÏÂÒ»¸öµäÐ͵ÄÌØÕ÷¾ÍÊǶàÈÎÎñ£¬ÎÒÃÇ¿ÉÒÔͬʱ´ò¿ª¶à¸ö´°¿Ú½øÐвÙ×÷£¬Ò²¿ÉÒÔͬʱÔËÐгÌÐòµÄ¶à¸öʵÀý£¬±ÈÈç¿ÉÒÔ´ò¿ªÐí¶à¸ö×ÊÔ´¹ÜÀíÆ÷½øÐÐÎļþµÄÒƶ¯¸´ÖƲÙ×÷¡£µ«ÓÐʱ³öÓÚijÖÖ¿¼ÂÇ£¨±ÈÈ簲ȫÐÔ£©£¬ÎÒÃÇÒª×ö³öһЩÏÞÖÆ£¬ÈóÌÐòÖ»Äܹ»ÔËÐÐÒ»¸öʵÀý¡£ÔÚDelphi±à³ÌÖУ¬±ÊÕß×ܽá³öÁËÒÔϼ¸ÖÖ·½·¨£º
¡¡¡¡Ò»¡¢ ²éÕÒ´°¿Ú·¨
¡¡¡ ......