LoadHTMLToWebBrowser(Webbrowser1,'01.htm');

[taktaky]

Hallo,

ich habe einige html-Dateien mit exe gepackt. Auf Form habe ich einen Webbrowser1
Nun möchte ich eine html in meinen Webbrwoser1 laden
Der html-Name wird in der ListBox1 auch gelistet

wie kann ich die html Datei (die mit exe gepackt) in Webbrwoser laden?

ich habe so versucht:

Delphi-Quellcode:

//webbrwoser funktion
procedure LoadHTMLToWebbrowser(AWebBrowser: TWebBrowser; AHTMLCode: TStrings);
var
  myDocument:OleVariant;
begin

  //falls nötig, leere Seite anzeigen
  if AWebBrowser.Document = nil then AWebBrowser.Navigate('about:blank');

  //HTML-Code in TWebBrowser.Document schreiben
  myDocument:=AWebBrowser.Document;
  myDocument.Clear;
  myDocument.Write(AHTMLCode.Text);
  myDocument.Close;

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
LoadHTMLToWebBrowser(Webbrowser1,ListBox1.Items); //wird leider nur den html-Namen in Webbrowser angezeigt

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
LoadHTMLToWebBrowser(Webbrowser1,'01.htm');// geht auch nicht
end;

end.

[Andreas L.]

Du sagst du hast die HTML-Datei in die Exe gepackt also musst du wohl LoadFromRessource verwenden.

[taktaky]

Zitat:

Zitat von Andreas L.

Du sagst du hast die HTML-Datei in die Exe gepackt also musst du wohl LoadFromRessource verwenden.

Beispiel? auf von dir gegebenen Link finde ich nichts

Gruß

[shmia]

So geht's:

Delphi-Quellcode:

procedure WaitForBrowser(WebBrowser:TWebBrowser);
begin
   while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
   begin
      Application.ProcessMessages;
      Sleep(50);
   end;
end;

procedure Document_SetHTML(Document: IDispatch; const HTMLCode: string);
var
  ms: TStringStream;
begin
   if Assigned(Document) then
   begin
      ms := TStringStream.Create(HTMLCode);
      try
         ms.Seek(0, 0);
         OleCheck((Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)));
      finally
         ms.Free;
      end;
   end;
end;

function Document_GetHTML(Document: IDispatch):string;
var
   ms: TStringStream;
begin
   Result := '';
   if Assigned(Document) then
   begin
      ms := TStringStream.Create(Result);
      try
         OleCheck((Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms),False));
         Result := ms.DataString;
      finally
         ms.Free;
      end;
   end;
end;

procedure WB_SetHTML(WebBrowser: TWebBrowser; const HTMLCode: string);
begin
   if not Assigned(WebBrowser.Document) then
      WebBrowser.Navigate('about:blank');
   WaitForBrowser(WebBrowser);

   Document_SetHTML(WebBrowser.Document, HTMLCode);
end;

function WB_GetHTML(WebBrowser: TWebBrowser): string;
begin
   Result := Document_GetHTML(WebBrowser.Document);
end;

Aufruf:

Delphi-Quellcode:

WB_SetHTML(WebBrowser1, AHTMLCode.Text);

[taktaky]

Hallo,

was ist mit AHTMLCode?

Delphi-Quellcode:

procedure TfrmMain.Button2Click(Sender: TObject);
//var: AHTMLCode: String;
begin
WB_SetHTML(WebBrowser1, AHTMLCode.Text);
end;

http://members.lycos.co.uk/forforums...wserladen2.jpg

[Andreas L.]

Zitat:

Zitat von taktaky

Hallo,

was ist mit AHTMLCode?

Delphi-Quellcode:

procedure TfrmMain.Button2Click(Sender: TObject);
//var: AHTMLCode: String;
begin
WB_SetHTML(WebBrowser1, AHTMLCode.Text);
end;

Vermutlich ein TEdit. Aber der Code wird dir nichts nützen wenn du die HTML-Datei in die Exe-Kompiliert hast. Zumindest nicht, wenn du Ressourcen verwendest. Zeig doch mal den Code, mit dem du das HTML in die Exe einbindest!

[Klaus01]

Delphi-Quellcode:

procedure WB_SetHTML(WebBrowser: TWebBrowser; const HTMLCode: string); 
begin 
   if not Assigned(WebBrowser.Document) then 
      WebBrowser.Navigate('about:blank'); 
   WaitForBrowser(WebBrowser); 

   Document_SetHTML(WebBrowser.Document, HTMLCode); 
end;

Wie man aus dem obigen Code erkennen kann, wird der HTML Code als String im zweiten Parameter
übergeben.
Wie diese Variable bei Dir heißt, das weißt nur Du.


Grüße
Klaus

[shmia]

Zitat:

Zitat von taktaky

was ist mit AHTMLCode?

Bitte nicht alles ohne nachzudenken kopieren.
"AHTMLCode" ist eine Stringliste aus deinem Code.
Die Procedure WB_SetHTML() erwartet zwei Parameter: ein WebBrowser-Objekt und einen String, der HTML-Code enthält.
Nur du kannst wiessen, aus welchen Variable/Komponente der HTML-Code herkommt.

[taktaky]

Zitat:

Zitat von shmia

Die Procedure WB_SetHTML() erwartet zwei Parameter: ein WebBrowser-Objekt und einen String, der HTML-Code enthält.
Nur du kannst wiessen, aus welchen Variable/Komponente der HTML-Code herkommt.

Also WebBrowser-Objekt ist klar : WebBrowser1
String, der html-Code enthält : Vielleicht so :

Delphi-Quellcode:

WB_SetHTML(WebBrowser1, ListBox1.Items[0]); // es wird wieder nur der Dateiname angezeigt und nicht der Inhalt !

http://members.lycos.co.uk/forforums...wserladen3.jpg

[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;

[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:

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:

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 :evil:

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 :firejump: 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:

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?

[taktaky]

Zitat:

Zitat von DeddyH

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

Nein, ich lade nicht die selbe Datei.
Ich rufe die Seite 2 nicht über das Button sondern über den Link in Seite 1 (sehe Bild oben)

ja weiß ich schon, dass das Button immer die selbe Datei lädt

Code:

Dateiinhalt.LoadFromFile(ListBox1.Items[0]);

ich möchte nur eine Datei über das Button aufrufe, alle andere werde ich von dem 1. html Datei aufrufen.




------

[Klaus01]

Zitat:

Zitat von taktaky

Zitat:

Zitat von DeddyH

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

Nein, ich lade nicht die selbe Datei.
Ich rufe die Seite 2 nicht über das Button sondern über den Link in Seite 1 (sehe Bild oben)

ja weiß ich schon, dass das Button immer die selbe Datei lädt

ich möchte nur eine Datei über das Button aufrufe, alle andere werde ich von dem 1. html Datei aufrufen.

Auf welche Seite verweist denn der Link "Seite2" von der ersten html Seite?
Zeige doch einmal den Link oder den Quellcode der HTML Seite 1.

Grüße
Klaus

[Andreas L.]

Wo liegen deine HTML-Dateien? Im Anwendungsverzeichnis?

[Die Muhkuh]

Zitat:

Zitat von Andreas L.

Wo liegen deine HTML-Dateien? Im Anwendungsverzeichnis?

In der Exe ;-)

[taktaky]

Zitat:

Zitat von Die Muhkuh

Zitat:

Zitat von Andreas L.

Wo liegen deine HTML-Dateien? Im Anwendungsverzeichnis?

In der Exe ;-)

ja natürlich Die html Dateien sind drin mit exe gepackt (angehängt) und nicht als externe Dateien

Was ich auch bemerkt. Es wird nur html als text in Webbrwoser1 geladen, die Bilder aber, die auf html sind, werden nicht angezeigt!!!

http://members.lycos.co.uk/forforums...wserladen7.jpg

Also 2 Probleme habe ich :cry:
1. Navigation in Webbrowser1 funktioniert nicht
(es wird der html-Name angezeigt statt der Inhalt).

2. Problem: Nur Text von html werden angezeigt, Bilder nicht!!!



Gruß




-------------------

[Die Muhkuh]

Weil Du Knallkopf vor dem Anzeigen vllt. das ganze Zeugs aus deiner exe extrahieren musst? Warum steckt das überhaupt in der Exe? Mach dir nen Ordner data und schreib da dein HTML-Zeugs rein und lad es von dort!

[taktaky]

Zitat:

Zitat von Die Muhkuh

Weil Du Knallkopf vor dem Anzeigen vllt. das ganze Zeugs aus deiner exe extrahieren musst? Warum steckt das überhaupt in der Exe? Mach dir nen Ordner data und schreib da dein HTML-Zeugs rein und lad es von dort!

ja wenn html als externe Dateien außerhalb von exe dann funktioniert natürlich. Will ich aber nicht, da ich alles in exe packen möchte. (mehr sicherheit :mrgreen: )

Es soll eine Lösung geben oder?

Gru?



---------

[Klaus01]

Mit etwas Arbeit könnte es eine Lösung geben.

Vielleicht kannst Du im onNavigate der Webbrowsers die
Dateien/Daten extrahieren und wie gehabt dem Webbrowser übergeben.

Grüße
Klaus

[Die Muhkuh]

Was heißt mehr Sicherheit? Wenn Du nicht willst, dass es jemand ändert, dann verschlüssel es z.B. mit dem DEC und gut ist.

Mit der EXE wird auch gehen, aber zeig doch verdammt nochmal deinen Code und debugge, wenns nicht gleich klappt!!!

[s-off]

Können Kühe auch 'nen Herzinfarkt bekommen? :mrgreen:

[Die Muhkuh]

Zitat:

Zitat von s-off

Können Kühe auch 'nen Herzinfarkt bekommen? :mrgreen:

:wiejetzt:

[s-off]

Zitat:

Zitat von Die Muhkuh

Zitat:

Zitat von s-off

Können Kühe auch 'nen Herzinfarkt bekommen? :mrgreen:

:wiejetzt:

Naja, man merkt, wie Du von Antwort zu Antwort mehr abgehst. :wink:

[Die Muhkuh]

Zitat:

Zitat von s-off

Zitat:

Zitat von Die Muhkuh

Zitat:

Zitat von s-off

Können Kühe auch 'nen Herzinfarkt bekommen? :mrgreen:

:wiejetzt:

Naja, man merkt, wie Du von Antwort zu Antwort mehr abgehst. :wink:

Achso^^. Da ist wohl der Threadstarter nicht ganz unschuldig dran... Aber er ignoriert es zuverlässig :mrgreen:

[taktaky]

Zitat:

Zitat von Die Muhkuh

Was heißt mehr Sicherheit? Wenn Du nicht willst, dass es jemand ändert, dann verschlüssel es z.B. mit dem DEC und gut ist.

Mit der EXE wird auch gehen, aber zeig doch verdammt nochmal deinen Code und debugge, wenns nicht gleich klappt!!!

So neugierig :mrgreen: hoffe aber da Du weiter hilfst :gruebel:

Gruß

[Die Muhkuh]

Glaub nur nicht, dass ich deinen ganzen Code jetzt durchschaue ;-)

Ich wollte die relevanten Codestellen und nicht mehr oder weniger ;-)

[taktaky]

Zitat:

Zitat von Die Muhkuh

Glaub nur nicht, dass ich deinen ganzen Code jetzt durchschaue ;-)

Ich wollte die relevanten Codestellen und nicht mehr oder weniger ;-)

Delphi-Quellcode:

implementation

{$R *.dfm}


procedure Document_SetHTML(Document: IDispatch; const HTMLCode: string);
var
  ms: TStringStream;
begin
   if Assigned(Document) then
   begin
      ms := TStringStream.Create(HTMLCode);
      try
         ms.Seek(0, 0);
         OleCheck((Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)));
      finally
         ms.Free;
      end;
   end;
end;

function Document_GetHTML(Document: IDispatch):string;
var
   ms: TStringStream;
begin
   Result := '';
   if Assigned(Document) then
   begin
      ms := TStringStream.Create(Result);
      try
         OleCheck((Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms),False));
         Result := ms.DataString;
      finally
         ms.Free;
      end;
   end;
end;

procedure WB_SetHTML(WebBrowser: TWebBrowser; const HTMLCode: string);
begin
   if not Assigned(WebBrowser.Document) then
      WebBrowser.Navigate('about:blank');
   WaitForBrowser(WebBrowser);

   Document_SetHTML(WebBrowser.Document, HTMLCode);
end;

function WB_GetHTML(WebBrowser: TWebBrowser): string;
begin
   Result := Document_GetHTML(WebBrowser.Document);
end;

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;

[taktaky]

Zitat:

Zitat von Die Muhkuh

Was heißt mehr Sicherheit? Wenn Du nicht willst, dass es jemand ändert, dann verschlüssel es z.B. mit dem DEC und gut ist.

Mit der EXE wird auch gehen, aber zeig doch verdammt nochmal deinen Code und debugge, wenns nicht gleich klappt!!!

Daran habe ich vorher gedacht, leider habe ich bis jetzt keine Idee um die Dateien in dem externen Ordner zu verschlüsseln.
Ich meine, die Dateien in Ordner wie Bilder oder Videos, ... sollen nur über mein Programm lesbar sein. d.h. wenn jemand z.B. den Ordner öffnet und versucht die Dateien einzeln zu sehen, dann soll das nicht passieren.

So war meine Idee am Anfang.

Hier ist mein altes Thema darüber :
http://www.delphipraxis.net/internal...&highlight=dec





--------

[DeddyH]

Für mich klingt das so ähnlich wie "Ich habe es geschafft, bei einem Golf den Motor anzulassen. Wie fahre ich nun einen 40-Tonner unfallfrei rückwärts durch die Fußgängerzone?"

Lerne erstmal die Grundlagen, bevor Du Dir für so einen Mist den Kopf zerbrichst, wie oft muss man Dir das eigentlich noch sagen?

[Andreas L.]

Zitat:

Zitat von DeddyH

Für mich klingt das so ähnlich wie "Ich habe es geschafft, bei einem Golf den Motor anzulassen. Wie fahre ich nun einen 40-Tonner unfallfrei rückwärts durch die Fußgängerzone?"

:mrgreen: :mrgreen: :mrgreen: Den Spruch merk ich mir ;-)

Im obigen Code machst du irgendwas mit Xres.blabla. Ich nehme mal an, das es eine Komponente für Ressourcen ist. bei btnExtractFile hast du doch schon die nötige Routine um auch die Bilder zu extrahieren.

[kalmi01]

Threads wie dieser sind echt cool !

Zitat:

Zitat von ich

[absolut OT (aber es musste raus !)]
Mit welcher Hingabe versucht wird ETWAS zum Denken zu bewegen, ist schon rührend.
Die Ignoranz, mit der ETWAS alle Empfehlungen in den Wind schlägt, erschreckend.
[/absolut OT]

Diese Bemühungen, das Walross immer noch auf Springpferd zu trimmen : :wall: :wall: :wall: :wall:

Die Resourcen die hier sinnlos vergeudet werden, hätte ich gern zur Verfügung !