Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Ayuda con WebBrowser (https://www.clubdelphi.com/foros/showthread.php?t=84268)

JuanOrtega 29-09-2013 02:57:43

Ayuda con WebBrowser
 
Hola estoy haciendo un navegador web en delphi, lo que estoy haciendo es dejar que el usuario pueda modificar las cabeceras a voluntad , el problema actual es que yo uso un checkbox para comprobar que el usuario desea realmente utilizar las cabeceras que se encuentran en un memo , el problema es que cuando lo uso por primera vez funciona bien, pero no cuando desactivo el checkbox y trato de usar el navegador sin los encabezados.

El codigo PHP

Código PHP:

<? php  nav = $ _SERVER ['HTTP_USER_AGENT'];  echo "<h1> Test:". $ nav"</ h1>";  ?>

El codigo delphi

Código Delphi [-]
procedure TForm1.sButton1Click(Sender: TObject);

var
  Flags, Headers, TargetFrameName, PostData: OLEVariant;
  Url, Ref: string;
  IEApp: OLEVariant;
begin

  Flags := '1';
  TargetFrameName := '';
  PostData := '';
  Url := sEdit1.Text;

  if (sCheckBox1.Checked) then
  begin
    Headers := sMemo1.Text;

    WebBrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);

  end
  else
  begin
    Headers := '';
    WebBrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);

  end;

end;


La franja horaria es GMT +2. Ahora son las 07:50:56.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi