//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ScktComp.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TServerSocket *ServerSocket1;
    TClientSocket *ClientSocket1;
    TEdit *SentFloat;
    TLabel *Label1;
    TLabel *Label2;
    TEdit *ReceivedFloat;
    TEdit *SentInt;
    TEdit *ReceivedInt;
    TButton *SendButton;
    void __fastcall ServerSocket1GetThread(TObject *Sender,
          TServerClientWinSocket *ClientSocket,
          TServerClientThread *&SocketThread);
    void __fastcall SendButtonClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);

struct Buffer1
{
 double long DLValue;
 int IntValue;
 } SendBuf;
 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------

class PACKAGE TMyServerThread : public Scktcomp::TServerClientThread
{
  public:
    void __fastcall ClientExecute(void);
    __fastcall TMyServerThread(bool CreateSuspended, TServerClientWinSocket* ASocket);

    struct Buffer1
{
 double long DLValue;
 int IntValue;
 } ReceiveBuf;
};


#endif
