Con este codigo obtengo la URL de la pagina que esta abierta, esta en delphi 7 y no lo hice yo ojala que alguien me ayude a obtener no solo la url si no tambien el texto de la pagina y cargarla en un Memo
delphi
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.
bueno foro si la solucion no la tienen en delhpi 7 si no en otro lenguaje no importa yo me adapto al lenguaje en que lo pongan