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;