delphi createthread´íÎó
function ProBar : boolean;
begin
...
end;
--------------------------
var
ThreadId : DWORD;
var
ThreadHandle : THandle;
begin
ThreadHandle := CreateThread(nil, 0, @ProBar, nil, 0, ThreadID);
--------------------------
Delphi6ÏÔʾVariable required,¹â±êÍ£ÔÚµÚÈý¸ö²ÎÊýºó¡£
º¯ÊýProBarÔÚÆäËûµÄ·½·¨Öе÷Óö¼Ã»ÎÊÌâ¡£
лл£¡£¡£¡
µÚÈý¸ö²ÎÊý£¬Èç¹ûÓÃ@ProBar¸ÄΪ@Self¾Í¿ÉÒÔ±àÒëOK,µ«Êǵ÷ÓÃÕâ¸ö·½·¨ºó¾Í±¨´í£¬
ÎÒ¿´µ½ÍøÉϵͼÊÇ@Self.·½·¨Ãû£¬µ«ÊÇÎÒµÄÖ»ÄÜÊÇ@Self.¿Ø¼þ£¨»ò±äÁ¿£©
ÄÄλ¸ßÊÖÀ´Ö¸µãÒ»ÏÂ.....¼±...
function ProBar : boolean;
begin
...
end; ·ÅÔÚÇ°Ãæ¿´¿´
ÔÙ¶¥£¬ÎҵĵÚÈý¸ö²ÎÊýΪʲô²»ÄÜÊÇ@·½·¨Ãû£¿
Wozhiyonglangqi£¬Äã˵·ÅÔÚÇ°ÃæÊÇʲôÒâ˼£¿
²»ÄÜÔÚµÚÈý¸ö²ÎÊýÖÐÓÃ@self.·½·¨£¬ÇëÎÊΪʲô£¿
CreateThread µÄÓ÷¨Ã»ÓÐÎÊÌâ
°Ñ·½·¨Ð´³ÉÕâÑùÊÔһϠfunction ProBar : boolean; stdcall;
up
function TPPSampleSendCustFrm.ProBar: Boolean; stdcall;
ÎÒд³ÉÕâÑùºó£¬»¹ÊÇÏÔʾVariable required,¹â±êÍ£ÔÚµÚÈý¸ö²ÎÊýºó¡£
CreateThreadÕâ·½·¨¸÷λÓÐÔËÐгɹ¦¹ýÂð£¬Ð¡µÜÓÞÃÁ£¬¶à¶àÖ¸µã°¡...
function TForm1.ProBar : boolean
Ïà¹ØÎÊ´ð£º
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
ÓÐʲô¹¹ÏëÌÖÂÛһϡ£
ÕâÀà¶«Î÷Ö÷ÒªÊÇÈËÆøºÍ½çÃæ»¨ÉÚ,¼¼ÊõÉÏûʲôÄѵã.
ÕâÎÒÖªµÀ£¬ÄǼ¼ÊõÉϵÄÄØ£¿ÓÐûÓй¹ÏëһϸÃÔõôÉè¼Æ£¿Ö÷ÒªÊÇdelphi×ÔÉíÄܲ»Äܹ»Íê³É£¬Èôͬʱ´óÁ¿¿Í»§µÇ½£¬·´Ó¦ËÙ¶ÈÈçºÎµÈµÈ¡£
ÒýÓÃ
......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......
ÈçÌ⣺
ÎҵijÌÐò Create µÄʱºò ´´½¨ÁËN ¸öỊ̈߳»ÕâN¸öÏ̲߳»Í£µÄÔÚ ¼àÌýN¸öCOM¿ÚµÄÊý¾Ý£»µ±·ÖÎöÊý¾Ýʱ£¬ÓÐЩʱºòÒªµ¯³öapplication.messagebox ¶Ô»°¿òÅÐ¶Ï ÊÇ·ñ¼ÌÐø Ö´ÐÐỊ̈߳¬»¹ÊÇ¹ÒÆðÏ̡߳£µ±¶à¸öÏß³Ìͬʱ ......