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