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
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//ɾ³ýÊý¾Ý
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......