SuperCom - Serial Communication Library

//-------------------------------------------------------------------
// SuperCom sample using CSuperCom class
//-------------------------------------------------------------------

#include <stdlib.h>
#include <stdio.h>

#include "supercom.hpp" // CSuperCom

#if defined(_OS_NT_)

     // Enable TCP/IP or ISDN, disable both for serial
//#define __USE_TCPIP__
//#define __ISDN__
#endif

#if defined(_OS_LINUX_)
#endif


int bPgmEnd = FALSE;

//-------------------------------------------------------------------
// Class CCMyCOM
//-------------------------------------------------------------------
class CMyCOM : public CSuperCom {

    private:

    public:
    CMyCOM(LPCTSTR pszConfigString, HANDLE hWnd=0);
    ~CMyCOM(void);

      // optional event functions
    int OnComm(DWORD SComEvent);
    int OnConnect(WORD Action, DWORD TimeLeft);
    int OnFile(WORD Action, DWORD Data, PFDATA FileData);
};

CMyCOM::CMyCOM(LPCTSTR pszConfigString, HANDLE hWnd)
      :CSuperCom(pszConfigString, hWnd)
{
}
CMyCOM::~CMyCOM(void)
{
}

  // Optional Event functions called from SuperCom in background
int CMyCOM::OnComm(DWORD SComEvent)[OnComm +-]
{
    int nRes = CSuperCom::OnComm(SComEvent); // base class

    if (SComEvent & EV_RXCHAR)
    {
    }
    if (SComEvent & EV_TXEMPTY)
    {
    }
    return nRes;
}
int CMyCOM::OnConnect(WORD Action, DWORD TimeLeft)[OnConnect +-]
{
    int Res  = CSuperCom::OnConnect(Action, TimeLeft); // base class

       // handle any event or none!
    switch (Action)
    {
    case acCONNECT_INFO:
        break;
    case acCONNECT_OK:
        break;
    case acCONNECT_FAILED:
        break;
    case acCONNECT_INIT:
        break;
    case acCONNECT_DIALING:
        break;
    case acCONNECT_CONNECTING:
        break;
    case acCONNECT_TAPI_RING:
        break;
     default:
        break;
    }

    printf("."); fflush(stdout);

    if ( (Action == acUSERBREAK) || bPgmEnd ) // any reason to break ?
        return(infBREAK);        // Break Task
    else
        return(Res);
}
int CMyCOM::OnFile(WORD Action, DWORD Data, PFDATA pFileData)[OnFile +-]
{
    int Res  = CSuperCom::OnFile(Action, Data, pFileData); // base class

       // handle any event or none!
    switch (Action)
    {
    case acTXING:
        break;
    case acRXING:
        break;
    case acQUEUEFIN:
        break;
    case acRXFIN:
        break;
    case acTXFIN:
        break;
    case acUSERBREAK:
        break;
    case acRETRY:
        break;
    case acFILEDATA:
        break;
    case acFILENAME:
        break;
    case acSYN:
        break;
    case acBUFFERSIZE:
        break;
     default:
        break;
    }

    printf("."); fflush(stdout);

    if ( (Action == acUSERBREAK) || bPgmEnd ) // any reason to break ?
        return(infBREAK);   // Break file transfer
    else
        return(Res);
}


#if defined(__USE_TCPIP__)

  #define SET_CONFIG  "SET_IP"=adontec.com:80;"

#elif defined (__ISDN__)

  #define SET_CONFIG  SET_OWNEXTENSION"=900020;"SET_CONNECTADDRESS"=222333344444;"
                    SET_CONNECTTIMEOUT"=10;"

#else   // Serial

    // standard serial port
  #define SET_CONFIG  "Serial=COM1;BaudRate=9600;"
    // or connect through a modem and also trace data
  #define SET_CONFIG  "Serial=COM18;BaudRate=115200;
                    ConnectAddress=222333344444;
                    TRACE=C:\\sc_trace.txt;"

#endif

int main(int argc, char** argv)
{
    printf("\nSuperCom Connect sample\nEstablishing connection\n" );

    CMyCOM *ThisCOM = new CMyCOM(SET_CONFIG); // create instance

    ThisCOM->Connect(TRUE); // now open channel and try to connect

    if (ThisCOM->ComValid() == FALSE)
        printf("\nFailed to open channel!\n");
    else if (ThisCOM->Connected() == FALSE)
        printf("\nFailed to connect!\n");
    else // port opened, connected, now perform ...
    {
        int nErrorCode;
        char szFileName[SC_MAXPATH]="sales.dat";
        printf("\nConnected .. starting transmitting %s\n[", szFileName);

        ThisCOM->RS_TXFile (PROTOCOL_ZMODEM, szFileName, &nErrorCode);

        if (nErrorCode)
            printf("\n Err=%d", nErrorCode);

        printf("]\nDone.");
    }

    printf("\nPress ENTER to end.\n");
    getchar();
    return 0;
}

//-------------------------------------------------------------------
// SuperCom Connect sample using TSuperCom class
//-------------------------------------------------------------------
program Connect;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, SuperCom;

{$IFDEF _OS_NT_}
    // Enable for TCP/IP or ISDN, disable both for serial
{$DEFINE __USE_TCPIP__}
// {$DEFINE __ISDN__}
{$ENDIF}

{$IFDEF _OS_LINUX_}
{$ENDIF}

Var nErrorCode:Integer = 0;
    szFileName:Array[0..SC_MAXPATH] Of TSHORTCHAR;
//-------------------------------------------------------------------
// Class CMyCOM
//-------------------------------------------------------------------
Type TMyCOM = class (TSuperCom)

  public
    Constructor Create (Com:TCOMMID; dwBaud:DWORD); Overload;
    Constructor Create(ConfigString:String; hWnd:THANDLE);  Overload;

    Function OnComm (SComEvent:DWORD):Integer; override;
    Function OnConnect (Action:WORD; TimeLeft:DWORD):Integer;   override;
    Function OnFile (Action:WORD; Data:DWORD; Var FileData:TFDATA):Integer;  override;
End;

Constructor TMyCOM.Create (Com:TCOMMID; dwBaud:DWORD);
Begin
   Inherited Create(Com, COMTYPE_RS232, 0);
   ComSetState (dwBaud, 8, 1, 'N',SIGNAL_NONE);
End;

Constructor TMyCOM.Create (ConfigString:String; hWnd:THANDLE);
Begin
   Inherited Create(ConfigString, hWnd);
End;


Function TMyCOM.OnComm (SComEvent:DWORD):Integer;[OnComm +-]
Begin
   Result := Inherited OnComm(SComEvent); // base class
        // no need to handle any !
   If (IsSet(SComEvent,EV_RXCHAR)) Then
   Begin
   End;

   If (IsSet(SComEvent,EV_TXEMPTY)) Then
   Begin
   End;
End;

Function TMyCOM.OnConnect (Action:WORD; TimeLeft:DWORD):Integer;[OnConnect +-]
Begin
   Result := Inherited OnConnect(Action, TimeLeft); // base class
      // no need to handle any !
   Case (Action) Of
    acCONNECT_INFO:

    acCONNECT_OK:

    acCONNECT_FAILED:

    acCONNECT_INIT:

    acCONNECT_DIALING:

    acCONNECT_CONNECTING:

    acCONNECT_TAPI_RING:
   End;

   If ( (Action = acUSERBREAK) OR bPgmEnd ) Then // any reason to break ?
      Result := infBREAK;  // Break connect
End;

Function TMyCOM.OnFile (Action:WORD; Data:DWORD; Var FileData:TFDATA):Integer;[OnFile +-]
Begin
   Result := Inherited OnFile(Action, Data, FileData); // base class

      // Handle any events !
   Case (Action) Of
     acTXING:

     acRXING:

     acQUEUEFIN:

     acRXFIN:

     acTXFIN:

     acUSERBREAK:

     acRETRY:

     acFILEDATA:

     acFILENAME:

     acSYN:

     acBUFFERSIZE:
   End;

   If ( (Action = acUSERBREAK) OR bPgmEnd ) Then // any reason to break ?
      Result := infBREAK;   // Break protocol
End;


Const

{$IFDEF __USE_TCPIP__}  //---------- TCP/IP -----------

      STRX_COMTYPE = 'TCP/IP';

      SET_CONFIG = SET_COMTYPE+'='+STR_VAL_COMTYPE_CLIENT+';'+SET_CONNECTADDRESS+'=host;'+SET_CONNECTTIMEOUT+'=10;';
      SET_CONFIG = SET_COMTYPE+'='+STR_VAL_COMTYPE_CLIENT+';'+SET_IP+'=host;'+SET_PORT+'=9002;'+SET_CONNECTTIMEOUT+'=10;' ;

{$ELSE}
{$IFDEF __ISDN__}   //---------- ISDN -----------

     STRX_COMTYPE = 'ISDN';

     SET_CONFIG   = SET_COMTYPE+'='+STR_VAL_COMTYPE_ISDN+';'+SET_OWNEXTENSION+'=20;'+SET_CONNECTADDRESS+'=22;'+SET_CONNECTTIMEOUT+'=10;';


{$ELSE}                     //---------- Serial -----------

     STRX_COMTYPE  = 'Serial';

     SET_CONFIG0 = 'Serial=COM4;BaudRate=57600;Handshaking=CTS;';
     SET_CONFIG1 = 'CommID=0;ComType=RS232;BaudRate=57600;Handshaking=CTS;TRACE=C:\\sc_trace.txt;' ;
     SET_CONFIG2 = 'Serial=COM1;BaudRate=57600;Handshaking=CTS;ConnectAddress=22244444;TRACE=C:\\sc_trace.txt;' ;
     SET_CONFIG3 = SET_SERIAL+'=COM1;'+SET_BAUDRATE+'=57600;'+SET_HANDSHAKING+'=CTS;'+SET_CONNECTADDRESS+'=14;'+SET_CONNECTTIMEOUT+'=10;';

     SET_CONFIG = SET_CONFIG3; // use this

{$ENDIF}
{$ENDIF}


Var ThisCOM:TMyCOM;

Begin
   StrCopy(szFileName, 'sales.dat');

   Writeln('SuperCom Connect sample');
   Writeln('Establishing connection');

   ThisCOM := TMyCOM.Create(SET_CONFIG, 0);

   ThisCOM.SetConnectMode(Blocking);
   ThisCOM.Connect(TRUE);
        //  If pure serial nothing to connect to, if not a modem. Port already opened.
        //  If TCP/IP client it will connect to the Server at IP:Port, as set above

   If (ThisCOM.IsValid() = FALSE) Then // failed ?
     Writeln('Failed to open channel ', IntToStr(ThisCOM.GetCom()+1), ' ', SET_CONFIG,'..')
   Else // OK
     Begin
        Writeln('COM_',IntToStr(ThisCOM.GetCom()+1),') Starting transmitting ', szFileName);

            // transmit file
        ThisCOM.RS_TXFile (PROTOCOL_ZMODEM, szFileName, nErrorCode);

        If (nErrorCode <> 0) Then WriteLn('Err=', nErrorCode);

        WriteLn('done.');
     End;

   ThisCOM.Free;

   Writeln('Press ENTER to end.');
   ReadLn;