String in TWebBrowser laden???

**himitsu**

Gib mal bei den Dateien die komplette URL/Verzeichnisse mit an ... eventuell findet er ja nur diese Dateien nicht.

**retnyg**

ich hab da bei mir absolute pfade... mit document.write geths nicht, nur wenn ichs als htm auf der festpladde speischer und dann hinnavigier gez

**Lannes**

Hallo,

wenn Du base zum HTML-FrameString hinzufügst, funktioniert es damit:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.LoadHTMLString(WebBrowser: TWebBrowser; HTMLCode: String);

var

  sl: TStringList;

  ms: TMemoryStream;

  flag : Olevariant;

begin

  WebBrowser.Navigate('about:blank', flag,flag,flag,flag);

  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do

    Application.ProcessMessages;

  if Assigned(WebBrowser.Document) then

  begin

    sl := TStringList.Create;

    try

      ms := TMemoryStream.Create;

      try

        sl.Text := HTMLCode;

        sl.SaveToStream(ms);

        ms.Seek(0, 0);

        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));

      finally

        ms.Free;

      end;

    finally

      sl.Free;

    end;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var frame1, frame2, frame3,

    base,   //<------ ! !

    newhtml :String;

const newframeset = '<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.01 Transitional//EN >'+#13#10

                    +'<META http-equiv= Content-Type content= text/html; charset=iso-8859-1 >'+#13#10

                    +'<HTML> <HEAD> <TITLE>test</TITLE>'+#13#10

                    +'</HEAD><base href="%s">'+#13#10      //<------ ! !

                    +'<FRAMESET BORDER= 1 COLS= 191,609,* >'+#13#10

                    +'  <FRAME NAME= navigation ID= navigation FRAMEBORDER= 1 NORESIZE= NORESIZE SCROLLING= NO SRC= %s >'+#13#10

                    +'    <FRAMESET BORDER= 1 ROWS= 60,* > '+#13#10

                    +'      <FRAME NAME= statusbar ID= statusbar FRAMEBORDER= 1 NORESIZE= NORESIZE SCROLLING= NO SRC= %s >'+#13#10

                    +'      <FRAME NAME= mainframe ID= mainframe FRAMEBORDER= 1 NORESIZE= NORESIZE SCROLLING= NO SRC= %s >'+#13#10

                    +'    </FRAMESET>'+#13#10

                    +'  <NOFRAMES> Ihr Browser kann diese Seite leider nicht anzeigen. </NOFRAMES>'+#13#10

                    +'</FRAMESET>'+#13#10

                    +'</HTML> ';

begin

  frame1 := 'test.html';

  frame2 := 'test.html';

  frame3 := 'test.html';

  base   :=  ExtractFilePath(ParamStr(0));//<------ ! !

  newhtml := format( newframeset, [base,frame1,frame2,frame3]);

  LoadHTMLString(WebBrowser1,newhtml);

end;

kA ob das mit document.write funktioniert

, ich hab es nicht getestet.

String in TWebBrowser laden???

Re: String in TWebBrowser laden???

Re: String in TWebBrowser laden???

Re: String in TWebBrowser laden???

Forumregeln

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.184 Beiträge Delphi 12 Athens	#11 Re: String in TWebBrowser laden??? 3. Mai 2006, 13:58 Gib mal bei den Dateien die komplette URL/Verzeichnisse mit an ... eventuell findet er ja nur diese Dateien nicht. $2B or not $2B
	Zitat

retnyg Registriert seit: 12. Feb 2005 193 Beiträge	#12 Re: String in TWebBrowser laden??? 3. Mai 2006, 16:47 ich hab da bei mir absolute pfade... mit document.write geths nicht, nur wenn ichs als htm auf der festpladde speischer und dann hinnavigier gez
	Zitat