Clipper On Line • Ver Tópico - StartThread()

StartThread()

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

Moderador: Moderadores

 

StartThread()

Mensagempor vilian » 30 Out 2020 17:22

Passando só para destacar que MultiThread no xHarbour não funciona. Se vc usa xHarbour, nem perca seu tempo tentando.
vilian
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 26
Data de registro: 29 Ago 2013 17:39
Cidade/Estado: Belem/Pa
Curtiu: 0 vez
Mens.Curtidas: 4 vezes

StartThread()

Mensagempor juniorcamilo » 11 Nov 2020 08:14

ola amigos!
como não tem como o startThread() funcionar em xHarbour 1.2.3, fiz um recurso técnico! Fiz minha automação chamar minha própria automação passando parâmetro, ou seja, executou o sistema em segundo plano e faz oq eu pedir e não para a execução!
Avatar de usuário

juniorcamilo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 10 Nov 2006 08:12
Cidade/Estado: Pará
Curtiu: 29 vezes
Mens.Curtidas: 2 vezes

StartThread()

Mensagempor asimoes » 11 Nov 2020 21:08

Não perca tempo com xHarbour, você não vai encontrar solução aqui no site, muito raro
â–º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

StartThread()

Mensagempor betovsp » 13 Jan 2021 22:03

juniorcamilo escreveu:ola amigos!
como não tem como o startThread() funcionar em xHarbour 1.2.3, fiz um recurso técnico! Fiz minha automação chamar minha própria automação passando parâmetro, ou seja, executou o sistema em segundo plano e faz oq eu pedir e não para a execução!


Olá meu amigo, consegue me mostrar como fez?
Estou precisando disso também.
Abraços.

Beto
betovsp@hotmail.com
(16)9112-5798
FWH 9.08 @SAY Xharb 1.2.1
Ribeirão Preto/SP
betovsp
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 4
Data de registro: 09 Set 2005 13:34
Curtiu: 0 vez
Mens.Curtidas: 0 vez

StartThread()

Mensagempor juniorcamilo » 19 Jan 2021 10:53

betovsp escreveu:Olá meu amigo, consegue me mostrar como fez?
Estou precisando disso também.


procedure EXECUTEDOWNLOADTRAVA(net,mArq)
   if Valtype(net) == "L"
      if net == .t.
         net := "net online"
      else
         net := "net offline"
      endif
   endif
   if at(":",CLDADOS) == 0
      ccomando := '"'+CURDRIVE()+':'+CLDADOS+EXENAME()+'"'+" EXECUTE$DownloadTrava('"+tira(net," ")+"','"+mArq+"')"
      winexec(cComando,2)

   else
      MyRun('"'+CLDADOS+EXENAME()+'"'+" EXECUTE$DownloadTrava('"+net+"','"+mArq+"')")
   endif
return


FUNCTION Main(Envio)

*********************

if at("EXECUTE$",Envio) # 0
   TRY
      Private Funcao := substr(Envio,at("$",Envio)+1)
      &Funcao.
   CATCH e
      bErro := .t.
      DefError(e,.f.)
   FINALLY
      seguranca()
   END
endif
*********************


simplificando.. caso queira mais detalhes ! estou a disposição!
Avatar de usuário

juniorcamilo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 10 Nov 2006 08:12
Cidade/Estado: Pará
Curtiu: 29 vezes
Mens.Curtidas: 2 vezes

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 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