Hi, danke für deine Antwort.
Ich habe es mal zunächst ohne Auswertung versucht, bekomme aber leider eine
Exception.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
xml: TStrings;
response: TStringStream;
TextToCheck:
String;
begin
TextToCheck := '
Teest';
// das Wort welches geprüft / korrigiert werden soll
xml := TStringList.Create;
response := TStringStream.Create('
');
try
xml.Add('
<?xml version="1.0" encoding="UTF-8"?>');
xml.Add('
<spellrequest textalreadyclipped="0" ignoredups="0" ignoredigits="1" ignoreallcaps="1">');
xml.Add('
<text>' + TextToCheck + '
</text>');
xml.Add('
</spellrequest>');
IdHTTP1.Request.Accept := '
text/xml';
IdHTTP1.Request.ContentType := '
text/xml';
IdHTTP1.Request.ContentEncoding := '
utf-8';
try
IdHTTP1.Post('
http://www.google.com/tbproxy/spell?lang=de',
xml, response);
ShowMessage(response.DataString);
except
on E:
Exception do
ShowMessage('
Fehler: ' + E.
Message);
end;
finally
FreeAndNil(response);
FreeAndNil(
xml);
end;
end;