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

DelphiµÄTThreadÀà

 DelphiµÄTThreadÀà
http://bigpower.blog.51cto.com/209892/89525
ÎÒÃdz£Óй¤×÷Ï̺߳ÍÖ÷Ïß³ÌÖ®·Ö£¬¹¤×÷Ï̸߳ºÔð×÷һЩºǫ́²Ù×÷£¬±ÈÈç½ÓÊÕÓʼþ£»Ö÷Ï̸߳ºÔð½çÃæÉϵÄһЩÏÔʾ¡£¹¤×÷Ï̵߳ĺô¦ÔÚijЩʱºòÊDz»ÑÔ¶øÓ÷µÄ£¬ÄãµÄÖ÷½çÃæ¿ÉÒÔÏìÓ¦ÈκβÙ×÷£¬¶ø±³ºóµÄÏß³ÌÈ´ÔÚĬĬµØ¹¤×÷¡£
VCLÖУ¬¹¤×÷Ïß³ÌÖ´ÐÐÔÚExecute·½·¨ÖУ¬Äã±ØÐë´ÓTThread¼Ì³ÐÒ»¸öÀಢ¸²¸ÇExecute·½·¨£¬ÔÚÕâ¸ö·½·¨ÖУ¬ËùÓдúÂ붼ÊÇÔÚÁíÒ»¸öÏß³ÌÖÐÖ´Ðеģ¬³ý´ËÖ®Í⣬ÄãµÄÏß³ÌÀàµÄÆäËû·½·¨¶¼ÔÚÖ÷Ïß³ÌÖ´ÐУ¬°üÀ¨¹¹Ôì·½·¨£¬Îö¹¹·½·¨£¬ResumeµÈ£¬ºÜ¶àÈ˳£³£ºöÂÔÁËÕâÒ»µã¡£
×î¼òµ¥µÄÒ»¸öÏß³ÌÀàÈçÏ£º
TMyThread = class(TThread)
protected 
   procedure Execute; override; 
end; 
ÔÚExecuteÖеĴúÂ룬ÓÐÒ»¸ö¼¼ÊõÒªµã£¬Èç¹ûÄãµÄ´úÂëÖ´ÐÐʱ¼äºÜ¶Ì£¬ÏñÕâÑù£¬Sleep(1000)£¬ÄÇûÓйØϵ£»Èç¹ûÊÇÕâÑùSleep (10000)£¬10Ã룬ÄÇôÄã¾Í²»ÄÜÖ±½ÓÕâÑùдÁË£¬Ðë°ÑÕâ10Ãë²ð·Ö³É10¸ö1Ã룬ȻºóÅжÏTerminatedÊôÐÔ£¬ÏñÏÂÃæÕâÑù£º 
procedure TMyThread.Execute; 
var
    i: Integer; 
begin 
   for i := 0 to 9 do 
     if not Terminated then 
       Sleep(1000) 
     else
        Break;
end;
ÕâÑùдÓÐʲôºÃ´¦ÄØ£¬ÏëÏëÄãÒª¹Ø±Õ³ÌÐò£¬ÔڹرյÄʱºòµ÷ÓÃMyThread.Free£¬Õâ¸öʱºòÏ̲߳¢Ã»ÓÐÂíÉϽáÊø£¬Ëüµ÷ÓÃWaitFor£¬µÈ´ý ExecuteÖ´ÐÐÍêºó²ÅÄÜÊÍ·Å¡£ÄãµÄ³ÌÐò¾Í±ØÐëµÈ10ÃëÒÔºó²ÅÄܹرգ¬ÊܵÃÁËÂð¡£Èç¹ûÏñÉÏÃæÄÇÑùд£¬ÔÚ³ÌÐò¹Ø±Õʱ£¬µ÷ÓÃFreeÖ®ºó£¬Ëü¶¥¶àÔÙµÈÒ»Ãë¾Í»á¹Ø±Õ¡£ÎªÊ²Ã´£¿´ð°¸µÃÈ¥Ïß³ÌÀàµÄDestroyÖÐÕÒ£¬Ëü»áÏȵ÷ÓÃTerminate·½·¨£¬ÔÚÕâ¸ö·½·¨ÀïÃæËü°ÑTerminatedÉèΪTrue£¨½ö´Ë¶øÒÑ£¬ºÜ¶àÈËÒÔΪÊǽáÊøỊ̈߳¬Æäʵ²»ÊÇ£©¡£Çë¼ÇסÕâÒ»ÇÐÊÇÔÚÖ÷Ïß³ÌÖвÙ×÷µÄ£¬ËùÒÔºÍExecuteÊDz¢ÐÐÖ´Ðеġ£¼ÈÈ»TerminatedÊôÐÔÒÑΪ Ture£¬ÄÇôÔÚExecuteÖÐÅжÏÖ®ºó£¬µ±È»¾ÍBreakÁË£¬ExecuteÖ´ÐÐÍê±Ï£¬Ïß³ÌÀàÒ²Õý³£ÊÍ·Å¡£ 
»òÕßÓÐÈË˵£¬TThread¿ÉÒÔÉèFreeOnTerminateÊôÐÔΪTrue£¬Ïß³ÌÀà¾ÍÄÜ×Ô¶¯ÊÍ·Å¡£³ý·ÇÄãµÄÏß³ÌÖ´ÐеÄÈÎÎñºÜ¼òµ¥£¬²»È»£¬»¹ÊDz»ÒªÈ¥Àí»áÕâ¸öÊôÐÔ£¬Ò»ÇÐÓÉÄãÀ´²Ù×÷£¬²ÅÄÜʹÏ̸߳üÁé»îÇ¿´ó¡£
½ÓÏÂÀ´µÄÎÊÌâÊÇÈçºÎʹ¹¤×÷Ï̺߳ÍÖ÷Ï̺߳ܺõÄͨÐÅ£¬ºÜ¶àʱºòÖ÷Ïß³Ì


Ïà¹ØÎĵµ£º

DelphiͼÏñ´¦Àí

Ç°ÑÔ
    ¾¡ÈýÄêÀ´£¬±¾È˽ÐøдÁËÁùÊ®¶àƪBOLOÎÄÕ£¬ÆäÖоø´ó²¿·ÖÊÇÓйØͼÏñ´¦ÀíµÄ£¬Òò´Ë£¬ÓÐÈËÏ·³ÆÎÒΪͼÏñ´¦Àíר¼Ò£¨»òGDI+ר¼Ò£©£¬´ËÏ·³Æµ±È»ÊǶÔÎÒµÄÔÞÑµ«ÎÒ×Ô¼ºÈ´¾õµÃÂÔº¬Ò»Ë¿Ë¿±áÒ壬¼´³ýÁËͼÏñ´¦Àí£¬±ðµÄ·½Ã棨ÈçÍøÂç¡¢Êý¾Ý¿âµÈ£©¶¼²»Õ¦µÄ£¬ÊÂʵҲȷʵÈç´Ë¡£
    ÎÒÊÇÒ»Ãû»ú¹Ø¹¤ ......

DelphiͼÏñ´¦Àí

±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/maozefa/archive/2009/10/28/4737584.aspx
ͼÏñËõ·ÅÊÇ×î³£ÓõÄͼÏñ´¦Àí£¬ÔÚͼÏñÀ­ÉìºÍÈ¡µÃͼÏñÂÔͼÖж¼ÒªÓõ½¡£Í¼ÏñËõ·ÅÖÊÁ¿µÄºÃ»µÓëͼÏñÏñËزåÖµ·½Ê½Óйأ¬±¾ÎĶ¨ÒåÁ˳£ÓõÄ3ÖÖ²åÖµ·½Ê½£¬¼´ÁÙ½ü²åÖµ¡¢ÏßÐÔ²åÖµºÍË«Á¢·½²åÖµ·½Ê½£º
view plaincopy to clipboardpr ......

¸øDelphi¿Ø¼þÉèÒ»¸öͼ±ê

·½·¨Ò»£º
¿Ø¼þÀà½Ð×ö   TABC,ÎļþÃû½Ð abc.pas ÄÇôн¨Á¢Ò»¸öÎļþ½Ð
abc.rc
ÀïÃæÄÚÈÝÊÇ
TABC Bitmap icon.bmp
icon.bmp ¾ÍÊÇͼƬÎļþÃû£¬²»Òª³¬¹ý256É«£¬24x24
È»ºóÔÚÃüÁîÐÐÏÂÖ´ÐÐ brcc32 abc.rc¾Í»áÉú³É abc.res
¸ÄÃûΪ abc.dcr
´ò¿ªÄã¿Ø¼þµÄ dpkÎļþ£¬ ¼ÓÉÏ {$R ABC.DCR}
ÖØбàÒë¾Í¿ÉÒÔÁË¡£
±ã½Ý·½ ......

delphi Ïòwebbrowser´ò¿ªµÄÍøÒ³ÖвåÈëjsÃüÁî

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls,MSHTML;
type
TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
&nb ......

DelphiͼÏñ´¦Àí

    CSDNÂÛ̳ÖУ¬¾­³£¿´µ½ÓйؽØÆÁµÄÌù¡£Ëùν½ØÆÁ£¬Ö¸µÄÊÇ»ñÈ¡ÆÁÄ»£¬»òÕßÆÁÄ»ÉÏij¸ö´°¿ÚÉϵÄÐÅÏ¢£¬²¢½«Æäת»»ÎªÍ¼ÏñµÄ²Ù×÷¡£Îª´Ë£¬Ò²Ð´Á˼¸¸öWindowsϵē½ØÆÁ”º¯Êý£º
¹ý³Ì¶¨Ò壺
// »ñÈ¡CanvasÓÐЧÇøÓòÄÚµÄͼÏñÊý¾Ý¡£±ØÐëÓÃFreeImageDataÊÍ·ÅÊý¾Ý½á¹¹
// Ó¦µ÷ÓÃImageEmpty¼ì²é·µ»ØÊý¾Ý½ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ