FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ver código fuente de una página web
Hola. ¿Cómo podría conectarme con una página web y ver su código fuente? (en un RichEdit por ejemlo). Muchas Gracias
|
#2
|
||||
|
||||
Hola,
Código:
RichEdit->Text = IdHttp->Get("http://www.clubdelphi.com/"); |
#3
|
|||
|
|||
Perfecto, no hay como preguntar al que sabe, muchas gracias.
|
#4
|
||||
|
||||
Yo no soy muy amigo de componentes, aunque la misma VCL es un conjunto de ellos...
Bueno, me gustaría exponer una solución usando sólo API sin componentes de terceros ni de la VCL en la función de lectura de la Web: Código:
#include <vector> bool InternetReadWeb(char* URL, std::vector<BYTE> *Vector) { HINTERNET hNet; HINTERNET hUrl; BYTE Buffer; DWORD BytesRead = 0; bool Result = false; if(InternetAttemptConnect(0) != ERROR_SUCCESS) return Result; hNet = InternetOpen("App", 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... for(int ind=0; ; ind+=BytesRead){ Result = InternetReadFile(hUrl, &Buffer, sizeof(BYTE), &BytesRead); if(Result && BytesRead==0) break; Vector->push_back(Buffer); } InternetCloseHandle(hUrl); } InternetCloseHandle(hNet); } return Result; } Código:
void __fastcall TForm1::Button1Click(TObject *Sender) { std::vector<BYTE> Memory; InternetReadWeb("http://www.clubdelphi.com/", &Memory); RichEdit1->Text = (char*)&Memory[0]; } Saludos. |
#5
|
||||
|
||||
... Y si no te importa usar algo de la VCL en tu función InternetReadWeb, entonces la puedes diseñar así:
Código:
String InternetReadWeb(char* URL) { HINTERNET hNet; HINTERNET hUrl; char Buffer; DWORD BytesRead = 0; String Text = ""; bool NoError; if(InternetAttemptConnect(0) != ERROR_SUCCESS) return 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... for(int ind=0; ; ind+=BytesRead){ NoError = InternetReadFile(hUrl, &Buffer, sizeof(BYTE), &BytesRead); if(NoError && BytesRead==0) break; Text = Text + Buffer; } InternetCloseHandle(hUrl); } InternetCloseHandle(hNet); } return Text; } Código:
RichEdit1->Text = InternetReadWeb("http://www.clubdelphi.com/"); Se me olvidaba, en cualquiera de las opciones del uso de estas API, debes incluir en tu proyecto la librería inet.lib. Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ver El Codigo Fuente de una pagina PHP | Zeinc | PHP | 10 | 12-09-2007 18:51:30 |
Código fuente | chinchan | C++ Builder | 3 | 01-08-2006 04:59:25 |
Extraer código fuente html de página web | Casimiro Notevi | Varios | 16 | 11-11-2005 22:30:06 |
TPV.- Codigo Fuente | Rabata | Varios | 4 | 15-10-2005 13:48:51 |
|