¹ØÓÚ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ÈçºÎ¸³ÖµÄØ£¬ÓдúÂëô?
{{
Ïà¹ØÎÊ´ð£º
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......