PC Toledo

... oElemento IN :listFiles( "*.*" )
:DownLoadFile( cPastaLocal + oElemento[1], oElemento[1] ) // baixa o arquivo versão.txt dentro da pasta update
FileStats( cPastaLocal + oElemento[1], ;
@cFileAttr, ;
@nFileSize, ;
@dCreateDate, ;
@nCreateTime, ;
@dChangeDate, ;
@nChangeTime )
:dele( oElemento ...

exato

Quintas,

Esse controle que você fez é um utilitário certo?
Que é chamado antes da compilação do seu sistema?

Só a título de curiosidade, o meu build.ch de agora:


// 552
#define JPA_VERSAO "2016.09.14.0944"
#define JPA_VERSAO_RC 2016,09,14,0944


Desde que comecei a usar isso, foram 552 compilações.
Já pensou ficar alterando esse número manualmente? ou inventando número?
Isso dá uma média de 30 ...

Inicialmente gostei do recurso, mas não resolveu para o RC.
Mas gostei da idéia, e acabei fazendo de outro jeito.

Em \cdrom\fontes\build, um programa que cria um build.ch padrão:

PROCEDURE Main

LOCAL cDateTime

cDateTime := Dtos( Date() ) + Substr( Time(), 1, 2 ) + Substr( Time(), 4, 2 ...

Obrigado pela atualização.

Ainda estou no 3.2 :xau

Vlademiro,

O comando correto para o harbour 3.4 é

-bldhead=build.ch

Vlademiro,

Não entendi como funciona -tshead=build.ch ?

Tentei aqui e o hbmk2 diz ignorar este comando.

O problema que eu estou tendo é pegar a data/hora do executável rodando em um drive de rede usando a função filestats, que informa uma coisa e no drive local informa outra coisa.

Se o problema for só obter um identificador para a versão do programa, o Harbour já faz isso automaticamente.

Pode compilar com a versão

-tshead=build.ch

Com essa versão ele gera o arquivo build.ch

O arquivo build.ch :


/* Automatically generated by hbmk2. Do not edit. */
#define _HBMK_BUILD ...

Aproveitando....
.

Email enviado automaticamente pelo sistema (JPA v.2016.08.20.1800)

Desse jeito não precisa data/hora do EXE, a própria versão já define.
Lógico... o CH alterei hoje, por isso não bate o número de versão.... rs

Também pode ser bug do Windows.
Coloca um fuso horário qualquer, pra dispositivos que não tem fuso horário.

Ou pior... o dispositivo tem seu próprio fuso horário, manda pro Windows, e o Windows faz seu ajuste de fuso horário.
E vice-versa.

Windows NTFS x Windows FAT32
Windows x Novell
Windows x ...

... não correspondiam a data e hora real do executável, fiz o teste no drive local c: e tudo certo, então fiz o teste com a função Directory que no drive de rede retornou data e hora certa. Pode ser um bug da função Filestats quando pega informação do executável em um drive de rede, no meu caso novell

Nunca usei isso, e nem faço idéia pra qual situação usaria isso.

O Windows é doido.
Codepage trás problemas doidos.
O fuso horário também trás problemas doidos.

Lembro que tinha dois HDs, um formatado como NFTS e outro como FAT32.
O horário entre eles era diferente.
No caso de backup, quando ...

Voltando ao assunto.

Estou notando um problema com a função FileStats com o retorno de dChangeDate e nChangeTime, quando é exibido no drive local retorna certo, quando executado em drive de rede, no meu caso novell, a data e hora são outra., a hora fica atualizado a cada exibição. Alguém já notou ...

... hb_ThreadWait( nThreadId, 0.1, .T. ) == 1
lExit:=.T.
Endif
@ 10,00 say SecToTime(Seconds()-nSeconds)
@ 11,00 say cArq
SysWait(1)
Enddo
FileStats( cFile, @cFileAttr , @nFileSize , ;
@dCreateDate, @nCreateTime, ;
@dChangeDate, @nChangeTime )
@ 12,00 SAY AllTrim(StrTran(Transform ...