OALib_TLB.pas
上传用户:yjb1804
上传日期:2021-01-30
资源大小:3105k
文件大小:12k
源码类别:

Email服务器

开发平台:

Delphi

  1. unit OALib_TLB;
  2. // ************************************************************************ //
  3. // WARNING                                                                    
  4. // -------                                                                    
  5. // The types declared in this file were generated from data read from a       
  6. // Type Library. If this type library is explicitly or indirectly (via        
  7. // another type library referring to this type library) re-imported, or the   
  8. // 'Refresh' command of the Type Library Editor activated while editing the   
  9. // Type Library, the contents of this file will be regenerated and all        
  10. // manual modifications will be lost.                                         
  11. // ************************************************************************ //
  12. // PASTLWTR : 1.2
  13. // File generated on 2006-9-19 13:13:56 from Type Library described below.
  14. // ************************************************************************  //
  15. // Type Lib: E:OA ProjectOA3.0_newOA.ocx (1)
  16. // LIBID: {0DB2A541-9FC9-41FE-8869-62AF866AA3F8}
  17. // LCID: 0
  18. // Helpfile: E:OA ProjectOA3.0_newOA.hlp
  19. // HelpString: OA ActiveX Control module
  20. // DepndLst: 
  21. //   (1) v2.0 stdole, (C:WINDOWSsystem32stdole2.tlb)
  22. // ************************************************************************ //
  23. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  24. {$WARN SYMBOL_PLATFORM OFF}
  25. {$WRITEABLECONST ON}
  26. {$VARPROPSETTER ON}
  27. interface
  28. uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
  29.   
  30. // *********************************************************************//
  31. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  32. //   Type Libraries     : LIBID_xxxx                                      
  33. //   CoClasses          : CLASS_xxxx                                      
  34. //   DISPInterfaces     : DIID_xxxx                                       
  35. //   Non-DISP interfaces: IID_xxxx                                        
  36. // *********************************************************************//
  37. const
  38.   // TypeLibrary Major and minor versions
  39.   OALibMajorVersion = 1;
  40.   OALibMinorVersion = 0;
  41.   LIBID_OALib: TGUID = '{0DB2A541-9FC9-41FE-8869-62AF866AA3F8}';
  42.   DIID__DOA: TGUID = '{16EFE4A7-6641-459C-8BB3-B02AC6F088F4}';
  43.   DIID__DOAEvents: TGUID = '{4D0D660E-90A7-4CDC-AF8C-1926E0D08895}';
  44.   CLASS_OA: TGUID = '{18A295DA-088E-42D1-BE31-5028D7F9B9B5}';
  45. type
  46. // *********************************************************************//
  47. // Forward declaration of types defined in TypeLibrary                    
  48. // *********************************************************************//
  49.   _DOA = dispinterface;
  50.   _DOAEvents = dispinterface;
  51. // *********************************************************************//
  52. // Declaration of CoClasses defined in Type Library                       
  53. // (NOTE: Here we map each CoClass to its Default Interface)              
  54. // *********************************************************************//
  55.   OA = _DOA;
  56. // *********************************************************************//
  57. // Declaration of structures, unions and aliases.                         
  58. // *********************************************************************//
  59.   POleVariant1 = ^OleVariant; {*}
  60. // *********************************************************************//
  61. // DispIntf:  _DOA
  62. // Flags:     (4112) Hidden Dispatchable
  63. // GUID:      {16EFE4A7-6641-459C-8BB3-B02AC6F088F4}
  64. // *********************************************************************//
  65.   _DOA = dispinterface
  66.     ['{16EFE4A7-6641-459C-8BB3-B02AC6F088F4}']
  67.     function CreateNew(const ProgId: WideString): WordBool; dispid 8;
  68.     function GetIDispatch: IDispatch; dispid 5;
  69.     function Close: WordBool; dispid 7;
  70.     function DoOleCommand(dwOleCmdID: Integer; dwOptions: Integer; var vInParam: OleVariant; 
  71.                           var vInOutParam: OleVariant): WordBool; dispid 20;
  72.     function IsDirty: WordBool; dispid 21;
  73.     function OpenWebFile(const FileUrl: WideString): WordBool; dispid 9;
  74.     function HttpUploadFile(const ServerUrl: WideString; const LocalFilePath: WideString): WordBool; dispid 10;
  75.     function FTPUploadFile(const ServerUrl: WideString; const LocalFilePath: WideString; 
  76.                            const UserName: WideString; const Password: WideString): WordBool; dispid 12;
  77.     function Open(const Path: WideString): WordBool; dispid 6;
  78.     function HttpDownloadFile(const ServerUrl: WideString; const LocalFileUrl: WideString): WordBool; dispid 11;
  79.     function FTPDownloadFile(const ServerUrl: WideString; const LocalFilePath: WideString; 
  80.                              const UserName: WideString; const Password: WideString): WordBool; dispid 13;
  81.     procedure Save(const strPath: WideString); dispid 14;
  82.     function IsOpen: WordBool; dispid 18;
  83.     function SaveLocalDialog: WordBool; dispid 16;
  84.     function OpenLocalDialog: WordBool; dispid 17;
  85.     procedure AboutBox; dispid -552;
  86.     procedure SaveWebFile(const ServerUrl: WideString); dispid 19;
  87.     function GetToolbarsIsShow: WordBool; dispid 23;
  88.     procedure Print; dispid 15;
  89.     procedure ShowToolbars(bShow: WordBool); dispid 22;
  90.     property CaptionColor: OLE_COLOR dispid 4;
  91.     property CaptionLabel: WideString dispid 3;
  92.     property BorderColor: OLE_COLOR dispid 2;
  93.     property BorderStyle: Smallint dispid 1;
  94.   end;
  95. // *********************************************************************//
  96. // DispIntf:  _DOAEvents
  97. // Flags:     (4096) Dispatchable
  98. // GUID:      {4D0D660E-90A7-4CDC-AF8C-1926E0D08895}
  99. // *********************************************************************//
  100.   _DOAEvents = dispinterface
  101.     ['{4D0D660E-90A7-4CDC-AF8C-1926E0D08895}']
  102.   end;
  103. // *********************************************************************//
  104. // OLE Control Proxy class declaration
  105. // Control Name     : TOffice
  106. // Help String      : OA Control
  107. // Default Interface: _DOA
  108. // Def. Intf. DISP? : Yes
  109. // Event   Interface: _DOAEvents
  110. // TypeFlags        : (34) CanCreate Control
  111. // *********************************************************************//
  112.   TOffice = class(TOleControl)
  113.   private
  114.     FIntf: _DOA;
  115.     function  GetControlInterface: _DOA;
  116.   protected
  117.     procedure CreateControl;
  118.     procedure InitControlData; override;
  119.   public
  120.     function CreateNew(const ProgId: WideString): WordBool;
  121.     function GetIDispatch: IDispatch;
  122.     function Close: WordBool;
  123.     function DoOleCommand(dwOleCmdID: Integer; dwOptions: Integer; var vInParam: OleVariant; 
  124.                           var vInOutParam: OleVariant): WordBool;
  125.     function IsDirty: WordBool;
  126.     function OpenWebFile(const FileUrl: WideString): WordBool;
  127.     function HttpUploadFile(const ServerUrl: WideString; const LocalFilePath: WideString): WordBool;
  128.     function FTPUploadFile(const ServerUrl: WideString; const LocalFilePath: WideString; 
  129.                            const UserName: WideString; const Password: WideString): WordBool;
  130.     function Open(const Path: WideString): WordBool;
  131.     function HttpDownloadFile(const ServerUrl: WideString; const LocalFileUrl: WideString): WordBool;
  132.     function FTPDownloadFile(const ServerUrl: WideString; const LocalFilePath: WideString; 
  133.                              const UserName: WideString; const Password: WideString): WordBool;
  134.     procedure Save(const strPath: WideString);
  135.     function IsOpen: WordBool;
  136.     function SaveLocalDialog: WordBool;
  137.     function OpenLocalDialog: WordBool;
  138.     procedure AboutBox;
  139.     procedure SaveWebFile(const ServerUrl: WideString);
  140.     function GetToolbarsIsShow: WordBool;
  141.     procedure Print;
  142.     procedure ShowToolbars(bShow: WordBool);
  143.     property  ControlInterface: _DOA read GetControlInterface;
  144.     property  DefaultInterface: _DOA read GetControlInterface;
  145.   published
  146.     property Anchors;
  147.     property  TabStop;
  148.     property  Align;
  149.     property  DragCursor;
  150.     property  DragMode;
  151.     property  ParentShowHint;
  152.     property  PopupMenu;
  153.     property  ShowHint;
  154.     property  TabOrder;
  155.     property  Visible;
  156.     property  OnDragDrop;
  157.     property  OnDragOver;
  158.     property  OnEndDrag;
  159.     property  OnEnter;
  160.     property  OnExit;
  161.     property  OnStartDrag;
  162.     property CaptionColor: TColor index 4 read GetTColorProp write SetTColorProp stored False;
  163.     property CaptionLabel: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
  164.     property BorderColor: TColor index 2 read GetTColorProp write SetTColorProp stored False;
  165.     property BorderStyle: Smallint index 1 read GetSmallintProp write SetSmallintProp stored False;
  166.   end;
  167. procedure Register;
  168. resourcestring
  169.   dtlServerPage = 'ActiveX';
  170.   dtlOcxPage = 'ActiveX';
  171. implementation
  172. uses ComObj;
  173. procedure TOffice.InitControlData;
  174. const
  175.   CControlData: TControlData2 = (
  176.     ClassID: '{18A295DA-088E-42D1-BE31-5028D7F9B9B5}';
  177.     EventIID: '';
  178.     EventCount: 0;
  179.     EventDispIDs: nil;
  180.     LicenseKey: nil (*HR:$80004005*);
  181.     Flags: $00000000;
  182.     Version: 401);
  183. begin
  184.   ControlData := @CControlData;
  185. end;
  186. procedure TOffice.CreateControl;
  187.   procedure DoCreate;
  188.   begin
  189.     FIntf := IUnknown(OleObject) as _DOA;
  190.   end;
  191. begin
  192.   if FIntf = nil then DoCreate;
  193. end;
  194. function TOffice.GetControlInterface: _DOA;
  195. begin
  196.   CreateControl;
  197.   Result := FIntf;
  198. end;
  199. function TOffice.CreateNew(const ProgId: WideString): WordBool;
  200. begin
  201.   Result := DefaultInterface.CreateNew(ProgId);
  202. end;
  203. function TOffice.GetIDispatch: IDispatch;
  204. begin
  205.   Result := DefaultInterface.GetIDispatch;
  206. end;
  207. function TOffice.Close: WordBool;
  208. begin
  209.   Result := DefaultInterface.Close;
  210. end;
  211. function TOffice.DoOleCommand(dwOleCmdID: Integer; dwOptions: Integer; var vInParam: OleVariant; 
  212.                               var vInOutParam: OleVariant): WordBool;
  213. begin
  214.   Result := DefaultInterface.DoOleCommand(dwOleCmdID, dwOptions, vInParam, vInOutParam);
  215. end;
  216. function TOffice.IsDirty: WordBool;
  217. begin
  218.   Result := DefaultInterface.IsDirty;
  219. end;
  220. function TOffice.OpenWebFile(const FileUrl: WideString): WordBool;
  221. begin
  222.   Result := DefaultInterface.OpenWebFile(FileUrl);
  223. end;
  224. function TOffice.HttpUploadFile(const ServerUrl: WideString; const LocalFilePath: WideString): WordBool;
  225. begin
  226.   Result := DefaultInterface.HttpUploadFile(ServerUrl, LocalFilePath);
  227. end;
  228. function TOffice.FTPUploadFile(const ServerUrl: WideString; const LocalFilePath: WideString; 
  229.                                const UserName: WideString; const Password: WideString): WordBool;
  230. begin
  231.   Result := DefaultInterface.FTPUploadFile(ServerUrl, LocalFilePath, UserName, Password);
  232. end;
  233. function TOffice.Open(const Path: WideString): WordBool;
  234. begin
  235.   Result := DefaultInterface.Open(Path);
  236. end;
  237. function TOffice.HttpDownloadFile(const ServerUrl: WideString; const LocalFileUrl: WideString): WordBool;
  238. begin
  239.   Result := DefaultInterface.HttpDownloadFile(ServerUrl, LocalFileUrl);
  240. end;
  241. function TOffice.FTPDownloadFile(const ServerUrl: WideString; const LocalFilePath: WideString; 
  242.                                  const UserName: WideString; const Password: WideString): WordBool;
  243. begin
  244.   Result := DefaultInterface.FTPDownloadFile(ServerUrl, LocalFilePath, UserName, Password);
  245. end;
  246. procedure TOffice.Save(const strPath: WideString);
  247. begin
  248.   DefaultInterface.Save(strPath);
  249. end;
  250. function TOffice.IsOpen: WordBool;
  251. begin
  252.   Result := DefaultInterface.IsOpen;
  253. end;
  254. function TOffice.SaveLocalDialog: WordBool;
  255. begin
  256.   Result := DefaultInterface.SaveLocalDialog;
  257. end;
  258. function TOffice.OpenLocalDialog: WordBool;
  259. begin
  260.   Result := DefaultInterface.OpenLocalDialog;
  261. end;
  262. procedure TOffice.AboutBox;
  263. begin
  264.   DefaultInterface.AboutBox;
  265. end;
  266. procedure TOffice.SaveWebFile(const ServerUrl: WideString);
  267. begin
  268.   DefaultInterface.SaveWebFile(ServerUrl);
  269. end;
  270. function TOffice.GetToolbarsIsShow: WordBool;
  271. begin
  272.   Result := DefaultInterface.GetToolbarsIsShow;
  273. end;
  274. procedure TOffice.Print;
  275. begin
  276.   DefaultInterface.Print;
  277. end;
  278. procedure TOffice.ShowToolbars(bShow: WordBool);
  279. begin
  280.   DefaultInterface.ShowToolbars(bShow);
  281. end;
  282. procedure Register;
  283. begin
  284.   RegisterComponents(dtlOcxPage, [TOffice]);
  285. end;
  286. end.