Sonderzeichen umwandeln

[Capa]

Hi
also ich lade mit Indy folgende Datei runter und will diese verarbeiten.
http://de68.die-staemme.de/map/ally.txt

Leider hab ich das Problem das dort alles umgewandelt ist also die Leerzeichen die ä,ö,ü etc gibts dafür ne Komponente/Funktion um das umzuwandeln ?

Bsp:
Die+schwarzen+W%C3%B6lfe+der+Nacht
Die Schwarzen Wölfer der Nacht

Mfg

[DeddyH]

Ich glaube, Du suchst sowas wie hier: http://www.delphipraxis.net/79202-urldecode.html

[Capa]

anscheinend nicht das richtige
also was ich bisher rausgefunden hab das ist UTF-8

http://www.utf8-zeichentabelle.de/
%C3%B6 = ö (nach c3 b6 suchen)

[Capa]

UTF8toString funzt leider auch nicht der wandelt es nicht um

[rollstuhlfahrer]

Dann verkette mal URLDECODE und dein UTF8toString (also zuerst urldecode und dann aus utf-8 ansi machen).

Bernhard

[Capa]

Habs probiert aber bei dem URLEncode gibts noch Probs :/

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Listbox1.Items.Text := Utf8ToAnsi(TIdURI.URLEncode(IdHttp1.Get('http://de68.die-staemme.de/map/ally.txt')));
end;

Zitat:

Erste Gelegenheit für Exception bei $7C81EB33. Exception-Klasse EIdURIException mit Meldung 'Protocol field is empty'. Prozess Project1.exe (2076)

[Capa]

Auch die lange version funzt nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x: TStringlist;
    I: Integer;
begin
  x := TStringlist.Create;
  x.Text := IdHttp1.Get('http://de68.die-staemme.de/map/ally.txt');
  for I := 0 to x.Count - 1 do
    Listbox1.Items.Add(Utf8ToAnsi(TIdURI.URLEncode(x[I])));
end;

[Capa]

Hab gerade was gefunden was meine arbeit schonmal extrem erleichtert
http://www.delphipraxis.net/1106525-post9.html
das funzt wenigstens

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x: TStringlist;
    I: Integer;
begin
  x := TStringlist.Create;
  x.Text := IdHttp1.Get('http://de68.die-staemme.de/map/ally.txt');
  for I := 0 to x.Count - 1 do
    Listbox1.Items.Add(UTF8toAnsi(HTTPDecode(x[I])));
end;

[rollstuhlfahrer]

Also: Es soll die Editieren-Funktion geben. Dann braucht man nicht für 1 Aussage 3 Beiträge.

Zum funktionieren: Es kommt das richtige Ergebnis raus?

Bernhard

[Capa]

ergebnis ist das richtige ja