DelphiÖÐʵÏÖ³ÌÐòµÄÑÓʱµÄ·½·¨
ÔÚDelphiÖУ¬Í¨³£¿ÉÒÔÓÃÒÔÏÂÈýÖÖ·½·¨À´ÊµÏÖ³ÌÐòµÄÑÓʱ£¬¼´TTtimer¿Ø¼þ£¬Sleepº¯Êý£¬GetTickCountº¯Êý¡£µ«ÊÇÆä¾«¶ÈÊǸ÷²»ÏàͬµÄ¡£
Ò»¡¢ÈýÖÖ·½·¨µÄ¼òµ¥½éÉÜ
1£©TTtimer¿Ø¼þ
¡¡¡¡TTtimer¿Ø¼þµÄʵÖÊÊǵ÷ÓÃWindows API¶¨Ê±º¯ÊýSetTimerºÍKillTimerÀ´ÊµÏֵ쬲¢¼ò»¯Á˶ÔWM_TIMER ÏûÏ¢µÄ´¦Àí¹ý³Ì¡£Í¨¹ýÉèÖÃOnTimerÊÂ
¼þºÍIntervalÊôÐÔ£¬ÎÒÃÇ¿ÉÒԺܷ½±ãµÄ²úÉúһЩ¼òµ¥µÄ¶¨Ê±Ê¼þ¡£
2£©Sleepº¯Êý
¡¡¡¡Sleepº¯ÊýÓÃÀ´Ê¹³ÌÐòµÄÖ´ÐÐÑÓʱ¸ø¶¨µÄʱ¼äÖµ¡£SleepµÄµ÷ÓÃÐÎʽΪSleep(milliseconds)£¬ÔÝÍ£µ±Ç°µÄ½ø³ÌmillisecondsºÁÃë¡£SleepµÄʵÏÖ
·½·¨ÆäʵҲÊǵ÷ÓÃWindows APIµÄSleepº¯Êý¡£ÀýÈ磺
sleep(1000); //ÑÓ³Ù1000ºÁÃë
Sleep»áÒýÆð³ÌÐòÍ£ÖÍ£¬Èç¹ûÄãÑÓ³ÙµÄʱ¼ä½Ï³¤µÄ»°£¬ÄãµÄ³ÌÐò½«²»Äܹ»ÏìÓ¦ÑÓʱÆÚ¼äµÄ·¢ÉúµÄÆäËûÏûÏ¢£¬ËùÒÔ³ÌÐò¿´ÆðÀ´ºÃÏñÔÝʱËÀ»ú¡£
3£©GetTickCountº¯Êý
¡¡¡¡ÔÚÖ÷³ÌÐòÖÐÑÓʱ£¬ÎªÁË´ïµ½ÑÓʱºÍÏìÓ¦ÏûÏ¢ÕâÁ½¸öÄ¿µÄ£¬GetTickCount()¹¹³ÉµÄÑ»·¾ÍÊÇÒ»ÖÖ¹ãΪÁ÷´«µÄ·½·¨¡£ÀýÈ磺
procedure Delay(MSecs: Longint);
//ÑÓʱº¯Êý£¬MSecsµ¥Î»ÎªºÁÃë(ǧ·ÖÖ®1Ãë)
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount();
repeat
Application.ProcessMessages;
Now := GetTickCount();
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
¶þ¡¢¸ß¾«¶ÈµÄ΢Ãî¼¶ÐÔÄܼÆÊýÆ÷£¨high-resolution performance counter£©½éÉÜ
¡¡¡¡ÎªÁ˱ȽÏÒÔÉÏ·½·¨µÄ¾«¶È£¬Ê×ÏÈÐèÒªÕÒµ½Ò»¸ö²Î¿¼µÄ¶¨Ê±Æ÷¡£ÔÚÕâÀÎÒÌṩÁËÁ½¸ö²Î¿¼µÄ¶¨Ê±Æ÷¡£Ò»ÊÇÓõ¥Æ¬»úÿ¸ô1.024ms²úÉúÒ»¸öʵʱ
ÖжÏRTI£¬×÷Ϊ¼ÆÊýÆ÷£»¶þÊÇÑ¡ÓÃÁËÒ»¸ö¸ß¾«¶ÈµÄ΢Ãî¼¶ÐÔÄܼÆÊýÆ÷£¨²Î¼û£º
http://msdn.microsoft.com/msdnmag/issues/04/03/HighResolutionTimer/default.aspx £¬»òÕß
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=200249
£©
1£©¼ÆÊýÆ÷µÄDelphiÔ´´úÂë
{
A high-precision counter/timer. Retrieves time differences
downto microsec.
Quick Reference:
Ïà¹ØÎĵµ£º
DELPHIÖвÙ×÷ACCESSÊý¾Ý¿â(½¨Á¢.mdbÎļþ,ѹËõÊý¾Ý¿â)
ÒÔÏ´úÂëÔÚWIN2K,D6,MDAC2.6ϲâÊÔͨ¹ý,
±àÒëºÃµÄ³ÌÐòÔÚWIN98µÚ¶þ°æÎÞACCESS»·¾³ÏÂÔËÐгɹ¦.
//ÉùÃ÷Á¬½Ó×Ö·û´®
Const
SConnectionString
= 'Provider=M ......
ȷʵºÜÓÐÓ㬵«ÊÇÕâ¸öÔõô°Ñ¿Õ¸ñҲĬÈÏΪ·Ö¸î·ûÁËÄØ£¬ËÖªµÀÔõÑù°Ñ¿Õ¸ñ²»ÈÏΪÊÇ·Ö¸î·ûµÄ£¿£¿ TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£ ³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£ ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º 1
ȷʵºÜÓÐÓ㬵«ÊÇÕâ¸öÔõô°Ñ¿Õ¸ñҲĬÈÏΪ·Ö¸î·ûÁËÄØ£¬ËÖªµÀÔõÑ ......
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
//ÓÃIE´ò¿ª
ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL);
//Óûðºü´ò¿ª
ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL);
//ÓÃĬÈÏä¯ÀÀÆ÷´ò¿ª
&nbs ......
Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......
ҪʵÏÖÕâÒ»¹¦ÄÜ£¬Ê×ÏÈÒªÓõ½ActiveX¿Ø¼þÖеÄTShockwaveFlash¿Ø¼þ¡£
Ê×ÏÈÈÃÎÒÃÇÀ´½«TShockwaveFlash¿Ø¼þ¼ÓÈëµ½DelphiµÄ×é¼þÃæ°åÖУ¨Ã»ÓÐ×°FlashµÄÅóÓÑ¿ÉÒÔ´ÓÍøÉÏÏÂÔØÒ»¸öFlash8.ocxÎļþÀ´½øÐа²×°£©
1.´ò¿ªDelphi£¨±¾ÈËÓõÄÊÇDelphi7.0£©µã»÷²Ëµ¥ÖеÄComponent->Import ActiveX Control...
2.ÔÚµ¯³öµÄ´°¿ÚÖеÄImport ......