Entwickler-Ecke

Internet / Netzwerk - Mit Delphi einträge in Webformular eintagen ?


Blamaster - Fr 09.05.08 11:17
Titel: Mit Delphi einträge in Webformular eintagen ?
Hi,

kann man mit Delphi ein Programm erstellen, welches auf einer festgelegten Internetseite Einträge aus einem Edit Feld in ein Eingabefeld eines Websiteformulares übertragen und nach Eingabe z.B. noch einen "Senden" Button auf der Website "anklicken" lassen ?

mfg Blamaster


Robert.Wachtel - Fr 09.05.08 11:29
Titel: Re: Mit Delphi einträge in Webformular eintagen ?
Ja.


Blamaster - Fr 09.05.08 11:34
Zufällig auch noch Tipps wie genau ? :wink:

mfg Blamaster


Robert.Wachtel - Fr 09.05.08 12:05
Such doch mal in diesem Forum nach Suche in: Delphi-Forum, Delphi-Library HTML FORMULAR.


Blamaster - Sa 10.05.08 02:27
Hi,

gab mich dort mal etwas umgeschaut, bin allerdings noch nicht gerade weit gekommen.

Ich glaube wenn ich eine Frage beantwortet bekomme ist das kein Problem.

Also mal angenommen auf der Html Seite die normalerweise POST sendet hat folgendes Feld:

<input name="url" type="text" class="input" value="Link">
<input class="button" type="submit" value="Schicken">

Wie müsste ich denn nun mit einer einfachen Handeingabe, also kein großen Bezug auf strings usw. IdHTTP1.Post zuweisen, das z.b. in das Textfeld "http://www.test.de" eingetragen wird und dann der button submit ausgeführt wird ?

mfg blamaster


Blamaster - Sa 10.05.08 16:48
So ich hatte mich jetzt noch weiter eingearbeitet und bin zum 1. Erfolgsergebnis gekommen:


Delphi-Quelltext 
1:
2:
3:
 
WebBrowser1.OleObject.document.forms.item(0).elements.item('url').value:=(Edit1.Text);
WebBrowser1.OleObject.document.forms.item(0).elements.item('type').value:=(Edit2.Text);
WebBrowser1.OleObject.document.forms.item(0).elements.item(2).click;


Soweit funkt auch schonmal alles. Auf der nächsten Seite kommt aber nun ein Html link also <href=""> diesen habe ich noch nicht dazu bekommen ausgeführt zu werden.

Nun dachte ich mir baue ich das ganze mal auf die Indy komponente um:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
procedure TForm1.Button1Click(Sender: TObject);
var
liste: tstringlist;
begin

liste:=tstringlist.create;
liste.add('url=http://test');
liste.add('type=3');
idhttp1.post('http://testserver.com/',liste);
liste.free;


Wenn ich nun den button drücke erscheint schonmal keine Fehlermeldung.

allerdings frage ich mich nun wie ich das Ergebnis von meiner post (Also die Antwort vom Server) in einem Memo Feld ausgeben lassen kann.

mfg Blamaster


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!