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»¹Òª¿ì¡£
Ïà¹ØÎĵµ£º
Delphi UÅ̲åÈ벦³ö¼ì²â£º
1¡¢Ð½¨¹¤³Ì£»
2¡¢ÔÚform1ÉÏ·ÅÒ»¸öLabel£»
3¡¢¶¨ÒåÒ»¸ö˽Óйý³Ì
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
ÍêÕû´úÂëÈçÏ£º
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics ......
Îҵİ취£¬Ôö¼ÓÒ»¸ö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ÊÇ·ñÖ§³ÖC++/JavaÖеľ²Ì¬±äÁ¿¼°¾²Ì¬·½·¨µÄ¹¦ÄܶøÀ§ÈÅ,ÆäʵÕâÔÚDelphiÖÐÊǺܼòµ¥µÄ.
¾²Ì¬·½·¨¾ÍÊÇʹÓÃClass Function. ¾²Ì¬±äÁ¿ÔòʹÓõ¥Ôª¾Ö²¿±äÁ¿À´ÊµÏÖ. ´úÂëÈçÏÂ:
//=========================================
// StaticVarTestU - ¶¨ÒåÁË¿ÉÒÔ¼ÆÊýµÄÀ࣬ͨ¹ýÀà·½·¨¼´¿É·ÃÎÊ´ËÀàµÄ¶ÔÏóÊý ......
ÔÚDelphi×Ô´øµÄIndy¿Ø¼þÖÐÆäʵÊÇÌṩÁËMD2,MD4,MD5¶ÔÏóµÄ£¬ÎÒÃÇ¿ÉÒÔÖ±½ÓʹÓÃËüÃÇÀ´Íê³ÉMD5µÄÇ©ÃûËã·¨¡£¶ø²»ÐèÒªÔÙÈ¥ÕÒÆäËüµÄ
DLL»òÊÇPasÁË¡£
ÔÚUsesµ¥ÔªÖÐÒýÓà IdHashMessageDigest,IdGlobal, IdHash µ¥Ôª£¬ÔÙдÈçÏ´úÂë¼´¿ÉÒÔ´ïµ½MD5µÄʵÏÖ¡£
ʾÀý´úÂë
procedure TForm1.Button1Click(Sen ......
µÚÒ»ÖÖ·½·¨£º
µÚÒ»²½£º ÐÞ¸ÄÊôÐÔ
1¡¢kind -> dtktime Ò²¿ÉÒÔÊÇdtkdate µ«ÊÇÔÚÓÃdtkdateµÄʱºòÐèÒª½«datemodeÊôÐÔÐ޸ijÉdmUpDown
2¡¢parseinput -> true
µÚ¶þ²½£ºÔÚonUserInputʼþÖÐдһ¾ä´úÂë
DateTimePicker1.DateTime:=DateAndTime;
×¢£ºÒÔÉÏ·½·¨ËäÈ»¿ÉÒԴﵽĿµÄ£¬µ ......