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

¹ØÓÚDELPHI DLL´«²Î·µ»ØintÐÍÎÊÌ⣬ÔÚÏߵȴý£¿

ÎÒдÁ˸öDLLÓиöº¯Êý,function testpchar(a:longint;c:longint;b:pchar):integer;
ÏÖÔÚÒª½«ÖµÐ´Èëa,b,·µ»Ø¸øµ÷ÓÃÕß

pcharÐ͵ÄÎÒ¿ÉÒÔͨ¹ýstrcopy¸³Öµ·µ»ØÃ»ÎÊÌ⣬
ÇëÎÊlogint£¨integer)ÐÍÈçºÎ¸³Öµ°¡?

var    a,c:longint

Õâ¸öÊǶ¨Ò壬ÎÒÒª½«ÐÂÖµ¸³¸øa,c»Ø´«¸øµ÷ÓÃÕß

function testpchar(var a:longint;c:longint;b:pchar):integer;


µ÷ÓÃʱ£º
var
  a,c:longint;
begin
  testpchar(a,c,b);£¨º¯ÊýÖи³Öµ£©


Ö´ÐÐÍê a,cΪ·µ»ØµÄ

Â¥ÉÏ˵µÄ·½·¨£¬ÔÚdelphiÖе÷ÓÃÊÇûÓÐÒ»µãÎÊÌâµÄ£¬µ«ÆäÓïÑÔÖоÍÓÐÎÊÌâÁË£¬±ÈÈçVCÖУ¬bÎҾ͵Ãstrcopy²Å¿ÉÒԻش«³É¹¦

ÓÃÖ¸Õë¾ÍÐÐÁË PInteger

PChar²»Ò²ÊÇÖ¸Õëô Ò»¸öµÀÀí

pintegerÈçºÎ¸³ÖµÄØ£¬ÓдúÂëô?
{{


Ïà¹ØÎÊ´ð£º

СµÜ²»»áDELPHI£¬Çë´óÏÀÃǰï¸öæ

Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

delphi編寫×Ô動¸üгÌÐò

ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......

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ÖÐselect µÄ whereºóÃæµÄid=±äÁ¿Ôõôд°¡

ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾ­È¡µÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ