Ver Mensaje Individual
  #9  
Antiguo 25-01-2014
jhonalone jhonalone is offline
Miembro
 
Registrado: sep 2007
Ubicación: Madrid
Posts: 547
Reputación: 17
jhonalone Va por buen camino
Hola, de nuevo.
Os cuento.
He instalado Lazarus.
He convertido las unidades que usaba con Delphi.
Me ha costado entender el tema de los paquetes, pero he conseguido complilar el programa con Lazarus.
El programa comienza según código que sigue:
Código Delphi [-]
program Desencriptar;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}

y el script en php es así:
Código PHP:
<?php
echo '<pre>';
exec'(Desencriptar.exe 4a5156e1b569ff3d ClaveDeLaBaseDeDatos ClaveDeLasVisitas'$stre$retval);
// Imprimir informacion adicional
echo '
</pre>
<hr />Valor de retorno: ' 
$retval;
?>
Y me sigue devolviendo el código de retorno = 1

Bueno, el Lazarus lo he instalado y ejecutado en Windows que es la plataforma que utilizo. No sé si tendré que hacer algo en el IDE de Lazarus para que genere código compatible con Linux/Unix.
Si alguien puede ayudarme, gracias.
Un saludo.
Responder Con Cita