*** Presente de Ano Novo **** Gerenciamento de ECFS

[jamazevedo]

Quando compilei os exemplos estão faltando as seguintes funções:

obj/menu.o:(.data+0x7b8): undefined reference to `HB_FUN_CFILENAME'
obj/menu.o:(.data+0x9b8): undefined reference to `HB_FUN_WINEXEC'
obj/menu.o:(.data+0xc68): undefined reference to `HB_FUN_VERIFYINI'
obj/menu.o:(.data+0xcb8): undefined reference to `HB_FUN_OPENCOMM'
obj/menu.o:(.data+0xcc8): undefined reference to `HB_FUN_WRITECOMM'
obj/menu.o:(.data+0xcd8): undefined reference to `HB_FUN_GETCOMMERROR'
obj/menu.o:(.data+0xcf8): undefined reference to `HB_FUN_CLOSECOMM'
collect2: ld returned 1 exit status

Você poderia postá-las no forum ?
Estou usando o xHarbour 0.99.60.

[sygecom]

Você encontra essas funções na lib da Fivewin, para ser mais exato a lib é FIVEC.LIB

[rochinha]

Valeu Leonardo,

JamAzevedo:

Eu sempre dou preferencia para o uso de algum aplicativo que nos quebre o galho, assim com o ACBr.

Voce notara que no conjunto de modulo existe um para uso com o mesmo, passe a usa-lo, desenvolva sobre ele e esqueça os varios tipos de ECFs, pois com somente um controle voce tera acesso ao uso de várias ao mesmo tempo.

[jamazevedo]

Correto mas a função "cfilename" pelo que percebi não é uma rotina da FiveWin e todos os exemplos chamam está função, o que ela faz ??

[rochinha]

Amiguinho

Ela retira todo o lixo em volta do nome de um arquivo como Path, drive, etc.

Ela se encontra no arquivo FILENAME.PRG na pasta SOURCE\FUNCTION do fivewin.

Um trecho do arquivo:

Código: Selecionar todos

function cFileName( cPathMask )
    return cFileNoPath( cPathMask )
     
function cFileNoPath( cPathMask )  // returns just the filename no path
    local n := RAt( "\", cPathMask )
    return Upper( If( n > 0 .and. n < Len( cPathMask ),;
                  Right( cPathMask, Len( cPathMask ) - n ),;
                  If( ( n := At( ":", cPathMask ) ) > 0,;
                      Right( cPathMask, Len( cPathMask ) - n ),;
                      cPathMask ) ) )
     
function cFileDisc( cPathMask )  // returns drive of the path
     return If( At( ":", cPathMask ) == 2, ;
           Upper( Left( cPathMask, 2 ) ), "" )
     
function cFilePath( cPathMask )   // returns path of a filename
     local n := RAt( "\", cPathMask )
     return If( n > 0, Upper( Left( cPathMask, n ) ),;
           cFileDisc( cPathMask ) + "\" )
     
function cFileMask( cPathMask )  // returns mask of a filename
     local cMask := cFileNoPath( cPathMask )
     return If( ( "*" $ cMask ) .or. ( "?" $ cMask ), cMask, "" )
     
function cFileNoExt( cPathMask ) // returns the filename without ext
     local cName := AllTrim( cFileNoPath( cPathMask ) )
     local n     := At( ".", cName )
     return AllTrim( If( n > 0, Left( cName, n - 1 ), cName ) )
     
function cFileExt( cPathMask ) // returns the ext of a filename
     local cExt := AllTrim( cFileNoPath( cPathMask ) )
     local n    := RAt( ".", cExt )
     return AllTrim( If( n > 0 .and. Len( cExt ) > n,;
                    Right( cExt, Len( cExt ) - n ), "" ) )
     
function cFileSubDir( cPath )   // returns the subdir of a path & filename
     return Upper( cFilePath( If( Right( cPath, 1 ) == "\" ,;
              Left( cPath, Len( cPath ) - 1 ), cPath ) ) )
     
function FSize( cFile ) // returns the size of filename
     local aFiles := Directory( cFile )
     If Len( aFiles ) > 0
        return aFiles[ 1 ][ 2 ]
     endif
     return 0
     
function FDate( cFile ) // returns the date of filename
     local aFiles := Directory( cFile )
     If Len( aFiles ) > 0
        return aFiles[ 1 ][ 3 ]
     endif
     return CToD( "  -  -  " )
     
function FTime( cFile ) // returns the time of filename
     local aFiles := Directory( cFile )
     If Len( aFiles ) > 0
        return aFiles[ 1 ][ 4 ]
     endif
     return ""

[jamazevedo]

Valeu amigão. Essa minha ignorância é porque não utilizo a FiveWin.

[ANDRIL]

Rochinha, boa tarde!

Vou precisar implementar o ECF no meu sistema e estou mais perdido q tudo.
Vi esta sua rotina e pergunto se é possível utiliza-la somente em clipper 5.2e. E pra funcionar todas as impressoras tem que baixar do fabricantes os programas comunicadores exemplo: observer (bematech) dentre outros?

Ou vc recomendaria o uso do projeto ACBr nestes casos?


Ate+

[rochinha]

Amiguinho

Voce poderá usar somente o ACBr Monitor e configurar nele qual a impressora, porta COM e pastas onde seu sistema ira criar os arquivos de comandos.

Veja que no meu set de funções, inclusive os Bematech, Daruma e ACBr eu jogo os arquivos gerados em uma pasta que estes monitores verificam de tempos em tempos.

Use seu aplicativo, Monitor ACBr e pronto, voce esta habilitado a usar qualquer ECF do mercado.

Analise bem os exemplos que postei e vera que sera muito fácil implementar ECF em seu aplicativo.

[mhackervix]

Rocinha,

Ao Clickar no Link do projeto o navegador (internet) não acha o site para baixar o arquivo ECFS.ZIP. :'(

att.

[asimoes]

Olá Rochinha,

Belo trabalho.

Esta versão do gerenciador é somente para fivewin?
No meu caso estou usando xharbour + hwgui.
Pode funcionar com xharbour + hwgui?

[]´s

[sygecom]

Pode usar sim com Hwgui, se sentir falta de alguma função abra um post novo que acharemos funções compativeis que foram usada da Fivewin.

[rochinha]

Amiguinhos,

Desculpem-me pela correria, não estou encontrando tempo para atende-los, mas é isso que o Sygecom postou, codigo totalmente livre de versões.

[Kapiaba]

Tarde Rochina, Link quebrado. abs.

[rochinha]

Amiguinhos,

Link restabelecido novamente.