Lokale Links im TWebBrowser

**fillibuster**

Hallo,

in meinem Programm möchte ich gern den TWebbrowser als Startseite nutzen, um diverse Infos o. ä. mit HTML dynamisch zu generieren. Leider hat dieser Probleme, wenn ich Dateien lokal verlinke. Will ich z. B. ein Image in HTML einbinden (ExtractFilePath ...) geht das nur, wenn keine Sonderzeichen im Pfad sind. Wie muss ich die Pfade denn für den TWebbrowser aufbereiten?

Viele Grüße ...

**Satty67**

Stichwort Urlencode (Sonderzeichen sind codiert, z,B auch das Leerzeichen mit %20, was man oft sieht).

Ganze einfach hatte ich das mal so realisiert, gibt es aber evtl. besseres:

zusammenfalten · markieren

Delphi-Quellcode:

			function EncodeUrl(AString : String): String;

const

  ValidChars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUFWXYZ-_.~1234567890';

var

  i : Integer;

begin

  Result := '';

  for i := 1 to Length(AString) do

    if Pos(AString[i], ValidChars) <= 0 then

      Result := Result + '%' + IntToHex(Ord(AString[i]), 2)

    else

      Result := Result + AString[i];

end;

**fillibuster**

Hi,

danke für deine Antwort. Leider funktioniert das so nicht

. Die Bilder werden unter Win 7 nicht angezeigt (Anwendung liegt auf dem Desktop - ö und Leerzeichen im Pfad). Mein HTML sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			function htmlHeader() : string;

begin

  result := '<?xml version="1.0" ?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' + #13#10 +

            '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' + #13#10 +

            '<html xmlns="http://www.w3.org/1999/xhtml">'+ #13#10 +

            '<head>'+ #13#10 +

            '  <title>' + applicationName + '</title>' + #13#10 +

            '  <meta http-equiv="content-type" content="text/html; charset=UTF-8" />' + #13#10 +

            '  <link rel="stylesheet" type="text/css" href="' + htmlpath + 'style.css" />'+ #13#10 +

            '</head>' +  #13#10 +

            '<body>' + #13#10 +

            '<div id="headerlogo">' + #13#10 +

            '  <img src="' + htmlpath + 'pics2.png" alt="logo">&nbsp;' +  #13#10 +

            '</div>' +

            '<div id="headername">' + applicationName + '</div>' +

            '<div id="topmenu">' +

            '  <a href="test://1">add</a> | <a href="test://2">stack</a> | <a href="test://3">pref</a> | <a href="test://4">help</a> | <a href="test://5">info</a>' + #13#10 +

            '</div>' + #13#10 +

            '<div style="clear : both;"></div>' + #13#10 +

            '<div id="content">';

end;

Mit Pfaden ohne Sonder- und Leerzeichen geht das ohne Probleme.

Viele Grüße ...

**Bummi**

bist Du sicher daß die Umlaute das Problem sind?

bei mir geht

markieren

Code:

problemlos

**fillibuster**

Hi,

muss da immer

markieren

Code:

file:///

als Protokoll angegeben werden?

**mkinzler**

Ja.

**fillibuster**

ok, dann ist das wohl der Fehler

.

Vielen Dank

Lokale Links im TWebBrowser

Lokale Links im TWebBrowser

AW: Lokale Links im TWebBrowser

AW: Lokale Links im TWebBrowser

AW: Lokale Links im TWebBrowser

AW: Lokale Links im TWebBrowser

AW: Lokale Links im TWebBrowser

AW: Lokale Links im TWebBrowser

Forumregeln

Bummi Registriert seit: 15. Jun 2010 Ort: Augsburg Bayern Süddeutschland 3.470 Beiträge Delphi XE3 Enterprise	#4 AW: Lokale Links im TWebBrowser 4. Nov 2010, 00:41 bist Du sicher daß die Umlaute das Problem sind? bei mir geht markieren Code: <img src="file:///C:/temp/Hörü gre/test.jpg"> problemlos Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren DRY DRY KISS H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
	Zitat

fillibuster Registriert seit: 3. Nov 2010 Ort: Coesfeld 245 Beiträge Delphi 2010 Professional	#5 AW: Lokale Links im TWebBrowser 5. Nov 2010, 09:19 Hi, muss da immer markieren Code: file:/// als Protokoll angegeben werden?
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.861 Beiträge Delphi 11 Alexandria	#6 AW: Lokale Links im TWebBrowser 5. Nov 2010, 09:27 Ja. Markus Kinzler
	Zitat

fillibuster Registriert seit: 3. Nov 2010 Ort: Coesfeld 245 Beiträge Delphi 2010 Professional	#7 AW: Lokale Links im TWebBrowser 5. Nov 2010, 09:30 ok, dann ist das wohl der Fehler . Vielen Dank
	Zitat