AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi String in TWebBrowser laden???

String in TWebBrowser laden???

Ein Thema von romber · begonnen am 29. Sep 2004 · letzter Beitrag vom 3. Mai 2006
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#11

Re: String in TWebBrowser laden???

  Alt 3. Mai 2006, 13:58
Gib mal bei den Dateien die komplette URL/Verzeichnisse mit an ... eventuell findet er ja nur diese Dateien nicht.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von retnyg
retnyg

Registriert seit: 12. Feb 2005
193 Beiträge
 
#12

Re: String in TWebBrowser laden???

  Alt 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
  Mit Zitat antworten Zitat
Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#13

Re: String in TWebBrowser laden???

  Alt 3. Mai 2006, 20: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 )
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz