¹ØÓÚ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 ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......