LoadHTMLToWebBrowser(Webbrowser1,'01.htm');

[Klaus01]

Was steht denn in Listbox1.Items[0]
vielleicht der Dateiname zu der Datei die den HTML Code beinhaltet?

Grüße
Klaus

[shmia]

Sag doch gleich, dass du nur eine lokale Datei hast.

Delphi-Quellcode:

var
  filename:string;
begin
  filename := ListBox1.Items[0]; {<= lokale Datei mit der Endung htm}
  if FileExists('file:'+filename) then
    WebBrowser1.Navigate( filename)
  else
    raise Exception.CreatFmt('Datei %s nicht gefunden', [filename]);

[taktaky]

Zitat von DeddyH:

Delphi-Quellcode:

var Dateiinhalt: TStringList;
begin
  Dateiinhalt := TStringList.Create;
  try
    Dateiinhalt.LoadFromFile(ListBox1.Items[0]);
    WB_SetHTML(WebBrowser1, Dateiinhalt);
  finally
    FreeAndNil(Dateiinhalt);
  end;
end;

Kommt Error:
http://members.lycos.co.uk/forforums...wserladen4.jpg

[taktaky]

Zitat von shmia:

Sag doch gleich, dass du nur eine lokale Datei hast.

Delphi-Quellcode:

var
  filename:string;
begin
  filename := ListBox1.Items[0]; {<= lokale Datei mit der Endung htm}
  if FileExists('file:'+filename) then
    WebBrowser1.Navigate( filename)
  else
    raise Exception.CreateFmt('Datei %s nicht gefunden', [filename]);

Wenn ich auf das Button anklicke, dann bekomme ich die Meldung :
die Datei test.html nicht gefunden Die Datei existiert schon und ist mit exe angehängt!!!


Die html Datei ist angehängt, da die exe Größe deutlich großer geworden, nachdem ich die Datei angehängt habe.

Der Code findet die Datei in Exe nicht oder?

[Die Muhkuh]

Dateiinhalt.Text und denk doch einfach mal selbst nach, himmel herr gott, dass kann doch nicht wahr sein

Und zeig doch endlich mal den Code, mit dem du deine HTML-Dateien an die Exe anhängst!!! WIR HABEN IMMER NOCH KEINE GLASKUGELN!!!

[taktaky]

Hi

nun nach der Bemerkung von Die Muhkuh funktioniert der Code von DeddyH Danke!

Delphi-Quellcode:

var Dateiinhalt: TStringList;
begin
  Dateiinhalt := TStringList.Create;
  try
    Dateiinhalt.LoadFromFile(ListBox1.Items[0]);
    WB_SetHTML(WebBrowser1, Dateiinhalt.text);
  finally
    FreeAndNil(Dateiinhalt);
  end;
end;

Die Seite wird in Webbrowser1 geladen.
http://members.lycos.co.uk/forforums...wserladen5.jpg

Es gibt aber ein Problem . Warum kann ich die Seite 2 von Seite 1 nicht aufrufen!!!
Wenn ich auf den Link "Seite 2" anklicke dann wird der html Name angezeigt und nicht der Inhalt !!!
http://members.lycos.co.uk/forforums...wserladen6.jpg

[Die Muhkuh]

Code? Wie rufst du auf? Mensch, rück doch einfach mal Infos raus!!!

[taktaky]

Zitat von Die Muhkuh:

Code? Wie rufst du auf? Mensch, rück doch einfach mal Infos raus!!!

Hi

über ein Button :

Delphi-Quellcode:

procedure TfrmMain.Button1Click(Sender: TObject);
var Dateiinhalt: TStringList;
begin
  Dateiinhalt := TStringList.Create;
  try
    Dateiinhalt.LoadFromFile(ListBox1.Items[0]);
    WB_SetHTML(WebBrowser1, Dateiinhalt.text);
  finally
    FreeAndNil(Dateiinhalt);
  end;
end;

[Die Muhkuh]

Was sagt der Debugger, wenn Du diese Zeilen debuggst?

[DeddyH]

Und wieso hast Du nicht gemerkt, dass Du immer dieselbe Datei lädst?