Como usar a LIB do blinker 7 no harbour?

[clodoaldomonteiro]

Amigos!

Queria saber se a LIB do blinker 7.0 pode ser usada com o xharbour?

É que tem uma função nessa lib que uso muito no clipper e eu queria aproveitar ela.

Desde já agradeço a atenção.

[Maligno]

Muito provavelmente não. Mas que função é essa tão importante? Talvez exista uma alternativa no XHarbour mesmo.

[clodoaldomonteiro]

Malígno!

É uma função que executa comandos externos a SWPRUNCMD(), foi você que passou ela no furum clipper.

[Stanis Luksys]

Da pra usar o RUN padrão pelo xHarbour também.

Ou usar o CreateProcess do próprio Windows.

[Maligno]

É uma função que executa comandos externos a SWPRUNCMD(), foi você que passou ela no furum clipper.

O comando RUN do XHarbour não serve? Aliás, o ideal seria nunca executar nada externo. Mas sendo necessário, há funções da API do Windows que se prestam a esse serviço. Melhor que o RUN e o SwpRunCmd().

[janio]

Colega,

Para xharbour temos a função MyRun, veja:

function MYRUN( cComando )
**************************

local oShell, RET

oShell := CreateObject( "WScript.Shell" )
RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. )
oShell := NIL

return iif( RET = 0, .T., .F. )


Jânio

[sygecom]

ou se quiser poder usar o WINEXEC() no lugar da SWPRUNCMD() basta linkar a WHAT32.LIB na sua app.

[dbsh]

para nao mudar todo seu sistema use uma define
EX:

Código: Selecionar todos

#IFDEF _XHB_DEF_MEU_SISTEMA
FUNCTION SwpRunCmd( parametros.... )
//incluir um dos exemplos acima aqui
RETU
#ENDIF

defina _XHB_DEF_MEU_SISTEMA no arquivo .BC, assim ele funcionara tanto no Clipper como no xHB

[clodoaldomonteiro]

ou se quiser poder usar o WINEXEC() no lugar da SWPRUNCMD() basta linkar a WHAT32.LIB na sua app.

Onde eu encontro alguma documentação da what32.lib, para saber quais os parâmetros da função winexec()?

DBSH!
Nunca usei o #IFDEF e não sei onde encontrar o arquivo .BC, uso o xDev para editar e compilar os meus arquivos.

Jânio!
Essa função que vc postou, funciona com o xHarbour no modo não gráfico?

Valeu pela dica de todos.

[rochinha]

Amiguinho

Então não use IFDEFs e apenas inclua a função passada em seu .PRG principal.

No caso da função do Janio troque o nome MyFUN por SWPRUNCMD.

Voce não precisará acrescenter %comspec% /c, basta colocar o nome do .EXE que ele executa normalmente e se for um aplicativo DOS o comando forçará o CMD.EXE a ser executado.

[Maligno]

Onde eu encontro alguma documentação da what32.lib, para saber quais os parâmetros da função winexec()?

WinExec() é uma funcão da API do Windows. Nesses casos, o melhor help que existe é a MSDN. Pode-se tanto pesquisar pela Internet, quanto baixar a MSDN Library. O link está na mensagem que eu já havia postado aqui.
Ou, se for o caso, uma simples busca no Google já resolve também. Aliás, uma busca já retorna a MSDN. Veja aqui.

[sygecom]

Onde eu encontro alguma documentação da what32.lib, para saber quais os parâmetros da função winexec()?

Quando vc baixa as CONTRIB na pasta da what32 tem um TXT que se chama functions.txt, nele tem uma lista de todas as funções da API do Windows que consta na WHAT32.LIB

Nunca usei o #IFDEF e não sei onde encontrar o arquivo .BC, uso o xDev para editar e compilar os meus arquivos.

arquivo .BC é o script usado pela HBMAKE
EX:
meusistema.bc /ex

Ele vai abrir uma janela com as opções de compilação do hbmake e vai guarda as opções escolhidas nesse arquivo .BC , depois para não ficar gerando a todo momento o SCRIPT, para compilar vc apenas retira o /EX.

[clodoaldomonteiro]

Valeu pela dica de todos, tava muito ocupado esses dias, tem gente nova na família, mais ainda tô interessado em Harbour.

[alaminojunior]

Papai fresco ? Meus Parabéns colega ) ) ) Olha a mensagem no rodapé.

Olha só, dias atras fiz uma experiencia com umas funções do xHarbour, que coloca comandos externos ou internos mesmo, para rodar em background, e achei que ficou legal. Veja só:

Código: Selecionar todos

case tempo = K_F4 .and. email != "   "
           nTask:= HB_BackGroundAdd({ || Email() },15) // (funcão ext ou int), tempo em milisecons, que a rotina se repetirá

           HB_BackGroundRun(nTask) // Bota pra rodar

           Tb3:RefreshAll()

           HB_BackGroundDel(nTask) // Tira da execução

           loop

[clodoaldomonteiro]

Esse xharbour tem muita coisa mesmo.
Espero ter muito tempo para estudá-lo, valeu a força.