Mit IdHttp (Indy) Text in Feld auf Webseite eintragen

[Ginko]

Hallo, um einen Text aus einem Programm in ein Textfeld einer Webseite einzutragen, versuche ich gerade die Indy Komponente IdHttp zu benutzen. Leider bekomme ich es nicht hin, ich bin mir auch nicht sicher ob ich den richtigen Name für das Textfeld habe.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  TextStr: TStringList;
  PostInformationStream: TStringStream;
begin
  TextStr := TStringList.Create;
  PostInformationStream := TStringStream.Create('');
  try
    TextStr.Values['spellcheck'] := 'Test Text';
    try
      IdHTTP1.Post('http://www.wbuch.de/rechtschreibpruefung.html', TextStr, PostInformationStream);
      Memo1.Text := PostInformationStream.DataString;
    except
      on E: Exception do
        ShowMessage('Fehler: ' + E.Message);
    end;
  finally
    TextStr.Free;
    PostInformationStream.Free;
  end;
end;

Html-Code Ausschnitt

Code:

 <textarea name="spellcheck" cols="67" rows="12" onkeyup="getCaretPositions(this);" onclick="getCaretPositions(this);" class="textarea" id="ta1"></textarea>

[sx2008]

Mit Indy kannst du das vergessen, denn WBuch.de macht heftig von JavaScript gebraucht aber Indy hat kein JavaScript an Bord.

Aber im Hintergrund wird anscheinend der "Google Spell Checker" benützt.
Da wäre es natürlich sinnvoll direkt Google anzufragen...

Beispielcode: (C#) http://stackoverflow.com/questions/1...ll-checker-api

[Ginko]

Danke für die schnelle Antwort! Dein link funktioniert bei mir irgendwie grad nicht (eventuell Server down? )
Geht es vielleicht mit der TWebBrowser Komponente ?

[sx2008]

Sowohl der Link auf stackoverflow.com als auch der Link zum Google Spell Checker
http://www.google.com/tbproxy/spell?lang=de funktionieren bei mir.
Wenn man den Link zu Google im Browser aufruft erhält man

Code:

<?xml version="1.0" encoding="UTF-8"?><spellresult error="1"/>

aber das ist auch logisch, denn 1. muss man POST statt GET verwenden und 2. fehlen die Daten die geprüft werden sollen.
Aber der Service läuft, sonst würde keine Antort oder Error 404 kommen.

[Ginko]

Jetzt geht der Link wieder, ich werde den Code später mal versuchen.

[Ginko]

Unten ist der Code den ich versucht habe, leider ohne Erfolg.

Delphi-Quellcode:

  var  
    TextStr, PostInformationStream: TStringStream;
begin
  TextStr := TStringStream.Create('');
  PostInformationStream := TStringStream.Create('');
  try
    TextStr.WriteString('Teest');
    try
      IdHTTP1.Post('http://www.google.com/tbproxy/spell?lang=de', TextStr, PostInformationStream);
      ShowMessage(PostInformationStream.DataString);
    except
      on E: Exception do
        ShowMessage('Fehler: ' + E.Message);
    end;
  finally
    TextStr.Free;
    PostInformationStream.Free;
  end;

Exeption die ich bekomme:

raise EIdIOHandlerPropInvalid.Create(RSIOHandlerPropInvalid);