Debe de ser una de esas sorpresas que el flamante Windows 10 tiene escondidas en lo m谩s intrincado de su naturaleza.
Resulta que si invocamos al curl.exe que trae el propio S.O. en la carpeta C:\Windows\system32, no lo encuentra cuando utilizamos los comandos mencionados en los post anteriores. Pero es m谩s, resulta que, a煤n estando all铆, no lo encuentra siquiera la instrucci贸n file("C:\Windows\System32\curl.exe").
Y si vas a verificar su existencia con el explorardor de windows, como digo, sin embargo all铆 est谩.
Para resolver el problema ha bastado con utilizar un curl otro cualquiera de los varios que aparecen instalados en el sistema, como el que viene con XAMPP (si lo teneis instalado) o el propio de harbour ubicado en: C:\hb32\comp\mingw\bin\curl.exe
Pero a qui茅n se le va a ocurrir que pasen estas cosas con windows, que no encuentre un archivo que si est谩.
Les dejo el c贸digo por si a alguien le puede ser de utilidad:
function CURL_enviaFichero(cCertificado,cCertificadoKey,cFicheroAenviar,cFichRespAeat,cHttpAeat)
local cCurl :="C:\hb32\comp\mingw\bin\curl.exe"
local cOpciones:='--connect-timeout 60 -m 60 -S -L --cert ' + cCertificado + ' --key ' + cCertificadoKey +;
' -d @' + cFicheroAenviar + ' -o "' + cFichRespAeat +'" ' +cHttpAeat+ " > "+ "Salida.Txt"
local nErrorShellExecute:=32 // A partir del valor 32 inclusive es correcto y es el handler asignado al ejecutable
if FILE(cCurl)
nError = ShellExecute(oWnd,"Open",cCurl,cOpciones,,3)
if nError < 32 //error
msgstop(erroresShellExecute(nError),"ERROR AL EJECUTAR COMANDO DEL S.O.")
else
msginfo("COMANDO PROCESADO","INFORMACION")
endif
else
msgstop("NO EXISTE EL PROGRAMA: "+cCurl,"ERROR DEL SISTEMA")
endif
/* Windows 10 NO lo encuentra a pesar de estar all铆 instalado. 25/03/2019.
De modo que el siguiente c贸digo siempre devuelve el error n潞 2 de ShellExecute
if FILE("C:\Windows\System32\curl.exe")
nError = ShellExecute(oWnd,"Open","C:\Windows\System32\curl.exe",cOpciones,,3)
if nError < 32 //error
msgstop(erroresShellExecute(nError),"ERROR AL EJECUTAR COMANDO DEL S.O.")
else
msginfo("COMANDO PROCESADO","INFORMACION")
endif
else
msgstop("NO EXISTE EL PROGRAMA: "+"C:\Windows\System32\curl.exe","ERROR DEL SISTEMA")
endif
*/
return
/* Instrucciones de ShellExecute:
https://docs.microsoft.com/en-us/windows/desktop/api/shellapi/nf-shellapi-shellexecutea#return-value
Devuelve:
El valor devuelto es el identificador de instancia de la aplicaci贸n que se abri贸 o se imprime, si la funci贸n se realiza correctamente.
(Este controlador tambi茅n podr铆a ser el identificador de una aplicaci贸n de servidor DDE.)
Una devoluci贸n de valor menor o igual a 32 especifica un error.
Errores:
La funci贸n ShellExecute() devuelve el valor 31 Si no hay ninguna asociaci贸n para el tipo de archivo especificado,
o si no hay ninguna asociaci贸n para la acci贸n especificada en el tipo de archivo.
Los dem谩s valores de error posibles son:*/
function erroresShellExecute(nError)
local nPos:=0
local aErrores:={ {0, "System was out of memory, executable file was corrupt, or relocations were invalid."},;
{2, "File was not found."},;
{3, "Path was not found."},;
{5, "Attempt was made to dynamically link to a task, or there was a sharing or network-protection error."},;
{6, "Library required separate data segments for each task."},;
{8, "There was insufficient memory to start the application."},;
{10,"Windows version was incorrect."},;
{11,"Executable file was invalid. Either it was not a Windows application, or there was an error in the .exe image."},;
{12,"Application was designed for a different operating system."},;
{13,"Application was designed for MS-DOS 4.0."},;
{14,"Type of executable file was unknown."},;
{15,"Attempt was made to load a real-mode application (developed for an earlier version of Windows)."},;
{16,"Attempt was made to load a second instance of an executable file containing multiple data segments that were not marked read-only."},;
{19,"Attempt was made to load a compressed executable file. The file must be decompressed before it can be loaded."},;
{20,"Dynamic-link library (DLL) file was invalid. One of the DLLs required to run this application was corrupt."},;
{21,"Application requires Microsoft Windows 32-bit extensions."},;
{31,"La extensi贸n del archivo no tiene asociaci贸n"} }
nPos=ascan(aErrores,{|aVal| aVal[1]==nError})
return iif(nPos<>0,str(nError,3)+" - "+aErrores[nPos,2],"SIN ERRORES")
