Einzelnen Beitrag anzeigen

Ginko

Registriert seit: 30. Aug 2008
208 Beiträge
 
FreePascal / Lazarus
 
#10

AW: Mit IdHttp (Indy) Text in Feld auf Webseite eintragen

  Alt 11. Apr 2013, 14:14
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;
  Mit Zitat antworten Zitat