Extraer código fuente html de página web

[Casimiro Noteví]

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.

[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 Noteví]

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 Noteví]

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