hey leute

ich habe da mal eine frage wie Postet man "mehrere seiten" hintereinander? also wie bei umfragen

ich bin vorhin zufällig auf ein gewinnspiel gestossen und das schien mir genau richtig dafür steck aber fest

1. die "erste" seite funktioniert
2. bei der 2 "seite" werden zwar die formulare "ausgefüllt" ABER nich bestätigt

zusammenfalten · markieren

Delphi-Quellcode:

var
  Source: string;
  s: string;
  Response: string;
  PostParams: TIdMultiPartFormDataStream;
const
 AddPageURL = 'http://tanken.extragewinnspiel.de/index.php?';
begin

  IdHTTP1.CookieManager := CookieMgr;
  IdHTTP1.Request.ContentType := 'text/html';
  IdHTTP1.Request.AcceptCharSet := 'ISO-8859-1';
  IdHTTP1.Request.AcceptLanguage := 'DE';
  IdHTTP1.HandleRedirects := true;

  PostParams := TIdMultiPartFormDataStream.Create;
  PostParams.AddFormField('user_email', 'email@blubb.de');
  PostParams.AddFormField('agb_in_use', '1');
  PostParams.AddFormField('user_agb', '1');
  PostParams.AddFormField('datenschutzbestimmung_in_use', '1');
  PostParams.AddFormField('user_datenschutzbestimmung', '1');
  PostParams.AddFormField('form_next', ''); //Bis hier gehts läd auch die nächste seite...

  //diese daten werden zwat in die formular felder "eingefügt" aber wird nicht abgesendet :(
  PostParams.AddFormField('user_anrede', 'Frau');
  PostParams.AddFormField('user_vorname', 'name');
  PostParams.AddFormField('user_nachname', 'nachname');
  PostParams.AddFormField('user_strasse', 'blastr');
  PostParams.AddFormField('user_hausnummer', '13');
  PostParams.AddFormField('user_plz', '21343');
  PostParams.AddFormField('user_ort', 'Entenhausen');
  PostParams.AddFormField('user_land', 'Deutschland');
  PostParams.AddFormField('user_geburtstag', '11');
  PostParams.AddFormField('user_geburtsmonat', '1');
  PostParams.AddFormField('user_geburtsjahr', '1988');
  PostParams.AddFormField('user_vorwahl', '43215');
  PostParams.AddFormField('user_rufnummer', '21341');
  PostParams.AddFormField('user_mobilfunknummervorwahl', '');
  PostParams.AddFormField('user_mobilfunknummerrufnummer', '');
  PostParams.AddFormField('form_next','');

  Source := IdHTTP1.Post(AddPageURL, PostParams);
  memo1.Lines.Text := source;

 with TStringList.Create do
  try
    Text := Source;
    SaveToFile('D:\test.html'); //speichern
  finally
    Free;
  end;
  PostParams.Free;

memo1.Text :=(s);


end;

wenn ich jetzt die test.html öffne denn zeigt er mir die seite an wo das:

zusammenfalten · markieren

Delphi-Quellcode:

  PostParams.AddFormField('user_anrede', 'Frau');
  PostParams.AddFormField('user_vorname', 'name');
  PostParams.AddFormField('user_nachname', 'nachname');
  PostParams.AddFormField('user_strasse', 'blastr');
  PostParams.AddFormField('user_hausnummer', '13');
  PostParams.AddFormField('user_plz', '21343');
  PostParams.AddFormField('user_ort', 'Entenhausen');
  PostParams.AddFormField('user_land', 'Deutschland');
  PostParams.AddFormField('user_geburtstag', '11');
  PostParams.AddFormField('user_geburtsmonat', '1');
  PostParams.AddFormField('user_geburtsjahr', '1988');
  PostParams.AddFormField('user_vorwahl', '43215');
  PostParams.AddFormField('user_rufnummer', '21341');
  PostParams.AddFormField('user_mobilfunknummervorwahl', '');
  PostParams.AddFormField('user_mobilfunknummerrufnummer', '');
  PostParams.AddFormField('form_next','');
//die ganzen daten wie Entenhausen verwende ich natürlich nich is jetzt nur so :mrgreen:

ausgefüllt und abgeschickt werden sollte aber das abschicken funktioniert nicht


könnt ihr mir da weiter bitte bitte bitte weiterhelfen? bin noch anfänger in sachen indy

ps. diesen code habe ich hier im board gefunden und angepasst





Die test.html lästs sich nich hochladen("Die Erweiterung html ist hier verboten")
einfach text.html.txt in test.html umbenennen den gehts



mfg,

Kann mir wirklich keiner helfen?