home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / ISP.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  50KB  |  1,049 lines
  1. //----------------------------------------------------------------------------
  2. // ISP.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: ISP.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef ISPHPP
  6. #define ISPHPP
  7. //----------------------------------------------------------------------------
  8. #include <Menus.hpp>
  9. #include <Controls.hpp>
  10. #include <OleCtrls.hpp>
  11. #include <Graphics.hpp>
  12. #include <Classes.hpp>
  13. #include <OleCtl.hpp>
  14. #include <OLE2.hpp>
  15. #include <System.hpp>
  16. #pragma warn -par
  17. #pragma warn -hid 
  18. #pragma warn -inl
  19.  
  20. namespace Isp
  21. {
  22. //-- type declarations -------------------------------------------------------
  23. struct TControlData;
  24. typedef TControlData *PControlData;
  25.  
  26. struct TControlData
  27. {
  28.     GUID ClassID;
  29.     GUID EventIID;
  30.     long EventCount;
  31.     void *EventDispIDs;
  32.     wchar_t *LicenseKey;
  33.     int Flags;
  34.     int InstanceCount;
  35.     Classes::TList* EnumPropDescs;
  36. } ;
  37.  
  38. typedef void __fastcall (__closure *TFTPError)(System::TObject* Sender, short Number,  System::AnsiString &
  39.     Description, int Scode, const System::AnsiString Source, const System::AnsiString HelpFile, int HelpContext
  40.     , Word &CancelDisplay);
  41.  
  42. typedef void __fastcall (__closure *TFTPTimeout)(System::TObject* Sender, short event, Word &Continue
  43.     );
  44.  
  45. typedef void __fastcall (__closure *TFTPStateChanged)(System::TObject* Sender, short State);
  46.  
  47. typedef void __fastcall (__closure *TFTPProtocolStateChanged)(System::TObject* Sender, short ProtocolState
  48.     );
  49.  
  50. typedef void __fastcall (__closure *TFTPBusy)(System::TObject* Sender, Word isBusy);
  51.  
  52. typedef void __fastcall (__closure *TFTPDocInput)(System::TObject* Sender, const System::Variant &DocInput
  53.     );
  54.  
  55. typedef void __fastcall (__closure *TFTPDocOutput)(System::TObject* Sender, const System::Variant &DocOutput
  56.     );
  57.  
  58. typedef void __fastcall (__closure *TFTPListItem)(System::TObject* Sender, const System::Variant &Item
  59.     );
  60.  
  61. class __declspec(delphiclass) TFTP;
  62. class __declspec(pascalimplementation) TFTP : public Olectrls::TOleControl
  63. {
  64.     typedef Olectrls::TOleControl inherited;
  65.     
  66. private:
  67.     TFTPError FOnError;
  68.     TFTPTimeout FOnTimeout;
  69.     Classes::TNotifyEvent FOnCancel;
  70.     TFTPStateChanged FOnStateChanged;
  71.     TFTPProtocolStateChanged FOnProtocolStateChanged;
  72.     TFTPBusy FOnBusy;
  73.     Classes::TNotifyEvent FOnLog;
  74.     TFTPDocInput FOnDocInput;
  75.     TFTPDocOutput FOnDocOutput;
  76.     Classes::TNotifyEvent FOnAbort;
  77.     Classes::TNotifyEvent FOnAccount;
  78.     Classes::TNotifyEvent FOnChangeDir;
  79.     Classes::TNotifyEvent FOnCreateDir;
  80.     Classes::TNotifyEvent FOnDeleteDir;
  81.     Classes::TNotifyEvent FOnDelFile;
  82.     Classes::TNotifyEvent FOnHelp;
  83.     Classes::TNotifyEvent FOnmode;
  84.     Classes::TNotifyEvent FOnNoop;
  85.     Classes::TNotifyEvent FOnParentDir;
  86.     Classes::TNotifyEvent FOnPrintDir;
  87.     Classes::TNotifyEvent FOnExecute;
  88.     Classes::TNotifyEvent FOnStatus;
  89.     Classes::TNotifyEvent FOnReinitialize;
  90.     Classes::TNotifyEvent FOnSystem;
  91.     Classes::TNotifyEvent FOnSite;
  92.     Classes::TNotifyEvent FOnType;
  93.     TFTPListItem FOnListItem;
  94.     int __stdcall Get_Timeout(short event);
  95.     void __stdcall Set_Timeout(short event, int Value);
  96.     void __stdcall Set_EnableTimer(short event, Word Value);
  97.     
  98. protected:
  99.     virtual void __fastcall InitControlData(void);
  100.     
  101. public:
  102.     void __stdcall AboutBox(void);
  103.     void __stdcall Cancel(void);
  104.     void __stdcall Connect(const System::Variant &RemoteHost, const System::Variant &RemotePort);
  105.     void __stdcall Authenticate(const System::Variant &UserId, const System::Variant &Password);
  106.     void __stdcall SendDoc(const System::Variant &URL, const System::Variant &Headers, const System::Variant 
  107.         &InputData, const System::Variant &InputFile, const System::Variant &OutputFile);
  108.     void __stdcall GetDoc(const System::Variant &URL, const System::Variant &Headers, const System::Variant 
  109.         &OutputFile);
  110.     void __stdcall Abort(void);
  111.     void __stdcall Account(const System::AnsiString Account);
  112.     void __stdcall ChangeDir(const System::AnsiString directory);
  113.     void __stdcall CreateDir(const System::AnsiString directory);
  114.     void __stdcall DeleteDir(const System::AnsiString directory);
  115.     void __stdcall DeleteFile(const System::AnsiString FileName);
  116.     void __stdcall Quit(void);
  117.     void __stdcall Help(const System::AnsiString Help);
  118.     void __stdcall Noop(void);
  119.     void __stdcall mode(Olectrls::TOleEnum ftpMode);
  120.     void __stdcall Type_(Olectrls::TOleEnum ftpType);
  121.     void __stdcall List(const System::AnsiString List);
  122.     void __stdcall NameList(const System::AnsiString NameList);
  123.     void __stdcall ParentDir(void);
  124.     void __stdcall PrintDir(void);
  125.     void __stdcall Execute(const System::AnsiString Execute);
  126.     void __stdcall Status(const System::AnsiString Status);
  127.     void __stdcall PutFile(const System::AnsiString srcFileName, const System::AnsiString destFileName)
  128.         ;
  129.     void __stdcall Reinitialize(void);
  130.     void __stdcall System(void);
  131.     void __stdcall GetFile(const System::AnsiString srcFileName, const System::AnsiString destFileName)
  132.         ;
  133.     void __stdcall PutFileUnique(const System::AnsiString FileName);
  134.     void __stdcall Site(const System::AnsiString Site);
  135.     __property short State = {read=GetSmallintProp, index=503, nodefault};
  136.     __property short ProtocolState = {read=GetSmallintProp, index=504, nodefault};
  137.     __property System::AnsiString ReplyString = {read=GetStringProp, index=505, nodefault};
  138.     __property int ReplyCode = {read=GetIntegerProp, index=506, nodefault};
  139.     __property System::Variant Errors = {read=GetVariantProp, index=508};
  140.     __property Word Busy = {read=GetOleBoolProp, index=509, nodefault};
  141.     __property System::AnsiString StateString = {read=GetStringProp, index=511, nodefault};
  142.     __property System::AnsiString ProtocolStateString = {read=GetStringProp, index=512, nodefault};
  143.     __property System::Variant DocInput = {read=GetVariantProp, index=1002};
  144.     __property System::Variant DocOutput = {read=GetVariantProp, index=1003};
  145.     __property Olectrls::TOleEnum Operation = {read=GetOleEnumProp, index=5, nodefault};
  146.     __property int Timeout[short event] = {read=Get_Timeout, write=Set_Timeout};
  147.     __property Word EnableTimer[short event] = {write=Set_EnableTimer};
  148.     
  149. __published:
  150.     __property System::AnsiString RemoteHost = {read=GetStringProp, write=SetStringProp, stored=false, 
  151.         index=0, nodefault};
  152.     __property int RemotePort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=502, nodefault
  153.         };
  154.     __property short NotificationMode = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=510
  155.         , nodefault};
  156.     __property Word Logging = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=514, nodefault
  157.         };
  158.     __property System::AnsiString UserId = {read=GetStringProp, write=SetStringProp, stored=false, index=601
  159.         , nodefault};
  160.     __property System::AnsiString Password = {read=GetStringProp, write=SetStringProp, stored=false, index=602
  161.         , nodefault};
  162.     __property System::AnsiString URL = {read=GetStringProp, write=SetStringProp, stored=false, index=1001
  163.         , nodefault};
  164.     __property Word AppendToFile = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=1, nodefault
  165.         };
  166.     __property Word ListItemNotify = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=2, 
  167.         nodefault};
  168.     __property System::AnsiString RemoteFile = {read=GetStringProp, write=SetStringProp, stored=false, 
  169.         index=3, nodefault};
  170.     __property TFTPError OnError = {read=FOnError, write=FOnError};
  171.     __property TFTPTimeout OnTimeout = {read=FOnTimeout, write=FOnTimeout};
  172.     __property Classes::TNotifyEvent OnCancel = {read=FOnCancel, write=FOnCancel};
  173.     __property TFTPStateChanged OnStateChanged = {read=FOnStateChanged, write=FOnStateChanged};
  174.     __property TFTPProtocolStateChanged OnProtocolStateChanged = {read=FOnProtocolStateChanged, write=FOnProtocolStateChanged
  175.         };
  176.     __property TFTPBusy OnBusy = {read=FOnBusy, write=FOnBusy};
  177.     __property Classes::TNotifyEvent OnLog = {read=FOnLog, write=FOnLog};
  178.     __property TFTPDocInput OnDocInput = {read=FOnDocInput, write=FOnDocInput};
  179.     __property TFTPDocOutput OnDocOutput = {read=FOnDocOutput, write=FOnDocOutput};
  180.     __property Classes::TNotifyEvent OnAbort = {read=FOnAbort, write=FOnAbort};
  181.     __property Classes::TNotifyEvent OnAccount = {read=FOnAccount, write=FOnAccount};
  182.     __property Classes::TNotifyEvent OnChangeDir = {read=FOnChangeDir, write=FOnChangeDir};
  183.     __property Classes::TNotifyEvent OnCreateDir = {read=FOnCreateDir, write=FOnCreateDir};
  184.     __property Classes::TNotifyEvent OnDeleteDir = {read=FOnDeleteDir, write=FOnDeleteDir};
  185.     __property Classes::TNotifyEvent OnDelFile = {read=FOnDelFile, write=FOnDelFile};
  186.     __property Classes::TNotifyEvent OnHelp = {read=FOnHelp, write=FOnHelp};
  187.     __property Classes::TNotifyEvent Onmode = {read=FOnmode, write=FOnmode};
  188.     __property Classes::TNotifyEvent OnNoop = {read=FOnNoop, write=FOnNoop};
  189.     __property Classes::TNotifyEvent OnParentDir = {read=FOnParentDir, write=FOnParentDir};
  190.     __property Classes::TNotifyEvent OnPrintDir = {read=FOnPrintDir, write=FOnPrintDir};
  191.     __property Classes::TNotifyEvent OnExecute = {read=FOnExecute, write=FOnExecute};
  192.     __property Classes::TNotifyEvent OnStatus = {read=FOnStatus, write=FOnStatus};
  193.     __property Classes::TNotifyEvent OnReinitialize = {read=FOnReinitialize, write=FOnReinitialize};
  194.     __property Classes::TNotifyEvent OnSystem = {read=FOnSystem, write=FOnSystem};
  195.     __property Classes::TNotifyEvent OnSite = {read=FOnSite, write=FOnSite};
  196.     __property Classes::TNotifyEvent OnType = {read=FOnType, write=FOnType};
  197.     __property TFTPListItem OnListItem = {read=FOnListItem, write=FOnListItem};
  198. public:
  199.     /* TOleControl.Create */ __fastcall virtual TFTP(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  200.         AOwner) { }
  201.     /* TOleControl.Destroy */ __fastcall virtual ~TFTP(void) { }
  202.     
  203. public:
  204.     /* TWinControl.CreateParented */ __fastcall TFTP(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
  205.         ) { }
  206.     
  207. };
  208.  
  209. typedef void __fastcall (__closure *THTMLError)(System::TObject* Sender, short Number,  System::AnsiString &
  210.     Description, int Scode, const System::AnsiString Source, const System::AnsiString HelpFile, int HelpContext
  211.     , Word &CancelDisplay);
  212.  
  213. typedef void __fastcall (__closure *THTMLDocInput)(System::TObject* Sender, const System::Variant &DocInput
  214.     );
  215.  
  216. typedef void __fastcall (__closure *THTMLDocOutput)(System::TObject* Sender, const System::Variant &DocOutput
  217.     );
  218.  
  219. typedef void __fastcall (__closure *THTMLDoRequestDoc)(System::TObject* Sender, const System::AnsiString 
  220.     URL, const System::Variant &Element, const System::Variant &DocInput, Word &EnableDefault);
  221.  
  222. typedef void __fastcall (__closure *THTMLDoRequestEmbedded)(System::TObject* Sender, const System::AnsiString 
  223.     URL, const System::Variant &Element, const System::Variant &DocInput, Word &EnableDefault);
  224.  
  225. typedef void __fastcall (__closure *THTMLDoRequestSubmit)(System::TObject* Sender, const System::AnsiString 
  226.     URL, const System::Variant &Form, const System::Variant &DocOutput, Word &EnableDefault);
  227.  
  228. typedef void __fastcall (__closure *THTMLDoNewElement)(System::TObject* Sender, const System::AnsiString 
  229.     ElemType, Word EndTag, const System::Variant &Attrs, const System::AnsiString Text, Word &EnableDefault
  230.     );
  231.  
  232. class __declspec(delphiclass) THTML;
  233. class __declspec(pascalimplementation) THTML : public Olectrls::TOleControl
  234. {
  235.     typedef Olectrls::TOleControl inherited;
  236.     
  237. private:
  238.     THTMLError FOnError;
  239.     THTMLDocInput FOnDocInput;
  240.     THTMLDocOutput FOnDocOutput;
  241.     Classes::TNotifyEvent FOnParseComplete;
  242.     Classes::TNotifyEvent FOnLayoutComplete;
  243.     Classes::TNotifyEvent FOnTimeout;
  244.     Classes::TNotifyEvent FOnBeginRetrieval;
  245.     Classes::TNotifyEvent FOnUpdateRetrieval;
  246.     Classes::TNotifyEvent FOnEndRetrieval;
  247.     THTMLDoRequestDoc FOnDoRequestDoc;
  248.     THTMLDoRequestEmbedded FOnDoRequestEmbedded;
  249.     THTMLDoRequestSubmit FOnDoRequestSubmit;
  250.     THTMLDoNewElement FOnDoNewElement;
  251.     
  252. protected:
  253.     virtual void __fastcall InitControlData(void);
  254.     
  255. public:
  256.     void __stdcall AboutBox(void);
  257.     void __stdcall RequestDoc(const System::AnsiString URL);
  258.     void __stdcall RequestAllEmbedded(void);
  259.     void __stdcall Cancel(const System::Variant &Message);
  260.     __property System::Variant DocInput = {read=GetVariantProp, index=1002};
  261.     __property System::Variant DocOutput = {read=GetVariantProp, index=1003};
  262.     __property System::AnsiString URL = {read=GetStringProp, index=1001, nodefault};
  263.     __property System::AnsiString RequestURL = {read=GetStringProp, index=2, nodefault};
  264.     __property System::AnsiString BaseURL = {read=GetStringProp, index=3, nodefault};
  265.     __property System::Variant Forms = {read=GetVariantProp, index=4};
  266.     __property int TotalWidth = {read=GetIntegerProp, index=5, nodefault};
  267.     __property int TotalHeight = {read=GetIntegerProp, index=6, nodefault};
  268.     __property int RetrieveBytesTotal = {read=GetIntegerProp, index=7, nodefault};
  269.     __property int RetrieveBytesDone = {read=GetIntegerProp, index=8, nodefault};
  270.     __property Word ParseDone = {read=GetOleBoolProp, index=9, nodefault};
  271.     __property Word LayoutDone = {read=GetOleBoolProp, index=10, nodefault};
  272.     __property System::AnsiString SourceText = {read=GetStringProp, index=14, nodefault};
  273.     __property Graphics::TColor DocBackColor = {read=GetColorProp, index=23, nodefault};
  274.     __property Graphics::TColor DocForeColor = {read=GetColorProp, index=24, nodefault};
  275.     __property Graphics::TColor DocLinkColor = {read=GetColorProp, index=25, nodefault};
  276.     __property Graphics::TColor DocVisitedColor = {read=GetColorProp, index=26, nodefault};
  277.     __property System::Variant Errors = {read=GetVariantProp, index=508};
  278.     
  279. __published:
  280.     __property Align ;
  281.     __property ParentColor ;
  282.     __property ParentFont ;
  283.     __property TabStop ;
  284.     __property DragCursor ;
  285.     __property DragMode ;
  286.     __property ParentShowHint ;
  287.     __property PopupMenu ;
  288.     __property ShowHint ;
  289.     __property TabOrder ;
  290.     __property Visible ;
  291.     __property OnDragDrop ;
  292.     __property OnDragOver ;
  293.     __property OnEndDrag ;
  294.     __property OnEnter ;
  295.     __property OnExit ;
  296.     __property OnStartDrag ;
  297.     __property OnClick ;
  298.     __property OnDblClick ;
  299.     __property OnKeyDown ;
  300.     __property OnKeyPress ;
  301.     __property OnKeyUp ;
  302.     __property OnMouseDown ;
  303.     __property OnMouseMove ;
  304.     __property OnMouseUp ;
  305.     __property Word DeferRetrieval = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=11
  306.         , nodefault};
  307.     __property Word ViewSource = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=12, nodefault
  308.         };
  309.     __property Word RetainSource = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=13, 
  310.         nodefault};
  311.     __property Word ElemNotification = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=15
  312.         , nodefault};
  313.     __property int Timeout = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=507, nodefault
  314.         };
  315.     __property Word Redraw = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=17, nodefault
  316.         };
  317.     __property Word UnderlineLinks = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=18
  318.         , nodefault};
  319.     __property Word UseDocColors = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=19, 
  320.         nodefault};
  321.     __property System::AnsiString BackImage = {read=GetStringProp, write=SetStringProp, stored=false, index=20
  322.         , nodefault};
  323.     __property Graphics::TColor BackColor = {read=GetColorProp, write=SetColorProp, stored=false, index=-501
  324.         , nodefault};
  325.     __property Graphics::TColor ForeColor = {read=GetColorProp, write=SetColorProp, stored=false, index=-513
  326.         , nodefault};
  327.     __property Graphics::TColor LinkColor = {read=GetColorProp, write=SetColorProp, stored=false, index=21
  328.         , nodefault};
  329.     __property Graphics::TColor VisitedColor = {read=GetColorProp, write=SetColorProp, stored=false, index=22
  330.         , nodefault};
  331.     __property System::Variant Font = {read=GetVariantProp, write=SetVariantProp, stored=false, index=-512
  332.         };
  333.     __property System::Variant FixedFont = {read=GetVariantProp, write=SetVariantProp, stored=false, index=27
  334.         };
  335.     __property System::Variant Heading1Font = {read=GetVariantProp, write=SetVariantProp, stored=false, 
  336.         index=28};
  337.     __property System::Variant Heading2Font = {read=GetVariantProp, write=SetVariantProp, stored=false, 
  338.         index=29};
  339.     __property System::Variant Heading3Font = {read=GetVariantProp, write=SetVariantProp, stored=false, 
  340.         index=30};
  341.     __property System::Variant Heading4Font = {read=GetVariantProp, write=SetVariantProp, stored=false, 
  342.         index=31};
  343.     __property System::Variant Heading5Font = {read=GetVariantProp, write=SetVariantProp, stored=false, 
  344.         index=32};
  345.     __property System::Variant Heading6Font = {read=GetVariantProp, write=SetVariantProp, stored=false, 
  346.         index=33};
  347.     __property THTMLError OnError = {read=FOnError, write=FOnError};
  348.     __property THTMLDocInput OnDocInput = {read=FOnDocInput, write=FOnDocInput};
  349.     __property THTMLDocOutput OnDocOutput = {read=FOnDocOutput, write=FOnDocOutput};
  350.     __property Classes::TNotifyEvent OnParseComplete = {read=FOnParseComplete, write=FOnParseComplete};
  351.         
  352.     __property Classes::TNotifyEvent OnLayoutComplete = {read=FOnLayoutComplete, write=FOnLayoutComplete
  353.         };
  354.     __property Classes::TNotifyEvent OnTimeout = {read=FOnTimeout, write=FOnTimeout};
  355.     __property Classes::TNotifyEvent OnBeginRetrieval = {read=FOnBeginRetrieval, write=FOnBeginRetrieval
  356.         };
  357.     __property Classes::TNotifyEvent OnUpdateRetrieval = {read=FOnUpdateRetrieval, write=FOnUpdateRetrieval
  358.         };
  359.     __property Classes::TNotifyEvent OnEndRetrieval = {read=FOnEndRetrieval, write=FOnEndRetrieval};
  360.     __property THTMLDoRequestDoc OnDoRequestDoc = {read=FOnDoRequestDoc, write=FOnDoRequestDoc};
  361.     __property THTMLDoRequestEmbedded OnDoRequestEmbedded = {read=FOnDoRequestEmbedded, write=FOnDoRequestEmbedded
  362.         };
  363.     __property THTMLDoRequestSubmit OnDoRequestSubmit = {read=FOnDoRequestSubmit, write=FOnDoRequestSubmit
  364.         };
  365.     __property THTMLDoNewElement OnDoNewElement = {read=FOnDoNewElement, write=FOnDoNewElement};
  366. public:
  367.         
  368.     /* TOleControl.Create */ __fastcall virtual THTML(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  369.         AOwner) { }
  370.     /* TOleControl.Destroy */ __fastcall virtual ~THTML(void) { }
  371.     
  372. public:
  373.     /* TWinControl.CreateParented */ __fastcall THTML(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
  374.         ) { }
  375.     
  376. };
  377.  
  378. typedef void __fastcall (__closure *THTTPError)(System::TObject* Sender, short Number,  System::AnsiString &
  379.     Description, int Scode, const System::AnsiString Source, const System::AnsiString HelpFile, int HelpContext
  380.     , Word &CancelDisplay);
  381.  
  382. typedef void __fastcall (__closure *THTTPTimeout)(System::TObject* Sender, short event, Word &Continue
  383.     );
  384.  
  385. typedef void __fastcall (__closure *THTTPStateChanged)(System::TObject* Sender, short State);
  386.  
  387. typedef void __fastcall (__closure *THTTPProtocolStateChanged)(System::TObject* Sender, short ProtocolState
  388.     );
  389.  
  390. typedef void __fastcall (__closure *THTTPBusy)(System::TObject* Sender, Word isBusy);
  391.  
  392. typedef void __fastcall (__closure *THTTPDocInput)(System::TObject* Sender, const System::Variant &DocInput
  393.     );
  394.  
  395. typedef void __fastcall (__closure *THTTPDocOutput)(System::TObject* Sender, const System::Variant &DocOutput
  396.     );
  397.  
  398. class __declspec(delphiclass) THTTP;
  399. class __declspec(pascalimplementation) THTTP : public Olectrls::TOleControl
  400. {
  401.     typedef Olectrls::TOleControl inherited;
  402.     
  403. private:
  404.     THTTPError FOnError;
  405.     THTTPTimeout FOnTimeout;
  406.     Classes::TNotifyEvent FOnCancel;
  407.     THTTPStateChanged FOnStateChanged;
  408.     THTTPProtocolStateChanged FOnProtocolStateChanged;
  409.     THTTPBusy FOnBusy;
  410.     Classes::TNotifyEvent FOnLog;
  411.     THTTPDocInput FOnDocInput;
  412.     THTTPDocOutput FOnDocOutput;
  413.     int __stdcall Get_Timeout(short event);
  414.     void __stdcall Set_Timeout(short event, int Value);
  415.     void __stdcall Set_EnableTimer(short event, Word Value);
  416.     
  417. protected:
  418.     virtual void __fastcall InitControlData(void);
  419.     
  420. public:
  421.     void __stdcall AboutBox(void);
  422.     void __stdcall Cancel(void);
  423.     void __stdcall SendDoc(const System::Variant &URL, const System::Variant &Headers, const System::Variant 
  424.         &InputData, const System::Variant &InputFile, const System::Variant &OutputFile);
  425.     void __stdcall GetDoc(const System::Variant &URL, const System::Variant &Headers, const System::Variant 
  426.         &OutputFile);
  427.     __property short State = {read=GetSmallintProp, index=503, nodefault};
  428.     __property short ProtocolState = {read=GetSmallintProp, index=504, nodefault};
  429.     __property System::AnsiString ReplyString = {read=GetStringProp, index=505, nodefault};
  430.     __property int ReplyCode = {read=GetIntegerProp, index=506, nodefault};
  431.     __property System::Variant Errors = {read=GetVariantProp, index=508};
  432.     __property Word Busy = {read=GetOleBoolProp, index=509, nodefault};
  433.     __property System::AnsiString StateString = {read=GetStringProp, index=511, nodefault};
  434.     __property System::AnsiString ProtocolStateString = {read=GetStringProp, index=512, nodefault};
  435.     __property System::Variant DocInput = {read=GetVariantProp, index=1002};
  436.     __property System::Variant DocOutput = {read=GetVariantProp, index=1003};
  437.     __property int Timeout[short event] = {read=Get_Timeout, write=Set_Timeout};
  438.     __property Word EnableTimer[short event] = {write=Set_EnableTimer};
  439.     
  440. __published:
  441.     __property System::AnsiString RemoteHost = {read=GetStringProp, write=SetStringProp, stored=false, 
  442.         index=0, nodefault};
  443.     __property int RemotePort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=502, nodefault
  444.         };
  445.     __property short NotificationMode = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=510
  446.         , nodefault};
  447.     __property Word Logging = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=514, nodefault
  448.         };
  449.     __property System::AnsiString Document = {read=GetStringProp, write=SetStringProp, stored=false, index=10
  450.         , nodefault};
  451.     __property Olectrls::TOleEnum Method = {read=GetOleEnumProp, write=SetOleEnumProp, stored=false, index=11
  452.         , nodefault};
  453.     __property System::AnsiString URL = {read=GetStringProp, write=SetStringProp, stored=false, index=1001
  454.         , nodefault};
  455.     __property THTTPError OnError = {read=FOnError, write=FOnError};
  456.     __property THTTPTimeout OnTimeout = {read=FOnTimeout, write=FOnTimeout};
  457.     __property Classes::TNotifyEvent OnCancel = {read=FOnCancel, write=FOnCancel};
  458.     __property THTTPStateChanged OnStateChanged = {read=FOnStateChanged, write=FOnStateChanged};
  459.     __property THTTPProtocolStateChanged OnProtocolStateChanged = {read=FOnProtocolStateChanged, write=
  460.         FOnProtocolStateChanged};
  461.     __property THTTPBusy OnBusy = {read=FOnBusy, write=FOnBusy};
  462.     __property Classes::TNotifyEvent OnLog = {read=FOnLog, write=FOnLog};
  463.     __property THTTPDocInput OnDocInput = {read=FOnDocInput, write=FOnDocInput};
  464.     __property THTTPDocOutput OnDocOutput = {read=FOnDocOutput, write=FOnDocOutput};
  465. public:
  466.     /* TOleControl.Create */ __fastcall virtual THTTP(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  467.         AOwner) { }
  468.     /* TOleControl.Destroy */ __fastcall virtual ~THTTP(void) { }
  469.     
  470. public:
  471.     /* TWinControl.CreateParented */ __fastcall THTTP(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
  472.         ) { }
  473.     
  474. };
  475.  
  476. typedef void __fastcall (__closure *TNNTPError)(System::TObject* Sender, short Number,  System::AnsiString &
  477.     Description, int Scode, const System::AnsiString Source, const System::AnsiString HelpFile, int HelpContext
  478.     , Word &CancelDisplay);
  479.  
  480. typedef void __fastcall (__closure *TNNTPTimeout)(System::TObject* Sender, short event, Word &Continue
  481.     );
  482.  
  483. typedef void __fastcall (__closure *TNNTPStateChanged)(System::TObject* Sender, short State);
  484.  
  485. typedef void __fastcall (__closure *TNNTPProtocolStateChanged)(System::TObject* Sender, short ProtocolState
  486.     );
  487.  
  488. typedef void __fastcall (__closure *TNNTPBusy)(System::TObject* Sender, Word isBusy);
  489.  
  490. typedef void __fastcall (__closure *TNNTPDocInput)(System::TObject* Sender, const System::Variant &DocInput
  491.     );
  492.  
  493. typedef void __fastcall (__closure *TNNTPDocOutput)(System::TObject* Sender, const System::Variant &DocOutput
  494.     );
  495.  
  496. typedef void __fastcall (__closure *TNNTPAuthenticateRequest)(System::TObject* Sender,  System::AnsiString &
  497.     UserId,  System::AnsiString &Password);
  498.  
  499. typedef void __fastcall (__closure *TNNTPAuthenticateResponse)(System::TObject* Sender, Word Authenticated
  500.     );
  501.  
  502. typedef void __fastcall (__closure *TNNTPBanner)(System::TObject* Sender, const System::AnsiString Banner
  503.     );
  504.  
  505. typedef void __fastcall (__closure *TNNTPSelectGroup)(System::TObject* Sender, const System::AnsiString 
  506.     groupName, int firstMessage, int lastMessage, int msgCount);
  507.  
  508. typedef void __fastcall (__closure *TNNTPNextArticle)(System::TObject* Sender, int articleNumber, const System::AnsiString 
  509.     messageID);
  510.  
  511. typedef void __fastcall (__closure *TNNTPlastArticle)(System::TObject* Sender, int articleNumber, const System::AnsiString 
  512.     messageID);
  513.  
  514. typedef void __fastcall (__closure *TNNTPArticleStatus)(System::TObject* Sender, int articleNumber, 
  515.     const System::AnsiString messageID);
  516.  
  517. class __declspec(delphiclass) TNNTP;
  518. class __declspec(pascalimplementation) TNNTP : public Olectrls::TOleControl
  519. {
  520.     typedef Olectrls::TOleControl inherited;
  521.     
  522. private:
  523.     TNNTPError FOnError;
  524.     TNNTPTimeout FOnTimeout;
  525.     Classes::TNotifyEvent FOnCancel;
  526.     TNNTPStateChanged FOnStateChanged;
  527.     TNNTPProtocolStateChanged FOnProtocolStateChanged;
  528.     TNNTPBusy FOnBusy;
  529.     Classes::TNotifyEvent FOnLog;
  530.     TNNTPDocInput FOnDocInput;
  531.     TNNTPDocOutput FOnDocOutput;
  532.     TNNTPAuthenticateRequest FOnAuthenticateRequest;
  533.     TNNTPAuthenticateResponse FOnAuthenticateResponse;
  534.     TNNTPBanner FOnBanner;
  535.     TNNTPSelectGroup FOnSelectGroup;
  536.     TNNTPNextArticle FOnNextArticle;
  537.     TNNTPlastArticle FOnlastArticle;
  538.     TNNTPArticleStatus FOnArticleStatus;
  539.     int __stdcall Get_Timeout(short event);
  540.     void __stdcall Set_Timeout(short event, int Value);
  541.     void __stdcall Set_EnableTimer(short event, Word Value);
  542.     
  543. protected:
  544.     virtual void __fastcall InitControlData(void);
  545.     
  546. public:
  547.     void __stdcall AboutBox(void);
  548.     void __stdcall Cancel(void);
  549.     void __stdcall Connect(const System::Variant &RemoteHost, const System::Variant &RemotePort);
  550.     void __stdcall SendDoc(const System::Variant &URL, const System::Variant &Headers, const System::Variant 
  551.         &InputData, const System::Variant &InputFile, const System::Variant &OutputFile);
  552.     void __stdcall GetDoc(const System::Variant &URL, const System::Variant &Headers, const System::Variant 
  553.         &OutputFile);
  554.     void __stdcall GetAdministrationFile(const System::Variant &LastUpdate);
  555.     void __stdcall SelectGroup(const System::AnsiString groupName);
  556.     void __stdcall SetNextArticle(void);
  557.     void __stdcall SetLastArticle(void);
  558.     void __stdcall GetArticleNumbers(const System::Variant &groupName);
  559.     void __stdcall GetArticleHeaders(const System::AnsiString header, const System::Variant &firstArticle
  560.         , const System::Variant &lastArticle);
  561.     void __stdcall GetArticleByArticleNumber(const System::Variant &articleNumber);
  562.     void __stdcall GetArticleByMessageID(const System::AnsiString messageID);
  563.     void __stdcall GetHeaderByArticleNumber(const System::Variant &articleNumber);
  564.     void __stdcall GetHeaderByMessageID(const System::AnsiString messageID);
  565.     void __stdcall GetBodyByArticleNumber(const System::Variant &articleNumber);
  566.     void __stdcall GetBodyByMessageID(const System::AnsiString messageID);
  567.     void __stdcall GetStatByArticleNumber(const System::Variant &articleNumber);
  568.     void __stdcall GetOverviewFormat(void);
  569.     void __stdcall GetOverview(const System::Variant &firstArticle, const System::Variant &lastArticle)
  570.         ;
  571.     void __stdcall ListGroups(void);
  572.     void __stdcall ListGroupDescriptions(void);
  573.     void __stdcall ListNewGroups(const System::Variant &LastUpdate);
  574.     void __stdcall Quit(void);
  575.     __property short State = {read=GetSmallintProp, index=503, nodefault};
  576.     __property short ProtocolState = {read=GetSmallintProp, index=504, nodefault};
  577.     __property System::AnsiString ReplyString = {read=GetStringProp, index=505, nodefault};
  578.     __property int ReplyCode = {read=GetIntegerProp, index=506, nodefault};
  579.     __property System::Variant Errors = {read=GetVariantProp, index=508};
  580.     __property Word Busy = {read=GetOleBoolProp, index=509, nodefault};
  581.     __property System::AnsiString StateString = {read=GetStringProp, index=511, nodefault};
  582.     __property System::AnsiString ProtocolStateString = {read=GetStringProp, index=512, nodefault};
  583.     __property System::Variant DocInput = {read=GetVariantProp, index=1002};
  584.     __property System::Variant DocOutput = {read=GetVariantProp, index=1003};
  585.     __property Word ArticleNumbersSupported = {read=GetOleBoolProp, index=1, nodefault};
  586.     __property Word OverviewSupported = {read=GetOleBoolProp, index=2, nodefault};
  587.     __property Word PostingAllowed = {read=GetOleBoolProp, index=3, nodefault};
  588.     __property int Timeout[short event] = {read=Get_Timeout, write=Set_Timeout};
  589.     __property Word EnableTimer[short event] = {write=Set_EnableTimer};
  590.     
  591. __published:
  592.     __property System::AnsiString RemoteHost = {read=GetStringProp, write=SetStringProp, stored=false, 
  593.         index=0, nodefault};
  594.     __property int RemotePort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=502, nodefault
  595.         };
  596.     __property short NotificationMode = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=510
  597.         , nodefault};
  598.     __property Word Logging = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=514, nodefault
  599.         };
  600.     __property System::AnsiString URL = {read=GetStringProp, write=SetStringProp, stored=false, index=1001
  601.         , nodefault};
  602.     __property double LastUpdate = {read=GetOleDateProp, write=SetOleDateProp, stored=false, index=4};
  603.     __property TNNTPError OnError = {read=FOnError, write=FOnError};
  604.     __property TNNTPTimeout OnTimeout = {read=FOnTimeout, write=FOnTimeout};
  605.     __property Classes::TNotifyEvent OnCancel = {read=FOnCancel, write=FOnCancel};
  606.     __property TNNTPStateChanged OnStateChanged = {read=FOnStateChanged, write=FOnStateChanged};
  607.     __property TNNTPProtocolStateChanged OnProtocolStateChanged = {read=FOnProtocolStateChanged, write=
  608.         FOnProtocolStateChanged};
  609.     __property TNNTPBusy OnBusy = {read=FOnBusy, write=FOnBusy};
  610.     __property Classes::TNotifyEvent OnLog = {read=FOnLog, write=FOnLog};
  611.     __property TNNTPDocInput OnDocInput = {read=FOnDocInput, write=FOnDocInput};
  612.     __property TNNTPDocOutput OnDocOutput = {read=FOnDocOutput, write=FOnDocOutput};
  613.     __property TNNTPAuthenticateRequest OnAuthenticateRequest = {read=FOnAuthenticateRequest, write=FOnAuthenticateRequest
  614.         };
  615.     __property TNNTPAuthenticateResponse OnAuthenticateResponse = {read=FOnAuthenticateResponse, write=
  616.         FOnAuthenticateResponse};
  617.     __property TNNTPBanner OnBanner = {read=FOnBanner, write=FOnBanner};
  618.     __property TNNTPSelectGroup OnSelectGroup = {read=FOnSelectGroup, write=FOnSelectGroup};
  619.     __property TNNTPNextArticle OnNextArticle = {read=FOnNextArticle, write=FOnNextArticle};
  620.     __property TNNTPlastArticle OnlastArticle = {read=FOnlastArticle, write=FOnlastArticle};
  621.     __property TNNTPArticleStatus OnArticleStatus = {read=FOnArticleStatus, write=FOnArticleStatus};
  622. public:
  623.         
  624.     /* TOleControl.Create */ __fastcall virtual TNNTP(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  625.         AOwner) { }
  626.     /* TOleControl.Destroy */ __fastcall virtual ~TNNTP(void) { }
  627.     
  628. public:
  629.     /* TWinControl.CreateParented */ __fastcall TNNTP(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
  630.         ) { }
  631.     
  632. };
  633.  
  634. typedef void __fastcall (__closure *TPOPError)(System::TObject* Sender, short Number,  System::AnsiString &
  635.     Description, int Scode, const System::AnsiString Source, const System::AnsiString HelpFile, int HelpContext
  636.     , Word &CancelDisplay);
  637.  
  638. typedef void __fastcall (__closure *TPOPTimeout)(System::TObject* Sender, short event, Word &Continue
  639.     );
  640.  
  641. typedef void __fastcall (__closure *TPOPStateChanged)(System::TObject* Sender, short State);
  642.  
  643. typedef void __fastcall (__closure *TPOPProtocolStateChanged)(System::TObject* Sender, short ProtocolState
  644.     );
  645.  
  646. typedef void __fastcall (__closure *TPOPBusy)(System::TObject* Sender, Word isBusy);
  647.  
  648. typedef void __fastcall (__closure *TPOPDocOutput)(System::TObject* Sender, const System::Variant &DocOutput
  649.     );
  650.  
  651. typedef void __fastcall (__closure *TPOPMessageSize)(System::TObject* Sender, int msgSize);
  652.  
  653. typedef void __fastcall (__closure *TPOPLast)(System::TObject* Sender, int Number);
  654.  
  655. typedef void __fastcall (__closure *TPOPRefreshMessageCount)(System::TObject* Sender, int Number);
  656.  
  657. class __declspec(delphiclass) TPOP;
  658. class __declspec(pascalimplementation) TPOP : public Olectrls::TOleControl
  659. {
  660.     typedef Olectrls::TOleControl inherited;
  661.     
  662. private:
  663.     TPOPError FOnError;
  664.     TPOPTimeout FOnTimeout;
  665.     Classes::TNotifyEvent FOnCancel;
  666.     TPOPStateChanged FOnStateChanged;
  667.     TPOPProtocolStateChanged FOnProtocolStateChanged;
  668.     TPOPBusy FOnBusy;
  669.     Classes::TNotifyEvent FOnLog;
  670.     TPOPDocOutput FOnDocOutput;
  671.     TPOPMessageSize FOnMessageSize;
  672.     Classes::TNotifyEvent FOnDelete;
  673.     Classes::TNotifyEvent FOnReset;
  674.     TPOPLast FOnLast;
  675.     Classes::TNotifyEvent FOnNoop;
  676.     TPOPRefreshMessageCount FOnRefreshMessageCount;
  677.     int __stdcall Get_Timeout(short event);
  678.     void __stdcall Set_Timeout(short event, int Value);
  679.     void __stdcall Set_EnableTimer(short event, Word Value);
  680.     
  681. protected:
  682.     virtual void __fastcall InitControlData(void);
  683.     
  684. public:
  685.     void __stdcall AboutBox(void);
  686.     void __stdcall Cancel(void);
  687.     void __stdcall Connect(const System::Variant &RemoteHost, const System::Variant &RemotePort);
  688.     void __stdcall Authenticate(const System::Variant &UserId, const System::Variant &Password);
  689.     void __stdcall GetDoc(const System::Variant &URL, const System::Variant &Headers, const System::Variant 
  690.         &OutputFile);
  691.     void __stdcall MessageSize(short MessageNumber);
  692.     void __stdcall RetrieveMessage(short MessageNumber);
  693.     void __stdcall Delete(short MessageNumber);
  694.     void __stdcall Reset(void);
  695.     void __stdcall Last(void);
  696.     void __stdcall Noop(void);
  697.     void __stdcall TopMessage(short MessageNumber);
  698.     void __stdcall Quit(void);
  699.     void __stdcall RefreshMessageCount(void);
  700.     __property short State = {read=GetSmallintProp, index=503, nodefault};
  701.     __property short ProtocolState = {read=GetSmallintProp, index=504, nodefault};
  702.     __property System::AnsiString ReplyString = {read=GetStringProp, index=505, nodefault};
  703.     __property int ReplyCode = {read=GetIntegerProp, index=506, nodefault};
  704.     __property System::Variant Errors = {read=GetVariantProp, index=508};
  705.     __property Word Busy = {read=GetOleBoolProp, index=509, nodefault};
  706.     __property System::AnsiString StateString = {read=GetStringProp, index=511, nodefault};
  707.     __property System::AnsiString ProtocolStateString = {read=GetStringProp, index=512, nodefault};
  708.     __property System::Variant DocOutput = {read=GetVariantProp, index=1003};
  709.     __property Word TopSupported = {read=GetOleBoolProp, index=2452, nodefault};
  710.     __property short MessageCount = {read=GetSmallintProp, index=2454, nodefault};
  711.     __property int Timeout[short event] = {read=Get_Timeout, write=Set_Timeout};
  712.     __property Word EnableTimer[short event] = {write=Set_EnableTimer};
  713.     
  714. __published:
  715.     __property System::AnsiString RemoteHost = {read=GetStringProp, write=SetStringProp, stored=false, 
  716.         index=0, nodefault};
  717.     __property int RemotePort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=502, nodefault
  718.         };
  719.     __property short NotificationMode = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=510
  720.         , nodefault};
  721.     __property Word Logging = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=514, nodefault
  722.         };
  723.     __property System::AnsiString UserId = {read=GetStringProp, write=SetStringProp, stored=false, index=601
  724.         , nodefault};
  725.     __property System::AnsiString Password = {read=GetStringProp, write=SetStringProp, stored=false, index=602
  726.         , nodefault};
  727.     __property System::AnsiString URL = {read=GetStringProp, write=SetStringProp, stored=false, index=1001
  728.         , nodefault};
  729.     __property int TopLines = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=2453, nodefault
  730.         };
  731.     __property TPOPError OnError = {read=FOnError, write=FOnError};
  732.     __property TPOPTimeout OnTimeout = {read=FOnTimeout, write=FOnTimeout};
  733.     __property Classes::TNotifyEvent OnCancel = {read=FOnCancel, write=FOnCancel};
  734.     __property TPOPStateChanged OnStateChanged = {read=FOnStateChanged, write=FOnStateChanged};
  735.     __property TPOPProtocolStateChanged OnProtocolStateChanged = {read=FOnProtocolStateChanged, write=FOnProtocolStateChanged
  736.         };
  737.     __property TPOPBusy OnBusy = {read=FOnBusy, write=FOnBusy};
  738.     __property Classes::TNotifyEvent OnLog = {read=FOnLog, write=FOnLog};
  739.     __property TPOPDocOutput OnDocOutput = {read=FOnDocOutput, write=FOnDocOutput};
  740.     __property TPOPMessageSize OnMessageSize = {read=FOnMessageSize, write=FOnMessageSize};
  741.     __property Classes::TNotifyEvent OnDelete = {read=FOnDelete, write=FOnDelete};
  742.     __property Classes::TNotifyEvent OnReset = {read=FOnReset, write=FOnReset};
  743.     __property TPOPLast OnLast = {read=FOnLast, write=FOnLast};
  744.     __property Classes::TNotifyEvent OnNoop = {read=FOnNoop, write=FOnNoop};
  745.     __property TPOPRefreshMessageCount OnRefreshMessageCount = {read=FOnRefreshMessageCount, write=FOnRefreshMessageCount
  746.         };
  747. public:
  748.     /* TOleControl.Create */ __fastcall virtual TPOP(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  749.         AOwner) { }
  750.     /* TOleControl.Destroy */ __fastcall virtual ~TPOP(void) { }
  751.     
  752. public:
  753.     /* TWinControl.CreateParented */ __fastcall TPOP(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
  754.         ) { }
  755.     
  756. };
  757.  
  758. typedef void __fastcall (__closure *TSMTPError)(System::TObject* Sender, short Number,  System::AnsiString &
  759.     Description, int Scode, const System::AnsiString Source, const System::AnsiString HelpFile, int HelpContext
  760.     , Word &CancelDisplay);
  761.  
  762. typedef void __fastcall (__closure *TSMTPTimeout)(System::TObject* Sender, short event, Word &Continue
  763.     );
  764.  
  765. typedef void __fastcall (__closure *TSMTPStateChanged)(System::TObject* Sender, short State);
  766.  
  767. typedef void __fastcall (__closure *TSMTPProtocolStateChanged)(System::TObject* Sender, short ProtocolState
  768.     );
  769.  
  770. typedef void __fastcall (__closure *TSMTPBusy)(System::TObject* Sender, Word isBusy);
  771.  
  772. typedef void __fastcall (__closure *TSMTPDocInput)(System::TObject* Sender, const System::Variant &DocInput
  773.     );
  774.  
  775. class __declspec(delphiclass) TSMTP;
  776. class __declspec(pascalimplementation) TSMTP : public Olectrls::TOleControl
  777. {
  778.     typedef Olectrls::TOleControl inherited;
  779.     
  780. private:
  781.     TSMTPError FOnError;
  782.     TSMTPTimeout FOnTimeout;
  783.     Classes::TNotifyEvent FOnCancel;
  784.     TSMTPStateChanged FOnStateChanged;
  785.     TSMTPProtocolStateChanged FOnProtocolStateChanged;
  786.     TSMTPBusy FOnBusy;
  787.     Classes::TNotifyEvent FOnLog;
  788.     TSMTPDocInput FOnDocInput;
  789.     Classes::TNotifyEvent FOnReset;
  790.     Classes::TNotifyEvent FOnVerify;
  791.     Classes::TNotifyEvent FOnExpand;
  792.     Classes::TNotifyEvent FOnHelp;
  793.     Classes::TNotifyEvent FOnNoop;
  794.     int __stdcall Get_Timeout(short event);
  795.     void __stdcall Set_Timeout(short event, int Value);
  796.     void __stdcall Set_EnableTimer(short event, Word Value);
  797.     
  798. protected:
  799.     virtual void __fastcall InitControlData(void);
  800.     
  801. public:
  802.     void __stdcall AboutBox(void);
  803.     void __stdcall Cancel(void);
  804.     void __stdcall Connect(const System::Variant &RemoteHost, const System::Variant &RemotePort);
  805.     void __stdcall SendDoc(const System::Variant &URL, const System::Variant &Headers, const System::Variant 
  806.         &InputData, const System::Variant &InputFile, const System::Variant &OutputFile);
  807.     void __stdcall Reset(void);
  808.     void __stdcall Verify(const System::AnsiString name);
  809.     void __stdcall Expand(const System::AnsiString name);
  810.     void __stdcall Help(const System::Variant &helpTopic);
  811.     void __stdcall Noop(void);
  812.     void __stdcall Quit(void);
  813.     __property short State = {read=GetSmallintProp, index=503, nodefault};
  814.     __property short ProtocolState = {read=GetSmallintProp, index=504, nodefault};
  815.     __property System::AnsiString ReplyString = {read=GetStringProp, index=505, nodefault};
  816.     __property int ReplyCode = {read=GetIntegerProp, index=506, nodefault};
  817.     __property System::Variant Errors = {read=GetVariantProp, index=508};
  818.     __property Word Busy = {read=GetOleBoolProp, index=509, nodefault};
  819.     __property System::AnsiString StateString = {read=GetStringProp, index=511, nodefault};
  820.     __property System::AnsiString ProtocolStateString = {read=GetStringProp, index=512, nodefault};
  821.     __property System::Variant DocInput = {read=GetVariantProp, index=1002};
  822.     __property int Timeout[short event] = {read=Get_Timeout, write=Set_Timeout};
  823.     __property Word EnableTimer[short event] = {write=Set_EnableTimer};
  824.     
  825. __published:
  826.     __property System::AnsiString RemoteHost = {read=GetStringProp, write=SetStringProp, stored=false, 
  827.         index=0, nodefault};
  828.     __property int RemotePort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=502, nodefault
  829.         };
  830.     __property short NotificationMode = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=510
  831.         , nodefault};
  832.     __property Word Logging = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=514, nodefault
  833.         };
  834.     __property System::AnsiString URL = {read=GetStringProp, write=SetStringProp, stored=false, index=1001
  835.         , nodefault};
  836.     __property TSMTPError OnError = {read=FOnError, write=FOnError};
  837.     __property TSMTPTimeout OnTimeout = {read=FOnTimeout, write=FOnTimeout};
  838.     __property Classes::TNotifyEvent OnCancel = {read=FOnCancel, write=FOnCancel};
  839.     __property TSMTPStateChanged OnStateChanged = {read=FOnStateChanged, write=FOnStateChanged};
  840.     __property TSMTPProtocolStateChanged OnProtocolStateChanged = {read=FOnProtocolStateChanged, write=
  841.         FOnProtocolStateChanged};
  842.     __property TSMTPBusy OnBusy = {read=FOnBusy, write=FOnBusy};
  843.     __property Classes::TNotifyEvent OnLog = {read=FOnLog, write=FOnLog};
  844.     __property TSMTPDocInput OnDocInput = {read=FOnDocInput, write=FOnDocInput};
  845.     __property Classes::TNotifyEvent OnReset = {read=FOnReset, write=FOnReset};
  846.     __property Classes::TNotifyEvent OnVerify = {read=FOnVerify, write=FOnVerify};
  847.     __property Classes::TNotifyEvent OnExpand = {read=FOnExpand, write=FOnExpand};
  848.     __property Classes::TNotifyEvent OnHelp = {read=FOnHelp, write=FOnHelp};
  849.     __property Classes::TNotifyEvent OnNoop = {read=FOnNoop, write=FOnNoop};
  850. public:
  851.     /* TOleControl.Create */ __fastcall virtual TSMTP(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  852.         AOwner) { }
  853.     /* TOleControl.Destroy */ __fastcall virtual ~TSMTP(void) { }
  854.     
  855. public:
  856.     /* TWinControl.CreateParented */ __fastcall TSMTP(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
  857.         ) { }
  858.     
  859. };
  860.  
  861. typedef void __fastcall (__closure *TTCPError)(System::TObject* Sender, short Number,  System::AnsiString &
  862.     Description, int Scode, const System::AnsiString Source, const System::AnsiString HelpFile, int HelpContext
  863.     , Word &CancelDisplay);
  864.  
  865. typedef void __fastcall (__closure *TTCPDataArrival)(System::TObject* Sender, int bytesTotal);
  866.  
  867. typedef void __fastcall (__closure *TTCPConnectionRequest)(System::TObject* Sender, int requestID);
  868.  
  869. typedef void __fastcall (__closure *TTCPSendProgress)(System::TObject* Sender, int bytesSent, int bytesRemaining
  870.     );
  871.  
  872. class __declspec(delphiclass) TTCP;
  873. class __declspec(pascalimplementation) TTCP : public Olectrls::TOleControl
  874. {
  875.     typedef Olectrls::TOleControl inherited;
  876.     
  877. private:
  878.     TTCPError FOnError;
  879.     TTCPDataArrival FOnDataArrival;
  880.     Classes::TNotifyEvent FOnConnect;
  881.     TTCPConnectionRequest FOnConnectionRequest;
  882.     Classes::TNotifyEvent FOnClose;
  883.     TTCPSendProgress FOnSendProgress;
  884.     Classes::TNotifyEvent FOnSendComplete;
  885.     
  886. protected:
  887.     virtual void __fastcall InitControlData(void);
  888.     
  889. public:
  890.     void __stdcall AboutBox(void);
  891.     void __stdcall Connect(const System::Variant &RemoteHost, const System::Variant &RemotePort);
  892.     void __stdcall Listen(void);
  893.     void __stdcall Accept(int requestID);
  894.     void __stdcall SendData(const System::Variant &data);
  895.     void __stdcall GetData(System::Variant &data, const System::Variant &type_, const System::Variant &maxLen
  896.         );
  897.     void __stdcall PeekData(System::Variant &data, const System::Variant &type_, const System::Variant 
  898.         &maxLen);
  899.     void __stdcall Close(void);
  900.     __property System::AnsiString RemoteHostIP = {read=GetStringProp, index=1001, nodefault};
  901.     __property System::AnsiString LocalHostName = {read=GetStringProp, index=1002, nodefault};
  902.     __property System::AnsiString LocalIP = {read=GetStringProp, index=1003, nodefault};
  903.     __property int SocketHandle = {read=GetIntegerProp, index=1004, nodefault};
  904.     __property short State = {read=GetSmallintProp, index=503, nodefault};
  905.     __property int BytesReceived = {read=GetIntegerProp, index=1101, nodefault};
  906.     
  907. __published:
  908.     __property System::AnsiString RemoteHost = {read=GetStringProp, write=SetStringProp, stored=false, 
  909.         index=0, nodefault};
  910.     __property int RemotePort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=502, nodefault
  911.         };
  912.     __property int LocalPort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=1010, nodefault
  913.         };
  914.     __property TTCPError OnError = {read=FOnError, write=FOnError};
  915.     __property TTCPDataArrival OnDataArrival = {read=FOnDataArrival, write=FOnDataArrival};
  916.     __property Classes::TNotifyEvent OnConnect = {read=FOnConnect, write=FOnConnect};
  917.     __property TTCPConnectionRequest OnConnectionRequest = {read=FOnConnectionRequest, write=FOnConnectionRequest
  918.         };
  919.     __property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
  920.     __property TTCPSendProgress OnSendProgress = {read=FOnSendProgress, write=FOnSendProgress};
  921.     __property Classes::TNotifyEvent OnSendComplete = {read=FOnSendComplete, write=FOnSendComplete};
  922. public:
  923.         
  924.     /* TOleControl.Create */ __fastcall virtual TTCP(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  925.         AOwner) { }
  926.     /* TOleControl.Destroy */ __fastcall virtual ~TTCP(void) { }
  927.     
  928. public:
  929.     /* TWinControl.CreateParented */ __fastcall TTCP(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
  930.         ) { }
  931.     
  932. };
  933.  
  934. typedef void __fastcall (__closure *TUDPError)(System::TObject* Sender, short Number,  System::AnsiString &
  935.     Description, int Scode, const System::AnsiString Source, const System::AnsiString HelpFile, int HelpContext
  936.     , Word &CancelDisplay);
  937.  
  938. typedef void __fastcall (__closure *TUDPDataArrival)(System::TObject* Sender, int bytesTotal);
  939.  
  940. class __declspec(delphiclass) TUDP;
  941. class __declspec(pascalimplementation) TUDP : public Olectrls::TOleControl
  942. {
  943.     typedef Olectrls::TOleControl inherited;
  944.     
  945. private:
  946.     TUDPError FOnError;
  947.     TUDPDataArrival FOnDataArrival;
  948.     
  949. protected:
  950.     virtual void __fastcall InitControlData(void);
  951.     
  952. public:
  953.     void __stdcall AboutBox(void);
  954.     void __stdcall SendData(const System::Variant &data);
  955.     void __stdcall GetData(System::Variant &data, const System::Variant &type_);
  956.     __property System::AnsiString RemoteHostIP = {read=GetStringProp, index=1001, nodefault};
  957.     __property System::AnsiString LocalHostName = {read=GetStringProp, index=1002, nodefault};
  958.     __property System::AnsiString LocalIP = {read=GetStringProp, index=1003, nodefault};
  959.     __property int SocketHandle = {read=GetIntegerProp, index=1004, nodefault};
  960.     
  961. __published:
  962.     __property System::AnsiString RemoteHost = {read=GetStringProp, write=SetStringProp, stored=false, 
  963.         index=0, nodefault};
  964.     __property int RemotePort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=502, nodefault
  965.         };
  966.     __property int LocalPort = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=1010, nodefault
  967.         };
  968.     __property TUDPError OnError = {read=FOnError, write=FOnError};
  969.     __property TUDPDataArrival OnDataArrival = {read=FOnDataArrival, write=FOnDataArrival};
  970. public:
  971.     /* TOleControl.Create */ __fastcall virtual TUDP(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  972.         AOwner) { }
  973.     /* TOleControl.Destroy */ __fastcall virtual ~TUDP(void) { }
  974.     
  975. public:
  976.     /* TWinControl.CreateParented */ __fastcall TUDP(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
  977.         ) { }
  978.     
  979. };
  980.  
  981. //-- var, const, procedure ---------------------------------------------------
  982. #define icCompleteMode (Byte)(0)
  983. #define icContinousMode (Byte)(1)
  984. #define prcConnecting (Byte)(1)
  985. #define prcResolvingHost (Byte)(2)
  986. #define prcHostResolved (Byte)(3)
  987. #define prcConnected (Byte)(4)
  988. #define prcDisconnecting (Byte)(5)
  989. #define prcDisconnected (Byte)(6)
  990. #define prcConnectTimeout (Byte)(1)
  991. #define prcReceiveTimeout (Byte)(2)
  992. #define prcUserTimeout (Byte)(65)
  993. #define prcGet (Byte)(1)
  994. #define prcHead (Byte)(2)
  995. #define prcPost (Byte)(3)
  996. #define prcPut (Byte)(4)
  997. #define ftpAscii (Byte)(0)
  998. #define ftpEBCDIC (Byte)(1)
  999. #define ftpImage (Byte)(2)
  1000. #define ftpBinary (Byte)(3)
  1001. #define ftpStream (Byte)(0)
  1002. #define ftpBlock (Byte)(1)
  1003. #define ftpCompressed (Byte)(2)
  1004. #define ftpFile (Byte)(0)
  1005. #define ftpList (Byte)(1)
  1006. #define ftpNameList (Byte)(2)
  1007. #define ftpBase (Byte)(0)
  1008. #define ftpAuthentication (Byte)(1)
  1009. #define ftpTransaction (Byte)(2)
  1010. #define httpBase (Byte)(0)
  1011. #define httpTransferring (Byte)(1)
  1012. #define nntpBase (Byte)(0)
  1013. #define nntpTransaction (Byte)(1)
  1014. #define popBase (Byte)(0)
  1015. #define popAuthorization (Byte)(1)
  1016. #define popTransaction (Byte)(2)
  1017. #define popUpdate (Byte)(3)
  1018. #define smtpBase (Byte)(0)
  1019. #define smtpTransaction (Byte)(1)
  1020. #define sckClosed (Byte)(0)
  1021. #define sckOpen (Byte)(1)
  1022. #define sckListening (Byte)(2)
  1023. #define sckConnectionPending (Byte)(3)
  1024. #define sckResolvingHost (Byte)(4)
  1025. #define sckHostResolved (Byte)(5)
  1026. #define sckConnecting (Byte)(6)
  1027. #define sckConnected (Byte)(7)
  1028. #define sckClosing (Byte)(8)
  1029. #define sckError (Byte)(9)
  1030. #define icDocNone (Byte)(0)
  1031. #define icDocBegin (Byte)(1)
  1032. #define icDocHeaders (Byte)(2)
  1033. #define icDocData (Byte)(3)
  1034. #define icDocError (Byte)(4)
  1035. #define icDocEnd (Byte)(5)
  1036. extern void __fastcall Register(void);
  1037.  
  1038. }    /* namespace Isp */
  1039.  
  1040. #pragma warn .par
  1041. #pragma warn .hid 
  1042. #pragma warn .inl
  1043.  
  1044. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1045. using namespace Isp;
  1046. #endif
  1047. //-- end unit ----------------------------------------------------------------
  1048. #endif    // ISP
  1049.