Error Harbour y FWH con NET USE.. Antonio?

Error Harbour y FWH con NET USE.. Antonio?

Postby Adolfo » Tue Aug 25, 2020 9:49 pm

Fivewinners

A proposito del error que encontre con una de mis app, encontre una situacion rara.

FWH o Harbour no lee o reconoce los puertos capturados por NET USE
Si hago esto antes de entrar a mi sistema

C:\>Net Use LPT1: \\127.0.0.1\NOMBREIMPRESORA /PERSISTENT:YES
C:\>Net Use

la informacion de captura y redireccionamiento de LPT1 a la impresora si aparece

Pero si llamo a NET USE desde adentro de cualquier aplicacion en FWH/Harbour, pues el puerto no aparece capturado
Ej
cComando:="Net Use>>resultado.txt"
WaitRun(cComando,0)

Veran que no aparece capturado nuestro LPT1 si revisan resultado.txt, por eso no lo "hereda" a la aplicacion que llama mi bat por ejemplo.

Para poder hacer funcionar mi .bat, tuve que poner antes de la llamada al comando del servicio una llamada a NET USE
Asi que queda de la siguiente manera el DO.BAT

Net Use LPT1: \\127.0.0.1\Tickets
reply.exe "archivo.txt" "nolog" "url:127.0.0.1">>exito.txt

Es un parche, no deberia ser asi ... a ver si alguien me ilumina porque se comporta asi mi aplicacion
Harbour 3 y FWH 17.06 en un Windows 10 Profesional 64 bits


Saludos desde Chile
;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
User avatar
Adolfo
 
Posts: 860
Joined: Tue Oct 11, 2005 11:57 am
Location: Chile

Re: Error Harbour y FWH con NET USE.. Antonio?

Postby Antonio Linares » Wed Aug 26, 2020 11:32 am

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42078
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Error Harbour y FWH con NET USE.. Antonio?

Postby Adolfo » Mon Sep 07, 2020 1:20 pm

Antonio... habia solucionado mi problema con un parche, pero la velocidad del proceso me esta complicando.
Cuando llamo al bat, la primera linea es net use LPT1 \\127.0.0.1\BOLETAS /PERSISTENT:YES
luego procede a seguir y todo funciona, pero debo esperar a que net use realice el redireccionamiento para hacer lo otros procesos
Cree el autoexec.nt en el directorio c:\windows\system32 con la linea necesaria, al reinicar y consultar en una ventana de CMD, net use esta 100% operativo, pero dentro de la app FWH NO

Una prueba sencilla.

en una ventana CMD hagan una captura de puerto con este ejemplo (la impresora debe estar compartida)
net use LPT1 \\127.0.0.1\nombre_impresora /PERSISTENT:YES

para probar que esta funcional, ejecutar lo siguiente
net use
aparece el recurso inicializado.. sin cerrar la ventana del CMD llamen a una app de prueba, creen esta llamada dentro de su app

Winexec("c:\windows\system32\cmd.exe",1)
al interior de esa ventana ejecuten NET USE

No aparece la impresora redireccionada... porque?
Sin embargo si abro nuevamente una ventana CMD, varias en mi caso, distintas a la original y hago el net use, aparece bien el redireccionamiento en todas.

Mi S.O. es WINDOWS 10 HOME SINGLE LANGUAJE, 64 Bits
Probe en WINDOWS 10 PRo 64 Bits, y pasa lo mismo
;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
User avatar
Adolfo
 
Posts: 860
Joined: Tue Oct 11, 2005 11:57 am
Location: Chile


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 36 guests