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

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


Ïà¹ØÎÊ´ð£º

delphi ÔõÑù½«ucs2±àÂëת»»³ÉÖÐÎÄ

½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

ÈçºÎÔÚdelphiÀïÓôúÂëʵÏÖ´´½¨VPNÁ¬½Ó?

ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
  GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
  Data1: integer;
  Data2: Shortint;
  Data3: Shortint;
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ