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

delphi½á¹¹Ìåµ÷ÓÃÎÊÌâ

ÎÒдÁËÒ»¸ödll£¬ÓÃÀ´´òÓ¡£¬´ËdllÖеĺ¯ÊýÈçÏ£º
function print_one(printrec:Trec):integer;stdcall;
var
rec_xm:string;
rec_sex:string;
rec_id:string;
begin
  rec_xm:=string(printrec.name);
  rec_sex:=string(printrec.sex);
  rec_id:=string(printrec.id);
  //ÏÂÃæÊÇһЩ´òÓ¡²Ù×÷
end;


TrecÊÇÒ»¸ö½á¹¹Ì壬ÄÚÈÝÈçÏ£º
Trec= Packed record
    name:pchar;
    sex:pchar;
    id:pchar;
end;

È»ºóдһ¸ö³ÌÐòµ÷ÓôËdll£¬µ÷ÓõijÌÐòÖÐÓÐͬÑùµÄÒ»¸ö½á¹¹Ì壬µ÷ÓÃǰ¸³ÖµÈçÏ£º

function print_one(printrec:Trec):integer;stdcall;
external 'print_one.dll';

procedure TForm1.printClick(Sender: TObject);
var
  rec1:Trec;
  n:integer;
begin
  rec1.name:=pchar('zhangsan');
  rec1.sex:=pchar('ÄÐ');
  rec1.id:=pchar('123');

  n:=print_one(rec1);

end;

¸ú×Ù½ødll£¬Õâ¸ö¸³Öµ¾Í³öÎÊÌâÁË
rec_xmµÄֵΪ'ÄÐ'
rec_sexµÄֵΪ'123'
rec_idµÄÖµ³ÉÂÒÂëÁË£¬Ï൱ÓÚÕû¸ö¶¼ÍùÉÏ´íÁËÒ»ÐУ¬ÕâÕ¦½â¾öÄØ


´«µÝÖ¸Õë
PTrec=^Trec;
function print_one(printrec:Trec):integer;stdcall;
¸ÄΪ
function print_one(printrec:PTrec):integer;stdcall;

µ÷Óô¦ÒªÏÈ·ÖÅä¿Õ¼ä
New(P


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

VC++ ÖеÄ&·ûºÅ ¶ÔÓ¦µÄÊÇDelphiÖеÄÄĸö·ûºÅ£¿£¿

VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿

´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......

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

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

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ