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
  #2  
Antiguo 11-12-2019
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Este código lee todo el código fuente de tu Web y lo devuelve en un String:


Código PHP:
String InternetReadWeb(charURL)
{
  
HINTERNET hNet;
  
HINTERNET hUrl;
  
char  Buffer[513];
  
DWORD BytesRead 0;
  
String Text "";
  
hNet InternetOpen("agent"INTERNET_OPEN_TYPE_PRECONFIGNULLNULL0);
  if(
hNet){
    
hUrl InternetOpenUrl(hNetURLNULL0INTERNET_FLAG_RELOAD0);
    if(
hUrl){
      
// Lee la pagina web...
      
while(InternetReadFile(hUrlBuffersizeof(Buffer)-1, &BytesRead)){
        if(!
BytesRead) break;
        
Buffer[BytesRead] = 0;
        
Text Text Buffer;
      }
      
InternetCloseHandle(hUrl);
    }
    
InternetCloseHandle(hNet);
  }
  return 
Text;


Saludos.
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
Insertar un Carácter, antes de los 2 últimos carácter maxzama Varios 10 20-07-2015 15:22:53
Reemplazar carácter por otro carácter rotsen26 OOP 3 27-05-2013 10:51:38
Leer texto caracter a caracter kikecg Firebird e Interbase 11 23-11-2010 17:44:44
leer caracter por caracter, una linea de un memo douglas OOP 1 05-10-2007 06:59:31
Ayudaaaa!!! Tabla ASCII: El carácter Ñ vs. carácter ¥ Berto2003 Varios 5 26-07-2005 15:37:48


La franja horaria es GMT +2. Ahora son las 15:55:12.


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