Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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編寫×Ô動¸üгÌÐò

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

DelphiÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó

×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

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

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

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

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

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ