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