Forum: Netzwerke
Delphi
by jaenicke,
21. Apr 2024
Nur dass du den Code offensichtlich nur unter einem neueren Delphi getestet hast. Der funktioniert mit Delphi 2007, um das es hier ging, nicht. Das wollte ich daher kurz ausprobieren, aber auch nicht per IFDEF die neue Funktionalität des TStringStreams verwenden, wenn es so in allen Versionen geht.
Forum: Netzwerke
Delphi
by jaenicke,
21. Apr 2024
Nun habe ich doch kurz libretranslate in einer meiner Linux-VMs installiert. Es stimmt, die Variante mit TStrings funktioniert nicht so wie erwartet. Das bekommt man zwar hin, aber einfacher ist es so:function Translate(const AText, ASourceLang, ADestLang, AApiKey: string): string;
var
Http: TIdHTTP;
Data: TStream;
begin
Http := TIdHTTP.Create(nil);
try
Data :=...
Forum: Netzwerke
Delphi
by jaenicke,
17. Apr 2024
Eben das ist der Punkt. Wenn man nicht weiß, wie der Quelltext aussieht, kann man nicht sagen, woran es liegt. Wenn ich ein konkretes Beispiel habe, kann ich sehen oder auch testen was raus geht.
Forum: Netzwerke
Delphi
by jaenicke,
16. Apr 2024
Ich habe es eben mit Delphi 2007 ausprobiert. Es ging ebenfalls sofort:
var
Http: TIdHTTP;
Data: TStringList;
begin
Http := TIdHTTP.Create(Self);
try
Data := TStringList.Create;
try
Data.Add('{ "q": "Länge 8,5 cm","source": "de", "target": "en", "api_key": "#####"}');
Forum: Netzwerke
Delphi
by jaenicke,
16. Apr 2024
Ich kann das nicht reproduzieren. Wenn ich den Text als UTF-8 schicke, kommt der auch mit Umlauten an. Auf dem Server habe ich das print_r verwendet wie du es geschrieben hast.var
Http: TIdHTTP;
Data: TStringList;
begin
Http := TIdHTTP.Create(Self);
try
Data := TStringList.Create;
try
Data.Add('{ "q": "Länge 8,5 cm","source": "de", "target": "en", "api_key":...
Forum: Netzwerke
Delphi
by jaenicke,
16. Apr 2024
Welches Encoding verwendest du denn beim Senden? Üblich wäre UTF8.