LoadHTMLToWebBrowser(Webbrowser1,'01.htm');

[Die Muhkuh]

Zitat von s-off:

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

[s-off]

Zitat von Die Muhkuh:

Zitat von s-off:

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

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

[Die Muhkuh]

Zitat von s-off:

Zitat von Die Muhkuh:

Zitat von s-off:

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

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

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

[taktaky]

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 hoffe aber da Du weiter hilfst

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 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 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 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?"

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

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