Extraer código fuente html de página web

[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

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

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