SAP编程接口－BAPI

https://www.sdn.sap.com
 
TSAPBAPIControl = class(TOleControl)
  private
    FIntf: _CWdoAuto;
    function  GetControlInterface: _CWdoAuto;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    function Get_Connection: IDispatch;
    procedure Set_Connection(const Value: IDispatch);
  public
    function  GetSAPObject(const ObjType: WideString): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant;
                           ObjKey3: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant;
                           ObjKey3: OleVariant; ObjKey4: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant;
                           ObjKey3: OleVariant; ObjKey4: OleVariant; ObjKey5: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant;
                           ObjKey3: OleVariant; ObjKey4: OleVariant; ObjKey5: OleVariant;
                           ObjKey6: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant;
                           ObjKey3: OleVariant; ObjKey4: OleVariant; ObjKey5: OleVariant;
                           ObjKey6: OleVariant; ObjKey7: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant;
                           ObjKey3: OleVariant; ObjKey4: OleVariant; ObjKey5: OleVariant;
                           ObjKey6: OleVariant; ObjKey7: OleVariant; ObjKey8: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant;
                           ObjKey3: OleVariant; ObjKey4: OleVariant; ObjKey5: OleVariant;
                           ObjKey6: OleVariant; ObjKey7: OleVariant; ObjKey8: OleVariant;
                           ObjKey9: OleVariant): IDispatch; overload;
    function  GetSAPObject(const ObjType: WideString; ObjKey1: OleVariant; ObjKey2: OleVariant;
                           ObjKey3: OleVariant; ObjKey4: OleVariant; ObjKey5: OleVariant;
                           ObjKey6: OleVariant; ObjKey7: OleVariant; ObjKey8: OleVariant;
                           ObjKey9: OleVariant; ObjKey10: OleVariant): IDispatch; overload;
    function  CreateCollectionOfSAPObjects: IDispatch;
    procedure EnableDialog;
    function  DimAs(const Object_: IDispatch; const Method: WideString; const Parameter: WideString): IDispatch;
    function  CreateTransactionID: WideString;
    procedure AboutBox;
    property  ControlInterface: _CWdoAuto read GetControlInterface;
    property  DefaultInterface: _CWdoAuto read GetControlInterface;
    property Connection: IDispatch index 4 read GetIDispatchProp write SetIDispatchProp;
  published
    property  TabStop;
    property  Align;
    property  DragCursor;
    property  DragMode;
    property  ParentShowHint;
    property  PopupMenu;
    property  ShowHint;
    property  TabOrder;
    property  Visible;
    property  OnDragDrop;
    property  OnDragOver;
    property  OnEndDrag;
    property  OnEnter;
    property  OnExit;
    property  OnStartDrag;
    property hWnd: Integer index -515 read GetIntegerProp write SetIntegerProp stored False;
    property LogLevel: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
    property LogFileName: WideString index 7 read GetWideStringProp write SetWideStringProp stored False;
    property BAPIExceptionCodes: Shortint index 9 read GetShortintProp write SetShortintProp stored False;
    property TransactionID: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  end;