DelphiÖнӿڡ¢Àà¡¢Óë¼Ì³ÐµÄÎÊÌâ
ÎÒĿǰÓöµ½µÄÎÊÌâÈçÏ£º
Delphi(Pascal) code:
IA = interface
function GetA: Integer;
end;
TB = class(TInterfacedObject, IA)
public
...Ê¡ÂÔÆäËûN¸öº¯Êý
function GetA: Integer;
end;
TC = class(TB)
public
...
function GetA: Integer;
private
end;
ÒÔÉÏÊǽӿÚAºÍÀàB¡¢ÀàCµÄ¶¨Ò壬ÆäÖÐÀàC´ÓÀàBÖм̳У¬²¢½«GetAº¯ÊýÖØÐ´¡£
ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÄܲ»ÄÜÓýӿÚÀ´µ÷ÓÃÀàCµÄGetAº¯Êý(ÈçÏ·½·¨µ÷ÓÃ)£¿
Delphi(Pascal) code:
var
ITemp: IA;
i: Integer;
begin
ITemp:= TC.Create;
i := IA.GetA;
ITemp:= nil;
ITemp±äÁ¿ÉêÃ÷Ϊ½Ó¿Ú£¬ÎÒ·¢ÏÖGetAÆäʵÊÇÔÚÖ´ÐÐTBµÄ´úÂ룬¶øÃ»ÓÐÖ´ÐÐTCµÄ´úÂë¡£
Èç¹û½«ITempÉêÃ÷ΪTC£¬Äǵ±È»ÈÝÒ×ʵÏÖ¡£µ«¹Ø¼üÊÇÎÒÏÖÔÚÓкܶàTC£¬¾ßÌåÖ´ÐÐÄĸö£¬Ò²²»È·¶¨µÄ¡£
ÇëÎÊÓÐʲô·½·¨¿ÉÒÔ¼ò±ãµÄµ÷Óõ½TCµÄGetAº¯Êý£¿
var ITemp: TC;
i: Integer;
begin
ITemp:= TC.Create;
i := IA.GetA;
ITemp:= nil;
end;
¶àл¥ÉϵÄÅóÓÑ£¬µ«ÊÇÕâ¸ö°ì·¨ÎÒÒ²ÖªµÀ¡£¹Ø¼ü£¬ÀàËÆTCÒ»Ñù£¬´ÓTBÀà¼Ì³ÐÏÂÀ´µÄºÜ¶à¡£ÎÒÀÁ£¬ËùÒÔÏëÕÒÒ»¸öͳһµÄ´úÂë¡£²»ÖªµÀÓÐûÓв»ÓøľͿÉÒÔµ÷Óõġ£
±ÈÈ磬´æÔÚTD£¬Ò²ÊÇ´ÓTB¼Ì³ÐµÄÀ࣬ÄÇÎÒµ÷ÓõÄʱºò£¬¾ÍÓֵðÑITempÉêÃ÷³ÉTDÁË¡£ÄÇÔٶ࣬²»ÊÇÓֵøģ¿
Ïà¹ØÎÊ´ð£º
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
void CAutoMsgDlg::OnBnClickedButton1()
{
CInternetSession netSession;
CHttpConnection *pHttpConn;
CHttpFile *pFile;
CString &nb ......
ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......