Mit Delphi einträge in Webformular eintagen ?

Blamaster · Beiträge: 164

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 · Verfasst: Fr 09.05.08 11:29

Ja.

Blamaster · Beiträge: 164

Zufällig auch noch Tipps wie genau ? :wink:

mfg Blamaster

Robert.Wachtel · Verfasst: Fr 09.05.08 12:05

Such doch mal in diesem Forum nach Suche in: Delphi-Forum, Delphi-Library

HTML FORMULAR.

Blamaster · Beiträge: 164

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 · Beiträge: 164

So ich hatte mich jetzt noch weiter eingearbeitet und bin zum 1. Erfolgsergebnis gekommen:

markieren

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:

markieren

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme