Recibir respuesta de un servidor

[NEG1414]

Gracias por contestar


Entiendo con tu respuesta que el codigo "Post" y "Get" con hinternet es correcto, donde tengo el problema es a la hora de "valorar" la respuesta obtenida en Buffer ...

[dec]

Hola a todos,

Empezado por NEG1414

Gracias por contestar


Entiendo con tu respuesta que el codigo "Post" y "Get" con hinternet es correcto, donde tengo el problema es a la hora de "valorar" la respuesta obtenida en Buffer ...

No... yo sólo me refería a la respuesta... y es porque "if(Buffer!=0)" no me cuadra... puesto que si "$Esta" es "false" no será "0" como acaso esperas... tal vez sería bien una respuesta como "true" y "false", ojo, no valores "booleanos", sino cadenas "true" y "false", y así tendrás que comprobar en tu programa: comparando cadenas, esperando "true" o "false".

[NEG1414]

Gracias por contestar,..
He modificado el codigo php de la siguiente manera

Código PHP:

<?php
  $Nombre = $_GET['Nombre'];
  //Se Abre archivo Texto Lista Usuarios
  $Lista = fopen('ListUsuarios.txt','r');
  //Comprobamos si Nombre ya figura en la Lista
  $Esta = 'N'; //MODIFICADO
  while ($linea = fgets($Lista))
  {
    if ($linea===$Nombre)
    {
      $Esta ='S'; //MODIFICADO
      //break;
    }            
  }
  fclose($Lista);
  //Si no esta en la lista lo incorporamos
  if($Esta=='N') //MODIFICADO
  {
    $Lista = fopen('ListUsuarios.txt','a');    
    fwrite($Lista,$Nombre.PHP_EOL);
    fclose($fp);
  }
  echo $Esta;    
?>

y la llamada:

  char  Buffer;  //MODIFICADO
  DWORD BytesRead=0;

  const ::HINTERNET sesion = InternetOpen("agent",INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL,0);
  if(sesion!=NULL)
  {

     AnsiString Url = "http://XXXXX.es//GPrUsers//Registro.php?Nombre="+NomUsers;
     const ::HINTERNET handle = ::InternetOpenUrl(sesion,Url.c_str(),NULL,0, INTERNET_FLAG_RELOAD, 0);
     if(handle!=NULL)
     {
        InternetReadFile(handle,&Buffer,sizeof(Byte),&BytesRead);
        //Si  Existe
        if(Buffer=='S')//MODIFICADO
        {
      
        }
        else
        {
        
        }
     }
    InternetCloseHandle(handle);
   }

Y buffer sigue teniendo valor NULL '/n'
,¿Que estoy haciendo mal?

Gracias

[Casimiro Notevi]

Recuerda que tienes la opción de integrar código mediante las etiquetas, también para php, no es necesario que pierdas el tiempo poniendo colores y demás.

[Ñuño Martínez]

Yo creo que hay algo que no funciona como esperas y hay un error en alguna parte. Por eso, yo haría lo siguiente:

Primero, revisaría la configuración del servidor para asegurarme de que devuelve todos los errores que se puedan producir. Es decir, lo pondría en modo pruebas. Que no ignore absolutamente nada. Ojo, que PHP es muy puñetero y la gestión de los errores está repartida en unas cuantas variables, y si no todas están bien asignadas habrá cosas que no verás. Asegúrate, también, de que no cambias alguna de estas variables en tiempo de ejecución. Si no lo has hecho ya, lee todo esto.

Luego cambiaría el código del cliente para que muestre todo lo que devuelva el servidor, sin dejar ni un octeto. Supongo que InternetReadFile es capaz de indicar si ha quedado algo en la caché. Pues eso, que llene un TMemo o un archivo de disco con lo que reciba, tal cual. Cuidado con los caracteres de control (saltos de línea, tabuladores, etc.). También guardaría la información de cabecera, porque puede dar información invisible pero útil, como la codificación de caracteres, la URI auténtica, variables GET y POST, huellas (cookies),...

A partir de ahí ya se verá lo que se hace.

[NEG1414]

Buenas...


Gracias por contestar a todos... dec estabas en lo cierto , realmente echo $Esta devuelve una cadena, el error lo cometia yo al no leerla completamente mediante un while.

        while (InternetReadFile(handle,&Buffer,sizeof(Buffer),&BytesRead))
        {
           if(BytesRead==0){break;}
         }

Una vez lee todos los bytes y sale del bucle while, el valor d Buffer es S o N.


Gracias otra vez.