... Para quem desejar o código fonte está abaixo:
#include "directry.ch"
TELA()
DECLARE ARQUIVOS := {}, NOMES := {}, ARQ := {}, oFile, CONT := .T., ASP:=0
DO WHILE .T.
CONT = .T.
DO WHILE CONT
NOMES := {}
ARQ := {}
@ 2,1 CLEAR TO MAXROW()-2-4,19
@ 2,22 CLEAR TO MAXROW()-2-4 ...
Pesquisa resultou em 4676 ocorrências: +File
Termo pesquisado: +file
- 03 Mai 2026 20:56
- Fórum: [x]Harbour
- Tópico: Gerenciador de Arquivos em Harbour
- Respostas: 9
- Exibições: 1084
- 29 Abr 2026 08:57
- Fórum: [x]Harbour
- Tópico: Exe xHarbour rodando como serviço
- Respostas: 1
- Exibições: 596
Exe xHarbour rodando como serviço
... srv2
Private k_usu
Private k_psw := '#@!$8887'
Private k_prt
Private k_dtb
Private vMEU_SQL
Private nCnn:= -1
Private lRodando := .T.
IF ! File( pasta + "servidor.ini" )
LogSupa( "ARQUIVO DE INICIALIZAÇÃO NÃO ENCONTRADO: " + pasta + "servidor.ini" )
QUIT
ENDIF
sgbd := AllTrim( hwg ...
Private k_usu
Private k_psw := '#@!$8887'
Private k_prt
Private k_dtb
Private vMEU_SQL
Private nCnn:= -1
Private lRodando := .T.
IF ! File( pasta + "servidor.ini" )
LogSupa( "ARQUIVO DE INICIALIZAÇÃO NÃO ENCONTRADO: " + pasta + "servidor.ini" )
QUIT
ENDIF
sgbd := AllTrim( hwg ...
- 06 Abr 2026 23:23
- Fórum: Outras Bibliotecas Visuais e IDEs
- Tópico: HarbourBuilder — Cross-Platform Visual IDE for Harbour
- Respostas: 14
- Exibições: 2149059
HarbourBuilder — Cross-Platform Visual IDE for Harbour
... F12), status bar (Ln/Col/INS/UTF-8)
- Build messages panel with clickable errors (jump to line)
- Incremental build (only recompiles changed files)
VISUAL FORM DESIGNER:
- WYSIWYG designer with dot grid, snap-to-grid (8px)
- Drag, resize (8 handles), rubber band multi-selection
- Copy/Paste ...
- Build messages panel with clickable errors (jump to line)
- Incremental build (only recompiles changed files)
VISUAL FORM DESIGNER:
- WYSIWYG designer with dot grid, snap-to-grid (8px)
- Drag, resize (8 handles), rubber band multi-selection
- Copy/Paste ...
- 06 Abr 2026 21:14
- Fórum: [x]Harbour
- Tópico: Coverter sistema em Clipper 5.2 gerado por GASPRO 4.0
- Respostas: 5
- Exibições: 1255
Re: Coverter sistema em Clipper 5.2 gerado por GASPRO 4.0
... botão "Harbour" e é só rolar para baixo que encontra a mensagem "Gas4Harbour" e dentro dessa mensagem tem um arquivo ZIP e quando clico na opção "File" para baixar tenho o erro citado acima.
Seguindo estes passos, não encontrei nenhum botão "File" na página da Seção Downloads. O que existe é o ...
Seguindo estes passos, não encontrei nenhum botão "File" na página da Seção Downloads. O que existe é o ...
- 05 Abr 2026 15:19
- Fórum: [x]Harbour
- Tópico: Coverter sistema em Clipper 5.2 gerado por GASPRO 4.0
- Respostas: 5
- Exibições: 1255
Re: Coverter sistema em Clipper 5.2 gerado por GASPRO 4.0
... vezes e inclusive poste alguns questionamentos e nunca fui respondido.
No caso o arquivo é na seção "Download", botão "Harbour" e é só rolar para baixo que encontra a mensagem "Gas4Harbour" e dentro dessa mensagem tem um arquivo ZIP e quando clico na opção "File" para baixar tenho o erro citado acima.
No caso o arquivo é na seção "Download", botão "Harbour" e é só rolar para baixo que encontra a mensagem "Gas4Harbour" e dentro dessa mensagem tem um arquivo ZIP e quando clico na opção "File" para baixar tenho o erro citado acima.
- 04 Abr 2026 19:05
- Fórum: [x]Harbour
- Tópico: Coverter sistema em Clipper 5.2 gerado por GASPRO 4.0
- Respostas: 5
- Exibições: 1255
Coverter sistema em Clipper 5.2 gerado por GASPRO 4.0
... orientação para migrar um sistema console Clipper 5.2 gerado por GASPRO 4.0 para Harbour, encontrei algo a respeito aqui no grupo mas não permitiu que eu fizesse o download.
Ocorre esse erro.
Access denied!
You have no permission to download this file!
Se algum dos amigos puder me ajudar eu agradeço.
Ocorre esse erro.
Access denied!
You have no permission to download this file!
Se algum dos amigos puder me ajudar eu agradeço.
- 13 Mar 2026 13:54
- Fórum: Legislação Fiscal e Tributária
- Tópico: Satus do SEFAZ CUPO/NFE
- Respostas: 5
- Exibições: 2722
Re: Satus do SEFAZ CUPO/NFE
... SEFAZ", "Status", "ON", cPathRaiz+"\nfw.ini", .T. )
ENDIF
ENDIF
RETURN { _cBola_, cResName, _lista_ }
/* ********************************
if file("DSPNBLDD.DBF")
use DSPNBLDD shared
do while .not. eof()
if _uf_ $ DSPNBLDD->Autorizado // := aTRTags[i,1]
if _operacao_ = 2 ; _cBola ...
ENDIF
ENDIF
RETURN { _cBola_, cResName, _lista_ }
/* ********************************
if file("DSPNBLDD.DBF")
use DSPNBLDD shared
do while .not. eof()
if _uf_ $ DSPNBLDD->Autorizado // := aTRTags[i,1]
if _operacao_ = 2 ; _cBola ...
- 26 Fev 2026 15:27
- Fórum: [x]Harbour
- Tópico: Usando GTQTC no Linux.
- Respostas: 0
- Exibições: 2155
Usando GTQTC no Linux.
... hbgtinfo.ch"
ANNOUNCE HB_GT_SYS
REQUEST HB_GT_QTC_DEFAULT
//REQUEST HB_GT_XWC_DEFAULT
Function main
// get font size and width from system file
hb_gtInfo( HB_GTI_FONTSIZE, 20 )
hb_gtInfo( HB_GTI_FONTWIDTH, 15 )
hb_gtInfo( HB_GTI_WINTITLE, "TEST" )
hb_gtInfo( HB_GTI_ICONFILE, "test.ico" )
hb ...
ANNOUNCE HB_GT_SYS
REQUEST HB_GT_QTC_DEFAULT
//REQUEST HB_GT_XWC_DEFAULT
Function main
// get font size and width from system file
hb_gtInfo( HB_GTI_FONTSIZE, 20 )
hb_gtInfo( HB_GTI_FONTWIDTH, 15 )
hb_gtInfo( HB_GTI_WINTITLE, "TEST" )
hb_gtInfo( HB_GTI_ICONFILE, "test.ico" )
hb ...
- 26 Jan 2026 22:54
- Fórum: [x]Harbour
- Tópico: En tiempo de ejecución error.log
- Respostas: 5
- Exibições: 2495
Re: En tiempo de ejecución error.log
... e não à classe TXmlNode.
Veja no exemplo abaixo, que consta no link acima postado por Kapiaba:
// Exemplo para ler um XML
//Reading an XML file
// This example uses the Customer.xml file created in the
// prevous example and extracts from it the structure definition
// for the Customer ...
Veja no exemplo abaixo, que consta no link acima postado por Kapiaba:
// Exemplo para ler um XML
//Reading an XML file
// This example uses the Customer.xml file created in the
// prevous example and extracts from it the structure definition
// for the Customer ...
- 26 Jan 2026 15:09
- Fórum: [x]Harbour
- Tópico: En tiempo de ejecución error.log
- Respostas: 5
- Exibições: 2495
Re: En tiempo de ejecución error.log
... 2014.09.24.1825 - Tenta somente se for erro 64 ref servidor
2014.10.28.0910 - Ajuste no texto
2016.06.30.1120 - Formatação do fonte
*/
#include "fileio.ch"
#include "error.ch"
#include "hbgtinfo.ch"
#include "hbmemory.ch"
// put messages to STDERR
#command ? <list,...> => ?? hb_Eol() ; ?? <list ...
2014.10.28.0910 - Ajuste no texto
2016.06.30.1120 - Formatação do fonte
*/
#include "fileio.ch"
#include "error.ch"
#include "hbgtinfo.ch"
#include "hbmemory.ch"
// put messages to STDERR
#command ? <list,...> => ?? hb_Eol() ; ?? <list ...
- 25 Jan 2026 13:14
- Fórum: [x]Harbour
- Tópico: Envio de e-mail
- Respostas: 47
- Exibições: 9768
Re: Envio de e-mail
... de atualização (pelo menos 90 dias).
Para o que você precisa não terá problemas com este versão.
https://www.projetoacbr.com.br/forum/files/file/455-acbrmonitorplus-windows-32-bits/
Será necessário fazer um cadastro no fórum.
Outra solução é o BLAT. Alguns e-mail´s não estavam ...
Para o que você precisa não terá problemas com este versão.
https://www.projetoacbr.com.br/forum/files/file/455-acbrmonitorplus-windows-32-bits/
Será necessário fazer um cadastro no fórum.
Outra solução é o BLAT. Alguns e-mail´s não estavam ...
- 23 Jan 2026 14:16
- Fórum: [x]Harbour
- Tópico: Cómo crear un PDF a partir de un xml
- Respostas: 3
- Exibições: 2109
Cómo crear un PDF a partir de un xml
... reference to `HB_FUN_HPDF_GETFONT'
.hbmk/win/mingw/PAGO-GEMI.o:PAGO-GEMI.c:(.data+0xe8): undefined reference to `HB_FUN_HPDF_LOADJPEGIMAGEFROMFILE'
.hbmk/win/mingw/PAGO-GEMI.o:PAGO-GEMI.c:(.data+0xf8): undefined reference to `HB_FUN_HPDF_PAGE_DRAWIMAGE'
.hbmk/win/mingw/PAGO-GEMI.o:PAGO-GEMI.c ...
.hbmk/win/mingw/PAGO-GEMI.o:PAGO-GEMI.c:(.data+0xe8): undefined reference to `HB_FUN_HPDF_LOADJPEGIMAGEFROMFILE'
.hbmk/win/mingw/PAGO-GEMI.o:PAGO-GEMI.c:(.data+0xf8): undefined reference to `HB_FUN_HPDF_PAGE_DRAWIMAGE'
.hbmk/win/mingw/PAGO-GEMI.o:PAGO-GEMI.c ...
- 22 Jan 2026 22:58
- Fórum: HwGui
- Tópico: DESATIVAR TAB HWGUI 2.23 B8
- Respostas: 21
- Exibições: 5671
Re: DESATIVAR TAB HWGUI 2.23 B8
... LETO()
LOCAL aStru := {}
LOCAL lOk := .T.
IF Empty( cPathLeto )
RETURN .F.
ENDIF
BEGIN SEQUENCE
// 1) cria DBF se não existir
IF ! leto_file( cPathLeto + "psw.dbf" )
AAdd( aStru, { "USUARIO", "C", 10, 0 } )
AAdd( aStru, { "SENHA", "C", 10, 0 } )
AAdd( aStru, { "GRUPO", "C", 20, 0 ...
LOCAL aStru := {}
LOCAL lOk := .T.
IF Empty( cPathLeto )
RETURN .F.
ENDIF
BEGIN SEQUENCE
// 1) cria DBF se não existir
IF ! leto_file( cPathLeto + "psw.dbf" )
AAdd( aStru, { "USUARIO", "C", 10, 0 } )
AAdd( aStru, { "SENHA", "C", 10, 0 } )
AAdd( aStru, { "GRUPO", "C", 20, 0 ...
- 20 Jan 2026 08:31
- Fórum: [x]Harbour
- Tópico: Gerar dll
- Respostas: 3
- Exibições: 1765
Re: Gerar dll
Apresenta o seguinte erro: C:\hb32\include\hbdefs.h(50) Error F0029 Can't open #include file 'stdarg.h'
Reinstalei a última versão do Harbour e não adiantou.
Reinstalei a última versão do Harbour e não adiantou.
- 12 Jan 2026 13:12
- Fórum: Interface com Clientes
- Tópico: Site eComerce.
- Respostas: 2
- Exibições: 4358
Re: Site eComerce.
Testei seu site e ...developer escreveu: 03 Fev 2025 16:28 Olá, eu trabalho com sites já a alguns anos.
Um site que eu mesmo implantei: https://batalhaosuez.com.br/
Error: File Modified