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>