¹ØÓÚdelphiµ÷ÓÃorale´æ´¢¹ý³Ì£¨º¬ÓαêµÄ£©
´æ´¢¹ý³ÌÀïµÄ¶¨Ò壺
in_no in varchar2
in_name in varchar2
cur_yx out cursor
ÆäÖÐÓαê×Ö¶ÎÁбíΪ:aa char(11)
bb date
cc number(2)
ÎÒÊÇÕâÑùдµÄ£º
with ADOStoredProc1 do
begin
ADOStoredProc1.Close;
Parameters.Clear;
ProcedureName:= 'a.b.c';
Parameters.CreateParameter('in_no',ftString,pdInput,10,Trim(Edtno.Text));
Parameters.CreateParameter('in_name',ftString,pdInput,10,'DL');
Open;
end;
²»ÖªµÀÔõô»ñÈ¡ÓαêÖеÄ×Ö¶ÎÖµ£¬Ð»Ð»
Èç¹ûÄã´«Èë²ÎÊýºó£¬´æ´¢¹ý³Ì»á·µ»ØÊý¾ÝµÄ»°£¬Äã°ÑÄãµÄÊý¾ÝÔ´Ö¸ÏòADOStoredProc1£¬¼´ÄãµÄADOStoredProc1ºÍAdoQueryÒ»Ñù£¬¶¼ÊÇÊý¾Ý¼¯£¬Ö»ÒªÀïÃæÓÐÊý¾Ý£¬¾Í¿ÉÒÔÏÔʾÔÚÊý¾Ý¸ÐÖª¿Ø¼þ¡£
ÍÆ¼ö£¡
Èç¹û´æ´¢¹ý³Ì·µ»ØµÄÊÇÊý¾Ý¼¯£¬ÄÇô¾ÍÈçͬ²Ù×÷ADOQuery»òADOTableÒ»Ñù²Ù×÷¾Í¿ÉÒ
Ïà¹ØÎÊ´ð£º
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÊÇÄĸö£¿
windowsµÄapi£¿
±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
ºÙºÙ£¬ÓÖÀ´Âé·³¸÷λ´óÅ£ÁË£¡ÎÒÏëÁ˽âÎÒÔÚ´úÂëµÄʼþÊôÐÔÀïÃæ¿´²»µ½ÓÐʲôʼþ£¬»¹ÓÐÔÚʱ¼ä¿Ø¼þÀïÃæµÄEnabledµÄÊôÐÔÊÇFalse£¬ÕâÏÂÃÉÁË£¬²»ÖªµÀ³ÌÐòÔËÐÐÖ®ºóÖ´ÐеÄÊÇÄÇÌõÃüÁϣÍû¸÷λ´óÅ£´Í½ÌÀ²£¡
лл£¡
ÎÒÕâÏ ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......