Ejecutar PHP desde delphi y esperar resultados...

[dec]

Hola,

Que alguien me corrija, pero, creo que podrías usar el código de la respuesta HTTP. Un "script" de PHP podría incluir algo así:

Código PHP:

<?php

if(PuedoLlevarACaboLoQueQuiero()){
  header("HTTP/1.0 200 OK");
    // Resto de la respuesta
}else{
  header("HTTP/1.0 500 Internal Server Error");
    // Resto de la respuesta    
}

?>

Al hacer una petición HTTP a dicho "script", el mismo intenta realizar lo que se supone que tiene que hacer, y, en caso de conseguirlo, responde con un código HTTP 200, dando a entender que todo ha ido bien. En caso contrario, retorna un HTTP 500, indicando que hubo un problema.

No sé si este último código es el más apropiado, o incluso si podrías disponer tu propio código, pero, en todo caso, la idea es recoger dicho código de respuesta desde tu programa, de modo que sepas qué ha ocurrido en el servidor.

Luego el que hagas sucesivas peticiones "HTTP GET" (o "POST") o envíes los datos de los registros en una sola petición, supongo que depende de cómo te lo montes, quiero decir, desde el servidor sabrás qué recibes y qué hacer con lo que recibes.

[[movorack]]

Gracias DEC,

Interesante... voy a hacer unas pruebas; Luego te cuento...

[[Andreano]]

Por lo que entendí, aquí mis sugerencias.


1 – Utilizar el componente TWebBrowser en su aplicación, este componente un evento llamado onDocumentComplete que es llamado después que la pagina fue generada.

2 – Cambiar su estructura de insertar clientes para webservices, asi puedes controlar mejor.

Saludos,
Andreano

[[movorack]]

Antes que todo GRACIAS por la ayuda que me dieron... rebacano

La solución la encontré echando mano del truco que me recomendaste (realizar peticiones HTTP POST).

De esta manera pude enviar las solicitudes al script PHP y el programa espera a que termine de cargar devolviendome el resultado ya sea en la cabecera o en el contenido de la web (más facil me es en el contenido de la web).



estó quedó así:

Código Delphi [-]
    qry.First;
    while not Qry.Eof do
    begin
      //Actualizar en Internet.
      Stream := TMemoryStream.Create;
      Campos := TStringList.Create;
      try
        Campos.Values['campo'] := Qry.FieldByName('field').AsString;
        ...

        //Accion en Internet.
        Post(PHPScript, Campos, Stream);
        ...
        Campos.Clear;

      finally
        Stream.Free;
        Campos.Free;
      end;//try.

      //siguiente registro.
      qry.Next;

Nuevamente GRACIAS.

[[movorack]]

en el código del truco cambias el nombre del agente y le damos mayor seguridad a la interacción entre el PHP y delphi...

Código Delphi [-]
  hNet:= InternetOpen('DelphiBot', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

Código PHP:

    if ($_SERVER['HTTP_USER_AGENT'] == "DelphiBot") {
      ...
    } else {
      echo "ACCESO DENEGADO";
    }