OLE Automation - Object Linking and Embedding, Windows . OLE , - OLE . , OLE Automation , . OLE , , TAutoObject.
, OLE , . - . C++Builder _ automated ( 3.13). _ dispid, OLE Automation .
class MyOLEAutoClass: TAutoObject
{ _automated: void_fastcall function(void) _dispid(1000); };
3.13. .
, , , public. , OLE Automation, .
C++Builder ( ) OLE Automation. , . Autosrv :
TAutoObject TAutoClassInfo;
RegisterAutoClass ;
, _ automated. Autocon :
;
( Variant 3.6.1.6 " Delphi".
, OLE Automation, :
=> File [ Open Project . => \...\CBuilder\Examples\Apps\Autosrv => Autosrv Open.
=> Run | Run . => ,
\...\CBuilder\Examples\Apps\Autocon,
Autocon Open. => .
|
|
, . , :
. 3.4. .
. 3.5. , ""
. 3.6. .
, , ( 3.14 3.15) ( 3.16 3.17), , , . Edit1 TEdit Text. Text Edit1, Buttoni, Button2 Buttons TButton ( "", "" "").
#ifndef Auto2H
#define Auto2H
ftinclude <Classes.hpp> ftinclude <01eAuto.hpp>
#include <System.hpp>
// ButtonServer. TAutoOb-iect class ButtonServer: public TAutoObject {
private: // AnsiString _ fastcall GetEditStr();
void _fastcall SetEditStr(AnsiString NewVal);
int _fastcall GetEditNum();
void _fastcall SetEditNum(int NewVal);
_automated: // property AnsiString EditStr = // AnsiString / / / {read=GetEditStr, write=SetEditStr};
property int EditNum = // int / / / {read=GetEditNum, write=SetEditNum); :
void _fastcall Clear (); // void_fastcall SetThreeStr // / / si, s2, s3 AnsiString (AnsiString si, AnsiString s2, AnsiString s3);
void _fastcall SetThreeNum // / / 1, 2, 3 int (int 1, int 2, int 3);
public: //
_fastcall ButtonServer ; //
};
//----------------------------------------------------------
#endif