|
Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
Delphi 3 Professional
|
Re: String in TWebBrowser laden???
3. Mai 2006, 19:05
Hallo,
wenn Du base zum HTML-FrameString hinzufügst, funktioniert es damit:
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.
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
|
Zitat
|