PC Toledo

... MSRP): $409 (USD)

Especificações da CPU
Total de Núcleos: 20
Núcleos de Performance (P-cores): 8
Núcleos Eficientes (E-cores): 12

Total de Threads: 28
Frequência Base:P-core: 3.4 GHz
E-core: 2.5 GHz

Frequência Máxima Turbo:Geral: 5.6 GHz
Intel® Turbo Boost Max Technology 3.0: 5.6 GHz
P-core ...

/*
h_HmgApp
*/

#include "hbclass.ch"

MEMVAR _HMG_SYSDATA

THREAD STATIC oApp

INIT PROCEDURE Init_oApp

oApp := _hmg_AppClass():New()

RETURN

CREATE CLASS _Hmg_AppClass

VAR aList INIT {}
METHOD AddItem( xValue )
METHOD GetItemFromName( xValue )
METHOD GetItemFromHandle( xValue )
METHOD ...

Acréscimo ao vídeo, talvez não dê pra perceber:

As janelas abrem sempre centralizadas.
Movo cada uma para o menu/thread que a abriu.

As duas janelas de cima são dlgauto usando hwgui.
As duas janelas de baixo são dlgauto usando hmg extended.

Lembram ? multithread é igual vários EXEs.
Cada thread tem ...

... https://www.youtube.com/watch?v=uqKXXEUI7b0

Só o detalhe de fechar a janela HMG Extended que falta resolver.

A primeira janela de cada thread parece ser considerada a Main, e fechou uma fecha todas.

Tirando isso, tá tudo perfeito, até o foco ficou resolvido com a alteração que eu fiz.

... WAIT
RETURN

server.prg

/**
* Harbour Inet demo server program
*
* Giancarlo Niccolai
*
* In this program, the server uses just one thread
* to demonstrate how to use timeout sockets.
*/

PROCEDURE Main( cPort )

LOCAL Socket, s
LOCAL nResponse, cResponse
LOCAL nTurn := 0, nTurn1 ...

... WAIT
RETURN

server.prg

/**
* Harbour Inet demo server program
*
* Giancarlo Niccolai
*
* In this program, the server uses just one thread
* to demonstrate how to use timeout sockets.
*/

PROCEDURE Main( cPort )

LOCAL Socket, s
LOCAL nResponse, cResponse
LOCAL nTurn := 0, nTurn1 ...

Um fonte simples, com partes comentadas.


THREAD STATIC oGUI

FUNCTION GUI()

RETURN oGUI

PROCEDURE Main

LOCAL nOpc := 1

SetMode(33,100)
CLS
DO WHILE .T.
@ 1, 0 PROMPT "(H)HWGUI"
@ 2, 0 PROMPT "(3)HMG3"
@ 3, 0 PROMPT "(E)HMGE"
@ 4, 0 PROMPT "(O)OOHG"
MENU TO nOpc

DO CASE
CASE LastKey ...

... certificado em autoridade ok, pode ser validado.
Lá na Microsoft acusaria inválido, porque lá não tem certificado.

Também tem o detalhe de multithread.
Qual a diferença ?
A thread normal é bloqueada, a multithread continua. (não cheguei a confirmar desta vez).
Em multithread o programa faz muita ...

tem também o demomenumt.prg


/*
demomenumt.prg
menu using multithread
compile using -mt

CAUTION

- *** MT is experimental ***

- *** Make your own tests with another multithread GT ***

- If do not build hwgui using HB_GUI_MT_EXPERIMENTAL,
need to close dialogs in reverse order of open

- If ...

Evitem ao máximo o uso de variáveis PUBLIC e PRIVATE em multithread.
Aquelo recurso que o harbour tem, de passar tudo pra thread.
O aplicativo pode entrar em colapso conforme a situação.
Acho até que muita LIB GUI dá problema por falta desse controle.

No harbour existe hb_Mutex() pra evitar problemas ...

... colocando isso, porque depois trocam pra LIB gráfica, e isso daria problema.
Isso roda só no início do aplicativo, não roda inicial em todas as threads.
Esse é o ponto aonde as LIBs podem não se comportar direito em multithread, porque as threads rodam sem o init.

Pelo mesmo motivo, chamo a ...

Multithread não enxerga variáveis.
Pode transformar as variáveis públicas em STATIC ou THREAD STATIC.


STATIC FUNCTION AppUserName( xValue )
STATIC sAppUserName := ""
IF xValue != Nil
sAppUserName := xValue
ENDIF
RETURN sAppUserName


Sempre que precisar o nome do usuário, só usar AppUserName ...

É relativamente moleza, ao mesmo tempo que precisa muita atenção.

Antes de começar, é se preparar.
Multithread é igual ter vários EXEs, do mesmo jeito, variáveis, arquivos abertos, etc. não ficam visíveis.
Precisa confirmar se errorsys, gt, etc. vão estar disponíveis em todas as thread, geralmente ...

... entendi 100% o que foi realmente. Agora no Linux... postando. Vou ligar o notebook pra continuar os estudos desse problema.

Uma coisa em multithread é que o encerramento não segue os meios normais de fechamento.
Dependendo do que der erro, os componentes Windows ficam na tela, mas sem programa ...

... DIALOG oDlg TITLE "ADO Example" ;
AT 200,0 SIZE 400,150

MENU OF oDlg
MENUITEM "&Exit" ACTION hwg_EndDialog()
MENUITEM "&Browse DBF" ACTION hb_ThreadStart( { || DoMt( nCont++ ) } )
ENDMENU

ACTIVATE DIALOG oDlg

hb_ThreadWaitForAll()

RETURN Nil

FUNCTION DoMt( nCont )

hb_gtReload( hb ...