Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 ) תÌù

ExtractFileDrive £º·µ»ØÍêÕûÎļþÃûÖеÄÇý¶¯Æ÷£¬Èç"C:"
ExtractFilePath£º·µ»ØÍêÕûÎļþÃûÖеÄ·¾¶£¬×îºó´ø“/”£¬Èç"C:\test\"
ExtractFileDir£º·µ»ØÍêÕûÎļþÃûÖеÄ·¾¶£¬×îºó²»´ø“/” ,Èç"C:\test"
ExtractFileName:·µ»ØÍêÕûÎļþÃûÖеÄÎļþÃû³Æ (´øÀ©Õ¹Ãû)£¬Èç"mytest.doc"
ExtractFileExt ·µ»ØÍ ......

DELPHIÖвÙ×÷ACCESSÊý¾Ý¿â

DELPHIÖвÙ×÷ACCESSÊý¾Ý¿â(½¨Á¢.mdbÎļþ,ѹËõÊý¾Ý¿â)

ÒÔÏ´úÂëÔÚWIN2K,D6,MDAC2.6ϲâÊÔͨ¹ý,

±àÒëºÃµÄ³ÌÐòÔÚWIN98µÚ¶þ°æÎÞACCESS»·¾³ÏÂÔËÐгɹ¦.







//ÉùÃ÷Á¬½Ó×Ö·û´®

Const

SConnectionString      
= 'Provider=M ......

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ

¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ¹ý³Ìµ÷ÓÃͨ¹ý¸Ã¶ÔÏó ʵÀý·ÃÎÊÊý¾Ý¿â¡£
ÐèÒªÃ÷ȷһЩ»ù±¾¸ÅÄî¡£¶ÔÓ ......

Delphi callµ÷ÓÃÀý×Ó

ÔÚȺÀï¿´µ½ÓÐÈË·¢Á˸ö±ðÈË·¢¸øËûµÄ
ÎÒ¿´ÁËдµÄ±È½ÏÉú¶¯ ÔÚÕâת¸ø´ó¼Ò¿´¿´
ºÃµÄ ʰȡÎïÌ庯ÊýдºÃÁË Ï²½ÊÇÈçºÎ½«´úÂë×¢Èëµ½ÓÎÏ·½ø³ÌÖÐÖ´ÐÐ??
1) С͵¿ªÃÅ
PHND:= OpenProcess (PROCESS_ALL_ACCESS, False, PID);µÃµ½ÓÎÏ·´°¿Ú¾ä±ú»ñµÃȨÏÞ
2)С͵ÔÚ·¿¼ä¸ã¸ö·Å×÷°¸·½°¸µÄµØ·½
TAdd := VirtualAllocEx(PHND, nil, 4096, ......

Delphi²Ù×÷XML

  Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
     1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ