Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 05-05-2019
NEG1414 NEG1414 is offline
Miembro
 
Registrado: mar 2007
Posts: 177
Poder: 20
NEG1414 Va por buen camino
Buenas..


Sigo dandole vueltas a poder recibir una respuesta desde un php a mi aplicacion cb6...


El codigo PHP funciona correctamnete


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 false;
                        while (
$linea fgets($Lista))
                        {
                          if (
$linea===$Nombre )
                            {
                                
$Esta true;
                                
//break;
                            
}            
                        }
                        
                        
fclose($Lista);
                        
                         
//Si no esta en la lista lo incorporamos
                        
if(!$Esta
                        {
                            
$Lista fopen('ListUsuarios.txt','a');    
                            
fwrite($Lista,$NombrePHP_EOL);
                            
fclose($fp);
                        }

                        echo 
$Esta;    

     
?>
</div>

En principio devolveria como respuesta el booleano Esta.


El codigo en c++ para llamar al scrip y en teoria recibir la respuesta seria..


Código:
  AnsiString NomUsers ="xxxx";

  BYTE  Buffer;
  DWORD BytesRead;

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

     AnsiString Url = "http://xxxxxx.es//GPrUsers//Registrado.php?Nombre="+NomUsers;//?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!=0)
        {
          //EXISTE
        }
        else
        {
          //NO EXISTE
        }
     }
    InternetCloseHandle(handle);
  }
  else
  {

  }
   InternetCloseHandle(sesion);
La llamada la hace correctamente, el problema lo tengo en la respuesta.. mi planteamineto es que el booleano Esta (respuesta) ocupa 8 bits (un byte) y si fuera positivo su valor seria 00000001 y si fuera negativo 00000000, valor que se asignaria a Buffer....
Ya que obviamente estoy equivocado alguien me puede orientar...


Gracias

Última edición por NEG1414 fecha: 05-05-2019 a las 13:16:43.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Recibir respuesta del php usando TIEHTTP. bibliotec Internet 4 20-03-2007 11:18:38
Recibir mail borrando la copia del servidor fedelphi Internet 14 06-02-2007 05:05:59
Velocidad de respuesta de servidor nfrfabian Conexión con bases de datos 6 10-01-2007 00:51:46
Respuesta danytorres Varios 2 16-07-2003 20:55:43


La franja horaria es GMT +2. Ahora son las 05:57:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi