Clipper On Line • Ver Tópico - Erro estranho em New()

Erro estranho em New()

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

Moderador: Moderadores

 

Erro estranho em New()

Mensagempor JoséQuintas » 16 Mar 2021 13:26

Recebi esta mensagem de erro hoje:

Error BASE/1004 No exported method: NEW
Called from NEW(0)
Called from ADORECCOUNT(1028)
...


ado.png


Esquisito né....
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor alxsts » 17 Mar 2021 17:04

Olá!
ADOClass():New( AppConexao() )

Talvez AppConexao() tenha retornado NIL...
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 17 Mar 2021 17:52

Mas a coisa se expande.

Error BASE/1081 Argument error: +
Called from SETCOLORTBROWSE(72)
Called from TOBROWSE(858)
Called from BROWSEADORC(36)
Called from BROWSEADO(204)


FUNCTION SetColorFocus()

   RETURN "15/9"

FUNCTION SetColorTbrowse()

   RETURN "7/1," + SetColorFocus() + ",7/5,7/8,7/6,7/8,12/1,14/1,3/1"


Como pode dar erro em algo fixo?

Nos dois casos, algo usado 10.000 vezes por dia, 24 horas por dia.
Muito estranho.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 17 Mar 2021 17:57

Isso me lembra um problema há mais de 20 anos, onde a máquina estava com mau contato, e causava mudanças no conteúdo do EXE a cada leitura.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 05 Abr 2021 16:50

Sei não, pode ser que complicou.....

Descobri que acontecem mais erros do que vém por email.

Hoje retornei o mingw 7.3 e voltei a COMPACTAR O EXE.
Até agora SEM PROBLEMA.

E agora?
Que eu saiba, tamanho de EXE não deveria ser problema, ainda mais que compactado continua tudo igual.

Mistérios.....

No lugar em questão aonde ocorrem os erros é TS, o que também não deveria ser problema.
Máquina mais eficiente que um servidor, impossível.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor asimoes » 05 Abr 2021 22:43

Será que mudou a CODEPAGE no fonte (prg)?
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 06 Abr 2021 10:33

Quando não eram esses erros malucos, eram erro de GPF.
E os usuários nem tinham falado nada, quando perguntei do erro que veio é que comentaram que estava acontecendo muito.
Mesmas rotinas de sempre, ora dava problema e ora não.

Como nesse tipo de erro o TS fecha tudo, não registrava o erro.

Deixar fixo no mingw 7.3, e compactado, até ver o que dá.

É só em TS esse problema (pelo menos é o que parece).
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 06 Abr 2021 10:47

No servidor rodam várias estações por TS.
Falta de memória.... à primeira vista não poderia ser, já que compactado acho que acaba precisando até mais memória pra descompactar.
Problema na transferência do EXE... à primeira vista também não, já que é TS, equivalente a local.
Antivírus.... à primeira vista também não, já que compactado seria a maior possibilidade disso acontecer.

Por enquanto as duas únicas possibilidades são: mingw 10.2, ou a não compactação.
Nem sei qual seria a pior.

Se for mingw 10.2, ainda restaria testar com o uso de CLANG, que poderia fazer diferença.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 06 Abr 2021 20:37

A outra possibilidade seria bug no Windows Server com TS...
Não sei qual das opções seria melhor/pior.... kkkk
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 07 Abr 2021 12:39

Compiler: MinGW GNU C 7.3 (32-bit)
GT: WVG
SYSTEM ERROR
Error BASE/1004 No exported method: SETCOLORBG
Called from SETCOLORBG(0)
Called from FRMGUICLASS:HSCROLL(447)
Called from BROWSEADO(194)
Called from JPTABCADGRUCLASS:GRIDSELECTION(45)


Erro na janela de browse... A mesma janela usada em TODO aplicativo, para TODAS as bases de dados, TODO tempo, HÁ UM ANO....
E agora não foi em TS.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor Itamar M. Lins Jr. » 07 Abr 2021 13:00

Olá!
CREATE CLASS WvgCrt INHERIT WvgWindow, WvgPartHandler


Na classe, tem que colocar esse controle ? Called from FRMGUICLASS:HSCROLL(447)

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

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 07 Abr 2021 14:17

METHOD HSCroll( nTop, nLeft, nHeight, nWidth ) CLASS frmGuiClass

   LOCAL oControl

   ( nTop )
   oControl := wvgScrollbar():New()
   oControl:SetColorBG( "0/6" )
   oControl:Create( , , { -( nTop + nHeight - 1 ), -nLeft }, { -1, -( nWidth - 2 ) } )
   AAdd( ::aControlList, { CONTROL_TYPE_HSCROLL, oControl } )

   RETURN Nil


Como eu disse, é usada todo tempo, em todo aplicativo.
Não está fazendo sentido começar a dar erro de vez em quando.

Apenas com tentativa, acrescentando a janela parent, coisa que nunca precisou, e pelo menos nos testes iniciais não fez diferença. (não sei para o erro).
   oControl := wvgScrollbar():New( wvgSetAppWindow() )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 07 Abr 2021 14:51

Hoje recebi um erro diferente, e talvez interessante, do meu próprio servidor.

Application Internal Error - C:\jpa\JPA2.EXE
Terminated at: 2021-04-06 23:24:13
Info: JOSEJPA SERVERJPA joseq
Unrecoverable error 9006: hb_xgrab can't allocate memory
Called from SUBSTR(0)
Called from HBNFEDANFE:FORMATAMEMO(99)
Called from HBNFEDANFE:CALCULALAYOUT(931)
Called from HBNFEDANFE:GERAPDF(310)
Called from HBNFEDANFE:TOPDF(206)
Called from HBNFEDAGERAL:TOPDF(175)
Called from XMLPDFCLASS:GERAPDF(47)
Called from NFEEMAIL(229)
Called from (b)PDFESERVER(39)
Called from NFESELECT(196)
Called from PDFESERVER(53)
Called from DO(0)
Called from DOPRG(144)
Called from (b)RUNMODULE(109)
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro estranho em New()

Mensagempor alxsts » 07 Abr 2021 14:55

Olá!

Não sei se tem algo a ver...
SET COLOR*
Define screen colors
------------------------------------------------------------------------------
Syntax

SET COLOR | COLOUR TO [[<standard>]
[,<enhanced>] [,<border>] [,<background>]
[,<unselected>]] | (<cColorString>)

Arguments

<standard> is the color that paints all console, full-screen, and
interface commands and functions when displaying to the screen. This
includes commands such as @...PROMPT, @...SAY, and ?; as well as
functions such as ACHOICE(), DBEDIT(), and MEMOEDIT().

<enhanced> is the color that paints highlighted displays. This
includes GETs with INTENSITY ON, the MENU TO, DBEDIT(), and ACHOICE()
selection highlight.

<border> is the color that paints the area around the screen that
cannot be written to.

<background> is not currently supported by any machines for which
Computer Associates provides drivers. This setting is supplied for
compatibility purposes only.

<unselected> is a color pair that provides input focus by displaying
the current GET in the enhanced color while other GETs are displayed in
this color.

<cColorString> is a character string enclosed in parentheses
containing the color settings. This facility lets you specify the color
settings as an expression in place of a literal string or macro
variable.

SET COLOR TO with no argument restores the default colors to W/N, N/W,
N, N, N/W.

Description

SET COLOR, a command synonym for the SETCOLOR() function, defines colors
for subsequent screen painting activity. Each SET COLOR command
specifies a list of color settings for the five types of screen painting
activity. Each setting is a foreground and background color pair
separated by the slash (/) character. Foreground defines the color of
characters displayed on the screen. Background defines the color
displayed behind the character. Spaces and nondisplay characters
display as background only.

In addition to color, a foreground setting can have an attribute, high
intensity or blinking. With a monochrome display, high intensity
enhances brightness of painted text. With a color display, high
intensity changes the hue of the specified color making it a different
color. For example, N displays foreground text as black where N+
displays the same text as gray. High intensity is denoted by +. The
blinking attribute causes the foreground text to flash on and off at a
rapid interval. Blinking is denoted with *. An attribute character can
occur anywhere in a setting, but is always applied to the foreground
color regardless where it occurs.

Each color can be specified using either a letter or a number, but
numbers and letters cannot be mixed within a setting. Note that numbers
are supplied for compatibility purposes and are not recommended.


All settings are optional. If a setting is skipped, its previous value
is retained with only new values set. Skipping a foreground or
background color within a setting sets the color to black.

The following colors are supported:

Color Table
------------------------------------------------------------------------
Color Letter Number Monochrome
------------------------------------------------------------------------
Black N, Space 0 Black
Blue B 1 Underline
Green G 2 White
Cyan BG 3 White
Red R 4 White
Magenta RB 5 White
Brown GR 6 White
White W 7 White
Gray N+ 8 Black
Bright Blue B+ 9 Bright Underline
Bright Green G+ 10 Bright White
Bright Cyan BG+ 11 Bright White
Bright Red R+ 12 Bright White
Bright Magenta RB+ 13 Bright White
Yellow GR+ 14 Bright White
Bright White W+ 15 Bright White
Black U Underline
Inverse Video I Inverse Video
Blank X Blank
------------------------------------------------------------------------

SET COLOR is a compatibility command and is not recommended. It is
superseded by the SETCOLOR() function which can return the current color
as well as set a new color.

Notes

. Monochrome monitors: Color is not supported on monochrome
monitors. CA-Clipper, however, supports the monochrome attributes
inverse video (I) and underlining (U).

. Screen drivers: SET COLOR TO, using numbers, may not be
supported by screen drivers other than the default screen driver.


Examples

. This example uses the unselected setting to make the current
GET red on white while the rest are black on white:

cColor:= "W/N,R/W,,,N/W"
SET COLOR TO (cColor)
cOne := cTwo := SPACE(10)
@ 1, 1 SAY "Enter One: " GET cOne
@ 2, 1 SAY "Enter Two: " GET cTwo
READ

. In this example a user-defined function gets a password from
the user using the blank (X) enhanced setting to hide the password as
the user types:

IF !DialogPassWord(12, 13, "W+/N", "FUNSUN", 3)
? "Sorry, your password failed"
QUIT
ENDIF

FUNCTION DialogPassWord( nRow, nCol, ;
cStandard, cPassword, nTries )
LOCAL nCount := 1, cColor := SETCOLOR()
SET COLOR TO (cStandard + ", X") // Blank input
//
DO WHILE nCount < nTries
cUserEntry:= SPACE(6)
@ nRow, nCol SAY "Enter password: " GET ;
cUserEntry
READ
//
IF LASTKEY() == 27
SET COLOR TO (cColor)
RETURN .F.

ELSEIF cUserEntry == cPassword
SET COLOR TO (cColor)
RETURN .T.
ELSE
nCount++
ENDIF
ENDDO
//
SET COLOR TO (cColor)
RETURN .F.

Files Library is CLIPPER.LIB.

See Also: @...GET @...SAY ISCOLOR() SETCOLOR() SETBLINK()
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Erro estranho em New()

Mensagempor JoséQuintas » 07 Abr 2021 16:22

Não, porque esse SetColor() é um método da classe, não tem a ver com o SetColor() normal.

Só repetindo: isso funciona, deve rodar 10.000 vezes por dia, há anos.

A parte estranha ACIMA é que está aparecendo um erro de alocação de memória, o que não aparece em outros casos de erro.

Faltar memória? pra uma coisa que roda há anos?

Ou.... a Microsoft mudou novamente a forma de alocar memória, e não está compatível.
Pode ser qualquer coisa no momento.
A única coisa que sei, é que são erros que não aconteciam antes.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Bing [Bot], Google Adsense [Bot], pauloa1 e 4 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