Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿

Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂ𣿠......

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

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

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

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

ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
  GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
  Data1: integer;
  Data2: Shortint;
  Data3: Shortint;
  ......

¹ØÓÚDelphiÁ¬½ÓACCESSÊý¾Ý¿â²éѯÎÊÌâ

¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ