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

¹ØÓÚDelphiÖÐDLL·â×°¶ÔÏóµÄ¼¸ÖÖ·½·¨ÕûÀí¼°Ìå»á

Ô­ÎIJμû£º  http://blog.csdn.net/ingener/archive/2007/12/22/1958535.aspx
¹ØÓÚDelphiÖÐDLL·â×°¶ÔÏóµÄ¼¸ÖÖ·½·¨ÕûÀí¼°Ìå»á
DelphiÓÃDLLÀ´·â×°¶ÔÏóµÄ¼¼ÊõÖ÷ÒªÓÐÈýÖÖ:
ÓýӿÚʵÏÖ
Óô¿ÐéºÍ³éÏóÀà·½·¨ÊµÏÖ
ÓÃÀàÒýÓÃʵÏÖ
ǰÁ½ÖÖ£¬¶¼ÊÇÔÚDLLÖÐÉú³ÉÀàʵÀý£»µÚ3ÖÖͨ¹ýÔÚµ÷Ó÷½Éú³ÉʵÀý¡£ÈýÖÖ·½·¨µÄ¹²Í¬¾ÖÏÞÈçÏ£º
µ÷Ó÷½Ö»Äܵ÷Ó÷â×°ÀàÖеÄvirtual·½·¨£»
µ÷Ó÷½ºÍÌṩ·½¶¼±ØÐëÌṩÀàµÄÃèÊö£¬½Ó¿ÚʵÏÖÖÐÐèÒªÌṩ½Ó¿ÚÃèÊö£¨COM·½·¨ÀýÍ⣩£»
²»ÄÜ´´½¨DLL°üº¬¶ÔÏóµÄÅÉÉúÀࣨ½Ó¿ÚÅÉÉú³ýÍ⣩¡£
Ê×ÏÈ£¬ÓýӿÚʵÏÖµ±È»°üÀ¨COMʵÏÖ£¬²»¹ýÓÉÓÚCOMÊÇÒ»ÖÖʵÏÖ½Ó¿Ú¼¼ÊõµÄ¶ÀÁ¢ÃÅÀ࣬ËùÒÔÔÚÏÂÃæËµµÄ½Ó¿ÚʵÏÖÖв»°üÀ¨Õâ·½ÃæµÄ¶«Î÷¡£Æä´ÎÓô¿ÐéºÍ³éÏóÀà·½·¨ÊµÏÖ£¬ÔÚ¡¶Delphi 6 Developer‘s Guide¡·ÖÐÌá¼°µÄincÎļþ×÷Ϊ¹«ÓõÄÍ·Îļþ£¬ºÍÁõÒÕÔÚ¡¶DelphiÃæÏò¶ÔÏó±à³Ì˼Ïë¡·ÖÐÌá¼°µÄ·½·¨±¾ÖÊÉÏÊÇÒ»ÑùµÄ¡£Î޷Ƕ¼ÊÇΪÁËÔÚµ÷Ó÷½¼ÓÈëabstract¹Ø¼ü×Ö£¬¶øÎÞÐè·½·¨ÊµÏÖ£¬´Ó¶øÊ¹µÃ±àÒëͨ¹ý¡£incÎļþµÄ·½·¨ÊÇÀûÓúêÖ¸ÁîÀ´´ïµ½Í³Ò»´¦Àí£¬²»ÓÃinc·½·¨ÊÇÔÚÁ½´¦¶¼ÐèÒª½øÐÐÃèÊö¡£
ÏÂÃæÓÃÒ»¸öÀý×ÓÀ´Õ¹Ê¾ËùÒÔÉÏÃæÌáµ½µÄ¼¯Öз½·¨¡£
µ÷Ó÷½Ö÷ÒªÎļþÁбíΪ£º
UnitMain.pas  µ÷ÓÃDLLµÄ½çÃæ
UnitPublic.pas  µÚ¶þÖÖ·½·¨ÔÚµ÷Óö˵ÄÀàÃèÊöÎļþ
UnitIDest.pas  ½Ó¿Ú·½·¨ºÍÀàÒýÓ÷½·¨µÄÀàÃèÊöÎļþ
IncDemo.inc  ÀûÓÃincÎļþʵÏÖµÄÀàÃèÊöÎļþ
DLL¹¤³ÌÖ÷ÒªÎļþÁбíΪ£º
ProDLLDemo.dpr  DLL¹¤³ÌÎļþ
UnitDLLDemo.pas  ËùÓÐÀàʵÏÖ²¿·ÖµÄÎļþ
UnitIDest.pas  ½Ó¿Ú·½·¨ºÍÀàÒýÓ÷½·¨µÄÀàÃèÊöÎļþ
IncDemo.inc  ÀûÓÃincÎļþʵÏÖµÄÀàÃèÊöÎļþ
ÔÚ·½·¨µÄ¹éÄÉÉÏÈçÓÐÒÅ©£¬ÓÐÇëÖ¸½Ì¡£
UnitMain.pas Ô´´úÂ룺
unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, UnitPublic, UnitIDest;
{$I IncDemo.inc}
// ÓÃÓÚInc·½·¨µÄºêÖ¸ÁÈç¹û²»ÊÇÓø÷½·¨¿ÉÈ¥µôÉÏÃæÄÇÐÐ
type
  TfmMain = class(TForm)
    Memo1: TMemo;
    btnUseAbstract: TButton;
    btnUseReference: TButton;
    btnUseInterface: TButton;
    btnUseInc: TButton;
    procedure btnUseAbstractClick(Sender: TObject);
    proce


Ïà¹ØÎĵµ£º

delphi Format Type

Format
  typeµÄ¿ÉÄÜÖµÓÐÏÂÁÐÕâЩ£º
  (1) d ÓзûºÅÊ®½øÖÆÊý
        Args±ØÐëÊÇÓзûºÅÕûÐÍÊý¡£Èç¹ûÔÚ¸ñʽ»¯×Ö·û´®Öл¹¼ÓÈëÁË["." prec]£¬ÔòÈç¹ûArgs
        µÄ³¤¶ÈÈç¹ûСÓÚ¸ø³öµÄ¾«¶ÈÊýʱ£¬ÔÚǰ±ßÌî²¹0£»Èç¹û´óÓÚ¾«¶ÈÊý£¬°´Êµ¼Ê³¤¶ ......

delphi×Ö·û´®×ª»»ÎªcharÊý×é

var
  arrChar : array [0..4] of Char;
  b : Byte;
  s : string;
begin
  s := 'Test';
  Move(Pointer(s)^, arrChar, Length(s));   //string to array of char
  ShowMessage(arrChar);
  b := Ord(s[1]);   //First byte string to one single byte ......

¸ÄдÁËÒ»¸ö³£ÓõÄDELPHIµÄ¼Ó½âÃܺ¯Êý

DELPHI
//////////////////////////////////
Function   EncrypKey   (Src:String;   Key:String):string;
  var  
  idx   :integer;  
  KeyLen   :Integer;  
  KeyPos   :Integer; &nbs ......

Delphi Ö®ÔËËã·ûÖØÔØ

Delphi 7Ö®ºóµÄ°æ±¾£¬Ôö¼ÓÁËÔËËã·ûµÄÖØÔØ¡£ËäÈ»²»¾¡ÈËÒ⣨ÐèÒªÐ´ÌØ¶¨Ó¢ÎÄ£©£¬µ«ÓÐ×ܱÈûÓÐÇ¿¡£
Àý£º
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  T3DPoint = record
    X, Y, Z: Doub ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ