Thema: Delphi Webservice

Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#85

AW: Webservice

  Alt 15. Mai 2018, 12:44
Da es sich bei utf8 um 8Bit-Zeichen(folgen) handelt, kannst Du problemlos mit Ansi-Strings arbeiten. Du mußt "nur" für die richtige Kodierung sorgen falls AnsitUtf8 in D6 nicht vorhanden ist, bastelst Du es Dir halt selber:

Delphi-Quellcode:
function MyAnsitoUTF8(instr:ansistring):ansistring;
var
  i : integer;
begin
  for i:=1 to length(instr) do
  case instr[i] of
    'ä' : result:=result+#$C3+#$A4;
    .....
    else
      result:=result+instr[i];

  end;
end;
Wobei Du natürlich noch die Codepage der Ansi-Codierung beachten mußt.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat