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
Ïà¹ØÎÊ´ð£º
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......