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Êý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......