Foros Club Delphi - leer caracter de una web con InternetReadFile

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - leer caracter de una web con InternetReadFile (https://www.clubdelphi.com/foros/showthread.php?t=94329)

NEG1414

09-12-2019 20:35:12

leer caracter de una web con InternetReadFile

Buenas..

tengo una pagina web MIWEB con el codigo

<?php

$Caracter = 'S';
echo $Caracter;
?>

Quiero leer desde mi aplicacion el valor de $Caracter y codifico

Código:

char  Buffer;

 DWORD BytesRead=0;



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

  if(sesion!=NULL)

  {



     AnsiString Url = "http://www.MIWEB.ES";

     const ::HINTERNET handle = ::InternetOpenUrl(sesion,Url.c_str(),NULL,0, INTERNET_FLAG_RELOAD, 0);

     if(handle!=NULL)

     {

        while(InternetReadFile(handle,&Buffer,sizeof(Byte),&BytesRead))

        {

          if(BytesRead==0){break;}

        }

    }

    InternetCloseHandle(handle);

  }

  else

  {



  }

  InternetCloseHandle(sesion);

Pero Buffer ='/n'

Que Hago MAL Gracias.

escafandra

11-12-2019 00:07:25

Este código lee todo el código fuente de tu Web y lo devuelve en un String:

Código PHP:


		
			
String InternetReadWeb(char* URL)
{
  HINTERNET hNet;
  HINTERNET hUrl;
  char  Buffer[513];
  DWORD BytesRead = 0;
  String Text = "";
  hNet = InternetOpen("agent", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
  if(hNet){
    hUrl = InternetOpenUrl(hNet, URL, NULL, 0, INTERNET_FLAG_RELOAD, 0);
    if(hUrl){
      // Lee la pagina web...
      while(InternetReadFile(hUrl, Buffer, sizeof(Buffer)-1, &BytesRead)){
        if(!BytesRead) break;
        Buffer[BytesRead] = 0;
        Text = Text + Buffer;
      }
      InternetCloseHandle(hUrl);
    }
    InternetCloseHandle(hNet);
  }
  return Text;
}

Saludos.

NEG1414

11-12-2019 13:33:18

Muchas gracias por contestar

La franja horaria es GMT +2. Ahora son las 08:09:15.