Clipper On Line • Ver Tópico - hb_vfOpen() não cria arquivo em compartilhamento Linux

hb_vfOpen() não cria arquivo em compartilhamento Linux

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

hb_vfCreate() pasta linux

Mensagempor JoséQuintas » 25 Set 2021 18:06

Tá... errei no texto ao colocar o nome, não existe hb_vfCreate()
Pensando bem... se não me engano também tinha dado problema no uso exclusivo do Windows com hb_vfClose()
Se eu tiver tempo eu confirmo isso.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 17601
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 956 vezes

hb_vfCreate() pasta linux

Mensagempor JoséQuintas » 25 Set 2021 18:18

fclose.png


Realmente foi bom você insistir tanto....
O problema é maior do que eu coloquei:

hb_vfClose() deu problema com Windows Server sozinho
hb_vfOpen(), pra criar arquivo, deu problema com Windows Server + Linux

Suas explicações poderiam valer pra segunda situação, se não tivesse dado problema na primeira.

Mas não tenho certeza se foi só Windows Server sozinho, ou se também no Windows 10 sozinho.
Isso eu já não vou testar, porque tenho mais o que fazer.
Uso Harbour 3.4, e ninguém vai mexer nele mesmo... então tanto faz.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 17601
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 956 vezes

hb_vfCreate() pasta linux

Mensagempor Itamar M. Lins Jr. » 25 Set 2021 20:28

Olá!
Suas explicações poderiam valer pra segunda situação, se não tivesse dado problema na primeira.

É fake, pra todo lado !

Uso isso ai em uma rotina que abre e fecha pelo menos MIL NFCe por dia, isso só em 1 cliente.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 5556
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 205 vezes
Mens.Curtidas: 323 vezes

hb_vfCreate() pasta linux

Mensagempor JoséQuintas » 26 Set 2021 12:28

Itamar M. Lins Jr. escreveu:É fake, pra todo lado !
Uso isso ai em uma rotina que abre e fecha pelo menos MIL NFCe por dia, isso só em 1 cliente.


Podemos concluir então, que se funciona com você, qualquer problema em outro lugar é mentira.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 17601
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 956 vezes

hb_vfCreate() pasta linux

Mensagempor Itamar M. Lins Jr. » 26 Set 2021 18:46

Olá!
Podemos concluir então, que se funciona com você, qualquer problema em outro lugar é mentira.

Se vc se desse pelo menos o trabalho de ler. Não falaria uma bobagem dessa.
O hbmk2 usa essas ai que postei em todos os OS que roda o Harbour.


Esse código está no hbmk2.exe então todos que usam no mundo usam de pirraça pq não funciona. Nem no Linux/Windows/MacOS...

E vc é deus todo poderoso que quer condenar o que não sabe não entende.

              IF hbmk[ _HBMK_lINC ]
                  IF hbmk[ _HBMK_lREBUILD ] .OR. ! hb_MemoRead( l_cCSTUB ) == cFile
                     hFile := hb_vfOpen( l_cCSTUB, FO_CREAT + FO_TRUNC + FO_WRITE )
                  ELSE
                     hFile := ""
                  ENDIF
               ELSE
                  hFile := hb_vfTempFile( @l_cCSTUB,, "hbmk_", ".c" )
               ENDIF
               IF HB_ISSTRING( hFile )
                  AAdd( hbmk[ _HBMK_aC ], l_cCSTUB )
               ELSEIF hFile != NIL
                  hb_vfWrite( hFile, cFile )
                  hb_vfClose( hFile )



hbmk2.prg tem algumas, com somente READ e com WRITE ativado, em alguns pontos do PRG.

Quem usa PE mesmo ele abre pra gravar.(senha ?)
   IF ( hFile := hb_vfOpen( cFileName, FO_READWRITE + FO_EXCLUSIVE ) ) != NIL
      IF ( cSignature := hb_vfReadLen( hFile, 2 ) ) == "MZ"
         hb_vfSeek( hFile, 0x003C, FS_SET )
         nPEPos := ;
            Bin2W( hb_vfReadLen( hFile, 2 ) ) + ;
            Bin2W( hb_vfReadLen( hFile, 2 ) ) * 0x10000
         hb_vfSeek( hFile, nPEPos, FS_SET )
         IF ! hb_vfReadLen( hFile, 4 ) == "PE" + hb_BChar( 0 ) + hb_BChar( 0 )
            nPEPos := NIL
         ENDIF
      ELSEIF cSignature + hb_vfReadLen( hFile, 2 ) == "PE" + hb_BChar( 0 ) + hb_BChar( 0 )
         nPEPos := 0
      ENDIF


Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 5556
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 205 vezes
Mens.Curtidas: 323 vezes

hb_vfOpen() não cria arquivo em compartilhamento Linux

Mensagempor JoséQuintas » 27 Set 2021 20:11

Agora entendo porque muita gente usa XHarbour.
É pra se livrar do Itamar kkkk
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 17601
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 956 vezes

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Ahrefs [Bot] e 15 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro