Extraer código fuente html de página web

[Casimiro Notevi]

Hola de nuevo, aquí estoy de vuelta con una pregunta rara... es que últimamente me piden unas cosas...

Me hace falta, desde un programa delphi, extraer el código fuente de una página web que esté abierta.

Ejemplo: en el firefox, iexplorer, mozilla, konqueror... estamos en la página de google. Pues bien, desde "nuestro" programa pulsamos un botoncito y el código fuente (html/javascript...) de google se copia a un memo/richedit de nuestro programa.

Esto es como el circo, más difícil todavía, y al final cuando doy presupuesto se asustan y se olvidan del tema, hacen click con botón derecho sobre la página->ver código fuente->copiar->pegar al editor y listo.

En fin, es por si acaso conocéis alguna función o truquito para hacerlo, tampoco es muy importante como para que os quite el sueño

[ContraVeneno]

¿Puedo preguntar porque quieres ver el código fuente?
Si tu respuesta es que si puedo, pues:
No se que tan fácil pueda ser para un usuario común el tratar de leer el código fuente de una página que utiliza, php, javascript, css, html, asp, funciones, tags o demás mugreros (o todos juntos al mismo tiempo).
De cualquier manera mis pocos conocimientos no me permiten imaginar de que manera se podría hacer, además considerando que algunos autores no permiten que su código se haga público.
pero: ¿porque o para que quieres ver el código fuente?


Y si tu respuesta es que no, entonces has de cuenta que no pregunte nada.

[roman]

Empezado por ContraVeneno

el código fuente de una página que utiliza, php, javascript, css, html, asp, funciones, tags o demás mugreros (o todos juntos al mismo tiempo).

En principio, será imposible que vea código php o asp ya que se trata de código del lado del servidor que, como tal, no llega al navegador.

Empezado por ContraVeneno

además considerando que algunos autores no permiten que su código se haga público.

y tratándose de html, javascript, css, pues no hay forma de que eviten que sea público.

// Saludos

[JXJ]

Recuerdo que se puede hacer un pequeño
navegador web. con el Twebexplorer
y hacer un parseo. Asi es más facil..
tu suminitras elnavegador web.

Lo dificil es que sin importar el navegador web
ya sea firefox. IE. netscape. o cualquiera.

hacer llamdas a las funciones., para que obtengas el codigo fuente.

Por ejemplo. los programas que rellenan formularios
en sitios web. como los datos. personales.
direcciones fisicas.
Tienen plug ins que se acoplan a los distintos
navegadores.


Otra forma. tambien se me ocurre, es
hacer un hook de la ventana activa. o
desde un tlistview. seleccionar la ventana del
navegador activa. y llamar a los commandos
de página->ver código fuente->copiar->
para pegar al editor

´¿Cuanto les pediste?

y ¿cual es la utilidad de ese sistema.?

[Casimiro Notevi]

Iba a responder a ContraVeneno, pero ya lo ha hecho roman.

No he entregado ningún presupuesto porque antes tenía que ver si era posible. Mejor le digo al cliente que lo olvide.

Gracias de todas formas.

[ContraVeneno]

Con lo de php o asp, me refería que el desarrollador de la página puede "leer" el código de manera más fácil, comparado con cualquier otro que va a "leer" puro html (definitvamente no me refería que hiban a ver código php/asp); es decir, puede que el desarrollador vea una sola línea con una instrucción php fácil de entender, la cuál se puede convertir en muchas líneas html, haciendo muy dificil (imposible para los que no somos expertos) de entender.

Y con lo de lo público y lo privado, pues si, estando en internet deja de ser privado y se convierte en público. Pero creo haber visto en algunas páginas que bloquean el acceso al código fuente, algunas otras que en su código fuente colocan comentarios específicos respecto a no copiar y/o utilizar sus funciones o código; de ahí mi comentario al respecto.

[Casimiro Notevi]

Empezado por JXJ

Otra forma. tambien se me ocurre, es
hacer un hook de la ventana activa. o
desde un tlistview. seleccionar la ventana del
navegador activa. y llamar a los commandos
de página->ver código fuente->copiar->
para pegar al editor

Eso podría ser, le echaré un vistazo a ver qué tal

[OSKR]

Pues aqi mismo en el foro vi el codigo de un chamo q mostraba la pagina q tenia abierta el usuario bien sea por netscape, mozilla-firefox, IE, etc, bueno!! el caso es q una vez tengas esa URL puedes conectarte por un socket TCP a esa URL siguiendo las especificaciones del protocolo http y ahi recibiras el codigo q el web browser ha de mostrar por pantalla, hace poco se hizo algo parecido en un proyecto de comunicaciones en mi universidad para q se le mostrara al usuario los tipos de carro q se ofrecian en la pagina y no el resto de la pagina, de esta manera se hizo, pero claro!!! era por http, ahora si es https u otro deberias usar los RFC's de esos otros protocolos

[Casimiro Notevi]

Y recuerdas qué hilo es?, puedes dar una pista por dónde buscar? Gracias.

[roman]

No estaría 100% seguro pero quizá se refiere a la compnente THistorialUrls del compañero dec, que podrás encontrar en su página.

// Saludos

[OSKR]

recuerdo q tenia esto:
publicado por Jorodgar:

unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DDEman, StdCtrls;
type TForm1 = class(TForm)
					Button1: TButton;
					Edit1: TEdit;
					Edit2: TEdit;
					procedure Button1Click(Sender: TObject);
					private { Private declarations }
					public { Public declarations } 
					procedure GetCurrentURL (var URL, Title : string);
					end;
var Form1: TForm1;
	 implementation {$R *.dfm}
procedure TForm1.GetCurrentURL (var URL, Title : string);
 var DDEClient : TDDEClientConv;
	  s : string;
 begin s := '';
 try
  DDEClient := TDDEClientConv.Create(self);
   with DDEClient do
   begin 
	 if SetLink('IExplore','WWW_GetWindowInfo') then
		s := RequestData('0xFFFFFFFF,sURL,sTitle')
	 else
	   if SetLink('Netscape','WWW_GetWindowInfo') then 
		  s := RequestData('0xFFFFFFFF,sURL,sTitle') 
	   else 
		 if SetLink('Mosaic','WWW_GetWindowInfo') then
			s := RequestData('0xFFFFFFFF,sURL,sTitle')
		 else
			if SetLink('Netscp6','WWW_GetWindowInfo') then 
			  s := RequestData('0xFFFFFFFF,sURL,sTitle') 
		 else 
			if SetLink('Mozilla','WWW_GetWindowInfo') then
			   s := RequestData('0xFFFFFFFF,sURL,sTitle')
			else
			  if SetLink('Firefox','WWW_GetWindowInfo') then
				s := RequestData('0xFFFFFFFF,sURL,sTitle');
			end;
			if s <> '' then
			  begin
				delete(s,1,1);
				URL := copy(s,1,pos('","',s)-1);
				delete(s,1,pos('","',s)+2);
				Title := copy(s,1,pos('"',s) - 1);
		   end;
		   exit;
		   except MessageDlg('URL attempt failed!',mtError,[mbOK],0);
		 end;
 end;
 procedure TForm1.Button1Click(Sender: TObject);
 var URL : string; Title : string;
 begin
   GetCurrentURL (URL, Title);
   Edit1.Text := URL; 
   Edit2.Text := Title;
 end;
 end.

y digo recuerdo porq solo guardo las paginas, no los links , aja còdigo mas o menos arreglado, pasa q fue un copie-y-pegue de una pagina guardada y no tenia idea de q esto iba a pasar, otra cosa, no pude responder ni idea de porq no se me permitia, la guia o guias de estilo nunca las he leido (por falta de tiempo) pero actuo por intuición y experiencia en uno q otro foro........disculpen el anterior desorden

[Casimiro Notevi]

Qué paso? cuidadín con ese código

[ContraVeneno]

[Fatal Error] Proyecto.dpr(1): Could not compile used unit

me da un error en la línea 1


NOta:
Este mensaje es sarcástico hasta que corrigan el código de arriba, despues de lo cuál, ya no se va a entender el sarcasmo.

[Casimiro Notevi]

Bueno, lo que quiero decir es que me "descuadra" toda la pantalla con el mensaje, un arreglillo, porfa, OSKR.

[roman]

Empezado por Casimiro Notevi

Bueno, lo que quiero decir es que me "descuadra" toda la pantalla con el mensaje, un arreglillo, porfa, OSKR.

Bueno, al compilador le da lo mismo si todo el código
está escrito en una sóla línea. De la misma forma, aquí
debemos tener esa capacidad; si no, leete la otra guía de estilo

// Saludos

[Casimiro Notevi]

jeejeje, desde luego que sí.

[[maeyanes]]

Recuerda que nosotros tenemos vista de compilador...