PC Toledo

Código: Selecionar todos

#BCC
VERSION=BCB.01
!ifndef CC_DIR
CC_DIR = $(MAKE_DIR)
!endif

!ifndef HB_DIR
HB_DIR = $(HARBOUR_DIR)
!endif
 
RECURSE= NO 
 
SHELL = 
COMPRESS = NO
EXTERNALLIB = NO
XFWH = NO
FILESTOADD =  5
WARNINGLEVEL =  0
USERDEFINE = 
USERINCLUDE = 
USERLIBS = 
EDITOR = edit
GUI = NO
MT = NO
SRC02 = obj 
PROJECT = teste2.exe $(PR) 
OBJFILES = $(SRC02)\TESTE2.obj $(OB) 
PRGFILES = TESTE2.PRG $(PS) 
OBJCFILES = $(OBC) 
CFILES = $(CF)
RESFILES = 
RESDEPEN = 
TOPMODULE = TESTE2.PRG
LIBFILES = lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib gtwin.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib debug.lib 
EXTLIBFILES =
DEFFILE = 
HARBOURFLAGS =  -b  -w0
CFLAG1 =  -OS $(SHELL)  $(CFLAGS) -d -c -L$(HB_DIR)\lib 
CFLAG2 =  -I$(HB_DIR)\include;$(CC_DIR)\include
RFLAGS = 
LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -ap
IFLAGS = 
LINKER = ilink32
 
ALLOBJ = c0x32.obj $(OBJFILES) $(OBJCFILES)
ALLRES = $(RESDEPEN)
ALLLIB = $(USERLIBS) $(LIBFILES) import32.lib cw32.lib
.autodepend
 
#DEPENDS
 
#COMMANDS
.cpp.obj:
$(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**
 
.c.obj:
$(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $**
 
.prg.obj:
$(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -o$* $**
 
.rc.res:
$(CC_DIR)\BIN\brcc32 $(RFLAGS) $<
 
#BUILD
 
$(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
    $(CC_DIR)\BIN\$(LINKER) @&&!  
    $(LFLAGS) +
    $(ALLOBJ), +
    $(PROJECT),, +
    $(ALLLIB), +
    $(DEFFILE), +
    $(ALLRES) 
!

Código: Selecionar todos

/////////////////////////////////////////////////////////////////////////////
//
// SAT - Funcoes Compativeis com SAT
//
//         Autor: Jose Carlos da Rocha
//          Data: 12/06/2010
//         Email: contato@5volution.com.br
//           MSN: fivolution@hotmail.com
//     Linguagem: xBase
//       Prefixo: SAT_
//   Plataformas: DOS, Windows
// Requerimentos: Harbour/xHarbour( Para uso com Clipper eliminar Prefixo )
//     Protocolo:
//       ESC.00 : Inicio da Comunicacao
//       ESC.I  : Inicio da Transmissao
//       S04    : Conteudo, comandos
//       ESC.F  : Fim da Transmissao
//       ESC.99 : Fim da Comunicacao
//
/////////////////////////////////////////////////////////////////////////////
#include "Fivewin.ch" 

FUNCTION MAIN( cComm ) 
    LOCAL oDlg 
    LOCAL oGet, cTxt := "" 
    LOCAL nCom 
    DEFAULT cComm := "COM5"
    DEFINE DIALOG oDlg; 
           SIZE 500, 500; 
           TITLE "S@T ("+cComm+")"
    @ 0, 0 GET oGet VAR cTxt MEMO READONLY 
    oGet:bKeyDown = { | nKey | Tasti( nCom, nKey ) } 
    ACTIVATE DIALOG oDlg ; 
             ON INIT ( oGet:AdjClient(),; 
                       nCom := APRICOM( oDlg, oGet, cComm ),; 
                       IF( nCom < 0, oDlg:End(), ) ); 
             CENTER 
    IF nCom >= 0; CLOSECOMM( nCom ); ENDIF 
    RETURN NIL 

STATIC FUNCTION TASTI( nCom, nKey ) 
    SENDSTR( nCom, CHR( nKey ) ) 
    RETURN NIL 

STATIC FUNCTION APRICOM( oDlg, oGet, cComm ) 
    LOCAL nCom, cDcb 
    BEGIN SEQUENCE 
        nCom = OPENCOMM( cComm, 16384, 16384 ) 
        IF nCom < 0 
            oGet:Append( "Erro de abertura da porta de comunicacao." )
            BREAK 
        ENDIF 
        BUILDCOMMDCB( cComm+":115200,N,8,1", @cDcb ) 
        IF !SETCOMMSTATE( nCom, cDcb ) 
            oGet:Append( "Erro de configuracao da porta de comunicacao." )
            BREAK 
        ENDIF 
        oDlg:bCommNotify = { | nCom | Connect( nCom, oGet ),; 
                                      EnableCommNotification( nCom, oDlg:hWnd, 1, -1 ) } 
        IF !ENABLECOMMNOTIFICATION( nCom, oDlg:hWnd, 1, -1 ) 
            oGet:Append( "Erro de abilitacao de notificacao." )
            BREAK 
        ENDIF 
    RECOVER 
        nCom = -1 
    END SEQUENCE 
    RETURN nCom 

STATIC FUNCTION CONNECT( nCom, oGet ) 
    LOCAL cStr 
    ENABLECOMMNOTIFICATION( nCom, 0, 1, -1 ) 
    cStr = RECEIVESTR( nCom ) 
    cStr = STRTRAN( cStr, CHR( 13 ), "" ) 
    cStr = STRTRAN( cStr, CHR( 10 ), CRLF ) 
    oGet:Append( cStr ) 
    RETURN NIL 

STATIC FUNCTION SENDSTR( nCom, cString ) 
    LOCAL nBytes := WRITECOMM( nCom, cString ) 
    RETURN nBytes = LEN( cString ) 

STATIC FUNCTION RECEIVESTR( nCom ) 
    LOCAL cBuf := SPACE( 1000 ) 
    RETURN LEFT( cBuf, READCOMM( nCom, @cBuf ) )