The source code code is as follows: // "Unit1.h" source code // --------------------------------- ------------------------------------------ # i dndef unit1h # define unit1h // ------------------------------------- ---------------------- # @ 60; classes.hpp $ # @ 62; #include $ # @ 60; controls.hpp $ # @ 62; #include $ # @ 60; stdctrls.hpp $ # @ 62; #include $ # @ 60; forms.hpp $ # @ 62; #include $ # @ 60; comcls.hpp $ # @ 62; #include $ # @ 60; dialogs.hpp $ # @ 62; #include $ # @ 60; extctrls.hpp $ # @ 62; #include $ # @ 60; EXTDLGS.HPP $ # @ 62; #include $ # @ 60; nmstrm .HPP $ # @ 62; #include $ # @ 60; psock.hpp $ # @ 62; // ------------------------------------------------------------------------------------------------------------------------------------------------------------ ------------------------------------------------- Class TForm1: public TForm {__ published: // IDE-managed ComponentsTButton * Button1; TButton * Button2; TNMStrm * NMStrm1; TNMStrmServ * NMStrmServ1; TOpenPictureDialog * OpenPictureDialog1; TImage * Image1; TLabel * Label1; TEdit * Edit1; TButton * Button3; TEdit * Edit2; TSTATUSBAR * STATUSBAR1; VOID __FASTCALL Button3Click (TOBJECT * Sender); void __fastcall button1click (TOBJECT * Sender); void __fastcall button2click ject * Sender); void __fastcall NMStrm1Connect (TObject * Sender); void __fastcall NMStrm1ConnectionFailed (TObject * Sender); void __fastcall NMStrm1Disconnect (TObject * Sender); void __fastcall NMStrm1HostResolved (TComponent * Sender); void __fastcall NMStrm1MessageSent (TObject * Sender); void __fastcall NMStrm1PacketSent (TObject * Sender); void __fastcall NMStrm1Status (TComponent * Sender, AnsiString Status); void __fastcall NMStrm1InvalidHost (bool & Handled); void __fastcall NMStrmServ1ClientContact (TObject * Sender); void __fastcall NMStrmServ1MSG (TComponent * Sender, const AnsiString sFrom, TSTREAM * STRM);
