main.h

QAM module to use in Java with an easy interface and powerful performance

        TJvLED *OverFlowLED;
        TJvgLabel *JvgLabel1;
        TJvLabel *JvLabelTXLostCnt;
        TJvgGroupBox *JvgGroupBox11;
        TJvXPProgressBar *TXBufferLevel;
        TJvStaticText *JvStaticText2;
        TJvXPButton *JvXPButton1;
        TJvXPButton *JvXPButton2;
        TMenuItem *Frequencies1;
        TJvStaticText *JvStaticText3;
        TJvStaticText *JvStaticText4;
        TJvStaticText *JvStaticText5;
        TJvStaticText *JvStaticText6;
        TJvStaticText *JvStaticText7;
        TJvStaticText *JvStaticText8;
        TJvStaticText *JvStaticText9;
        TJvStaticText *JvStaticText10;
        TMenuItem *WebPage1;
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall CiaComPort1DataAvailable(TObject *Sender);
        void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
        void __fastcall Exit1Click(TObject *Sender);
        void __fastcall FormHide(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall About1Click(TObject *Sender);
        void __fastcall WSocketListnerDataAvailable(TObject *Sender,
          WORD ErrCode);
        void __fastcall WSocketSenderSessionConnected(TObject *Sender,
          WORD ErrCode);
        void __fastcall WSocketSenderSessionClosed(TObject *Sender,
          WORD ErrCode);
        void __fastcall SocketUnRealTCPClientSessionConnected(
          TObject *Sender, WORD ErrCode);
        void __fastcall SocketUnRealTCPClientDataAvailable(TObject *Sender,
          WORD ErrCode);
        void __fastcall SocketUnRealTCPClientSessionClosed(TObject *Sender,
          WORD ErrCode);
        void __fastcall SecondTimerTimer(TObject *Sender);
        void __fastcall SocketUnRealTCPServerListnerSessionAvailable(
          TObject *Sender, WORD ErrCode);
        void __fastcall FormDestroy(TObject *Sender);
        void __fastcall CiaComPort1DataSent(TObject *Sender);
        void __fastcall FtpServer1Authenticate(TObject *Sender,
          TFtpCtrlSocket *Client, TFtpString &UserName,
          TFtpString &Password, bool &Authenticated);
        void __fastcall FtpServer1ChangeDirectory(TObject *Sender,
          TFtpCtrlSocket *Client, TFtpString &Directory, bool &Allowed);
        void __fastcall FtpServer1ClientConnect(TObject *Sender,
          TFtpCtrlSocket *Client, WORD AError);
        void __fastcall FtpServer1MakeDirectory(TObject *Sender,
          TFtpCtrlSocket *Client, TFtpString &Directory, bool &Allowed);
        void __fastcall FtpServer1ValidateRnTo(TObject *Sender,
          TFtpCtrlSocket *Client, TFtpString &FilePath, bool &Allowed);
        void __fastcall FtpServer1ValidateRmd(TObject *Sender,
          TFtpCtrlSocket *Client, TFtpString &FilePath, bool &Allowed);
        void __fastcall FtpServer1AnswerToClient(TObject *Sender,
          TFtpCtrlSocket *Client, TFtpString &Answer);
        void __fastcall FtpServer1ClientDisconnect(TObject *Sender,
          TFtpCtrlSocket *Client, WORD AError);
        void __fastcall FtpServer1ValidateDele(TObject *Sender,
          TFtpCtrlSocket *Client, TFtpString &FilePath, bool &Allowed);
        void __fastcall FtpServer1StorSessionConnected(TObject *Sender,
          TFtpCtrlSocket *Client, TWSocket *Data, WORD AError);
        void __fastcall FtpServer1StorSessionClosed(TObject *Sender,
          TFtpCtrlSocket *Client, TWSocket *Data, WORD AError);
        void __fastcall HttpServer1GetDocument(TObject *Sender,
          TObject *Client, THttpGetFlag &Flags);
        void __fastcall Settings1Click(TObject *Sender);
        void __fastcall Console1Click(TObject *Sender);
        void __fastcall Constelation1Click(TObject *Sender);
        void __fastcall Spectrum1Click(TObject *Sender);
        void __fastcall Options1Click(TObject *Sender);
        void __fastcall View1Click(TObject *Sender);
        void __fastcall Rx1Click(TObject *Sender);
        void __fastcall Tx1Click(TObject *Sender);
        void __fastcall Start1Click(TObject *Sender);
        void __fastcall Stop1Click(TObject *Sender);
        void __fastcall JvXPButtonStartClick(TObject *Sender);
        void __fastcall JvXPButtonStopClick(TObject *Sender);
        void __fastcall Frequencies1Click(TObject *Sender);
        void __fastcall WebPage1Click(TObject *Sender);
        void __fastcall RXStationIDTextClick(TObject *Sender);
        void __fastcall RXStationIDTextMouseEnter(TObject *Sender);

public:	// User declarations
        Graph constalationgraph;

        Modulator *mod;
        Demodulator *demod;

        //for client
        unsigned char UnRealHeader[1000];
        int UnRealHeadersize;
        bool UnRealHeaderGotIt;


        unsigned char QAMUnRealHeader[1000];
        int QAMUnRealHeadersize;
        bool QAMUnRealHeaderGotIt;

        unsigned char* StationID;
        int StationIDSize;

        int UnRealHeaderTimerInterval;
        bool UnRealHeaderTimerEnabled;
        int UnRealHeaderTimerCounter;

        int StationIDTimerInterval;
        bool StationIDTimerEnabled;
        int StationIDTimerCounter;

        TList      *FClients;
        void __fastcall ClientDataAvailable(TObject *Sender, WORD Error);
        void __fastcall ClientSessionClosed(TObject *Sender, WORD Error);

        unsigned char *rs232incharbuf;

        TDirMonThread *pDirMonThread;

        void __fastcall ProgramLoaded(void);
        void __fastcall SettingsFinished(void);
protected:
    void __fastcall WMDestroySocket(TMessage Msg);
    void __fastcall CMDirContentsChanged(TMessage &Msg);
    void __fastcall CMStationIDChanged(TMessage &Msg);
    void __fastcall CMGotFilePacketForYou(TMessage &Msg);
    void __fastcall SendNextWebPkt(TMessage &Msg);
    void __fastcall CMGotTextDataBlock(TMessage &Msg);
    void __fastcall CMMessageStartUnRealServer(TMessage &Msg);
    void __fastcall CMMessageQueClear(TMessage &Msg){waitingformessagequetoclear=false;}


BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_DESTROY_SOCKET, TMessage, WMDestroySocket)
    MESSAGE_HANDLER(CM_DIRCONTENTSCHANGED, TMessage, CMDirContentsChanged)
    MESSAGE_HANDLER(CM_STATIONIDCHANGED, TMessage, CMStationIDChanged)
    MESSAGE_HANDLER(CM_GOTFILEPACKETFORYOU, TMessage, CMGotFilePacketForYou)
    MESSAGE_HANDLER(CM_SENDNEXTWEBPACKET, TMessage, SendNextWebPkt)
    MESSAGE_HANDLER(CM_GOTTEXTDATABLOCK, TMessage, CMGotTextDataBlock)
    MESSAGE_HANDLER(CM_MESSAGEQUECLEAR, TMessage, CMMessageQueClear)
    MESSAGE_HANDLER(CM_STARTUNREALSERVER, TMessage, CMMessageStartUnRealServer)
END_MESSAGE_MAP(TForm)
public:		// User declarations
        __fastcall TQAMForm(TComponent* Owner);
        bool __fastcall ActivateSettings();
        void __fastcall AppendTextToRxConsole(unsigned char * ch,int clen);
        int half_a_buffer_delay;
        unsigned char *udpinbuffer;
        bool udp_sender_conneted;
        TStringList *tstrings;
        TCriticalSection *criticalsection;

        TCriticalSection *CritDestroy;

        void __fastcall Display(AnsiString Msg);
        void __fastcall AddCRC32(unsigned char *Buf,int *Size);

        bool __fastcall CheckCRC32();

        bool sending;
        TCriticalSection *rs232criticalsection;
        void __fastcall SendRs232(unsigned char * Buf,int Len);
        int rs232outcharbufptr;
        unsigned char rs232outcharbuf[10000];


        //may17 sending
        std::vector<PosStep> file_selector_pos_step;
        AnsiString __fastcall GetNextFileNameToSend();
        void __fastcall LoadSendingFileNames();
        int webfile;
        int webfilelen;
        int webfileage;
        int webpktdatasize;
        int webfilepos;
        AnsiString webfilename;
        std::vector<unsigned char> webpkt;
        std::vector<NameSize> SendFileList;
        int webpktsize;

        //may17 reciving
        AnsiString SaveDirectory;
        std::vector<NameSizeDate> File_name_size_date;
        //--
        std::vector<unsigned char> file_pkt_buffer;
        int file_pkt_buffer_ptr_w;
        int file_pkt_buffer_ptr_r;
        int file_pkt_buffer_size;
        //--
        std::vector<int> fil_data;
        AnsiString webmetfilenamerec;
        int webmetfilerec;
        int webfilfilerec;
        AnsiString StationIDRec;
        AnsiString StationIDRecDirectoryCompatibil;
        void __fastcall UpDateSaveDirectoryList();

        bool waitingformessagequetoclear;

        //ftp server
        TList *ftp_clients;
        void __fastcall GainFileAccess(TFtpCtrlSocket *Client,AnsiString FilePath,bool Storeing);
        void __fastcall ReleaseFileAccess(TFtpCtrlSocket *Client);
        int __fastcall FindFTPClient(TFtpCtrlSocket *Client);
        FTPClient_PutFile * __fastcall GetFTPClient_PutFile(TFtpCtrlSocket *Client);

        //http server
        void __fastcall CreateVirtualDocument_index_html(TObject *Sender,TObject *Client,THttpGetFlag &Flags);
        void __fastcall CreateVirtualDocument_Files(TObject *Sender,TObject *Client,THttpGetFlag &Flags,AnsiString wanteddir);
        void __fastcall AddStaionToWebPage(AnsiString *Body,AnsiString StationId,AnsiString XAddr,bool active);

        CSound *Sound;
        SoundOut *SoundOutThread;
        SoundIn *SoundInThread;
        void __fastcall PacketCallBackFunc(void);

        bool busy;
        void __fastcall UpdateTXWindow(void);
        void __fastcall UpdateGuiPages(void);
        void __fastcall None1Click(void);

        double BufferLevXfer;

        void __fastcall FileListBoxApplyPath(AnsiString APath);

 
};

//---------------------------------------------------------------------------
extern PACKAGE TQAMForm *QAMForm;
//---------------------------------------------------------------------------
#endif