Hallo
Ich bekomm das senden von Daten über "IdHTTP" einfach nicht hin
Über TWebbrowser geht es ohne Probleme (siehe code)
Delphi-Quellcode:
Webbrowser1.Navigate(sURL);
WebBrowser1.OleObject.Document.Forms.item('frm').Elements.item('text').value := reEintrag.Text;
Element := WebBrowser1.OleObject.Document.forms.item(0).elements;
//Button "senden" suchen und anschließend clicken (text abschicken)
for i := 0 to (Element.Length - 1) do
begin
if (Element.Item(i).Value = 'senden') then
begin
Element.Item(i).Click;
end;
end; //for
versuch ich es über "IdHTTP" funktioniert es nicht
Delphi-Quellcode:
var
sURL:String;
slEintrag:TStringList;
begin
slEintrag := TStringList.Create;
with slEintrag do
begin
//"text" ist das Eingabeformular auf der Webseite wie oben bei TWebbrowser
Add('text='+ reEintrag.Text);
end;
try
btnSend.Font.Color := clRed;
btnSend.Caption := 'wird gesendet...';
btnSend.Update;
IdHTTP1.Post(sURL,slEintrag);
btnSend.Font.Color := clBlack;
btnSend.Caption := 'Senden';
btnSend.Update;
except
MessageDlg('Senden fehlgeschlagen', mtError, [mbOK], 0);
btnSend.Font.Color := clBlack;
btnSend.Caption := 'Senden';
btnSend.Update;
end; //try
slEintrag.Free;