Atualização do Harbour 3.2 09/03/2023

[ivanil]

Bom dia Itamar,

Na verdade tem outros reports, veja esta no grupo de harbour, é exatamente isso que acontece; a propriedade existe, faz parte da construção da classe, mas em algumas situações devolve como não encontrado, já tentei isolar, mas confesso que não esta fácil; sigo tentando;

https://groups.google.com/g/harbour-use ... JqyEd7BAAJ

O Quintas pelo que entendi não usa a versão recente do GIT, este problema só passou a existir com a compilação de 2023;

Grato

Ivanil

[carlaoonline]

Bom dia!

O google disse que vai avaliar se é virus! Estamos esperando o parecer dele!

.. acho que nem vai dar mais...

Não é possível acessar este item porque ele viola nossos Termos de Serviço.

Saiba mais sobre este tema na Central de Ajuda do Google Drive.

[Itamar M. Lins Jr.]

Olá!
Tem não. Leia novamente.
O de José Quintas era a API e o de Gerald era erro dele mesmo.

Renaming
data error_msg
to
data errormsg
fixed the problem for me. "Error_msg" must be some kind of reserved word in windows mingw64 harbour now.

Found errors on Windows API #defines used.

Now waiting some days to check result of changes.

José M. C. Quintas

Saudações,
Itamar M. Lins Jr.

[ivanil]

Ola Itamar;

Na verdade ele desistiu do erro mudando o nome do método;

Renomear
error_msg de dados
Para
errormsg de dados
corrigiu o problema para mim. "Error_msg" deve ser algum tipo de palavra reservada no Windows Mingw64 Porto agora.


Mas beleza; encerro.

Grato.

at;

Ivanil

[Itamar M. Lins Jr.]

Olá!

desistiu

?

Não entendi. Sei que FIX é correção.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Eu estou usando a última do Harbour 3.2, faz uma semana.

O erro mencionado é sobre o nome ERROR que ele usou.
Não acontece com outros nomes.

Sobre aqueles outros erros que eu vinha tendo: era em qualquer lugar, ao invés do retorno correto retornava ZERO.
Parece que por problemas nas funções de API, parte do programa era fechada e ficava sem as funções.

[ivanil]

Ola Quintas;

meu objetivo desde o início era descobrir a causa do problema, no caso do colega que teve problema parecido com o meu, ele mudou o nome do atributo e resolveu a questão para ele, mas o problema de "causa" continua latente no código dele;

O exemplo abaixo estou criando uma classe usando o nome que para ele deu erro, no meu caso funciona normalmente aqui, então não tem a ver com o nome do atributo, outra coisa causa o vazamento...

Posteriormente tentarei criar alguns cenários, alguma parte de meu código gera algum conflito que não gera em versões anteriores do harbour;

Quanto aos erros que acontece com você de retorno diferente, ou função que perde o ponteiro, eu nunca tive.

Código: Selecionar todos

Function Main( )
    Local o:=Test():new("NomeFile",0)
    ?o:file
    ?o:error_msg
    wait
    REturn .T.
    

Function Test()
    static oClass
    if oClass == nil
        oClass := HBClass():New( "TEST" )
        oClass:AddData( "FILE"   ,"" )
        oClass:AddData( "Size"   ,0 )
        oClass:AddData( "nCache" ,0 )
        oClass:AddData( "error_msg")
        
        oClass:AddMethod( "New",  @new() )  
        
    
        oClass:Create()
    endif
    return oClass:Instance()
**********************************
/////////////////////////////////////////////
**********************************
static function New(cFile,nSize)
    local Self := QSelf()
    ::File     := cFile
    ::error_msg := "None"
    ::nCache   := nSize
    return Self
**********************************
/////////////////////////////////////////////
**********************************

Grande abraço.

[JoséQuintas]

meu objetivo desde o início era descobrir a causa do problema, no caso do colega que teve problema parecido com o meu, ele mudou o nome do atributo e resolveu a questão para ele, mas o problema de "causa" continua latente no código dele;

Tem programador no harbour-users que faz doideira.
Uma coisa simples que já fiz foi ALTERAR A CLASSE ADO DO WINDOWS.
Com certeza tem nomes que são obrigatórios para o Windows, e não podemos mexer nesses nomes do Windows.
Se ele mencionou sobre dar conflito com nome do Windows..... é de se imaginar que não era uma classe normal.

[JoséQuintas]

Exemplo simples:

Código: Selecionar todos

cnSQL := win_OleCreateObject( "ADODB.Connection" )

Pronto, essa é uma classe DO WINDOWS, que pode ser usada no Harbour.
Podemos alterar a classe pelo Harbour ?
SIM
Mas dependendo do que fizer.... ferrou.