Thema: Delphi PSC login via idhttp

Einzelnen Beitrag anzeigen

gandime
(Gast)

n/a Beiträge
 
#1

PSC login via idhttp

  Alt 14. Jan 2008, 16:03
Hi,
ich möchte ein PSC-Login mit idhttp realisieren.
Die Login Seite
Die wichtigen Htmlstücke:
Zitat:
<form name="form1" id="form1" method="post" action="ShowCardToCustomerServlet">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">PIN
<input class="inputBox" onKeyUp="return autoTab(this, 4, event);" maxlength="4" size="4" type="text" name="randomNumber_1" value="" />
<input class="inputBox" onKeyUp="return autoTab(this, 4, event);" maxlength="4" size="4" type="text" name="randomNumber_2" value="" />
<input class="inputBox" onKeyUp="return autoTab(this, 4, event);" maxlength="4" size="4" type="text" name="randomNumber_3" value="" />
<input class="inputBox" maxlength="4" size="4" type="text" name="randomNumber_4" value="" />



<script type="text/javascript">
<!--
// set focus in first INPUT field
document.form1.randomNumber_1.focus();
//-->
</script>
</td>
<td>[img]customer/img/nix.gif[/img]</td>
<td valign="top">

<div id="cc_layer_pin_error" class="text"> <span class="passwort">Password (if activated):</span>
<input type="password" name="password" class="inputBox_pw" />



<span class="passwort"> <span class="textlink">Forgotten password</span>
</span> </div>

</td>
</tr>
<tr>
<td>
<div id="cc_img_submit_links">

<input name="language" type="hidden" value="en">
<input name="locale" type="hidden" value="">
<input type="submit" id="submit" name="Submit" value="Next" title="Next" class="cc_button_submit" />
</div></td>

</tr>
</table>
jetzt funktioniert das blos nicht wie ich es will^^:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  sl:tstringlist;
begin
  sl:=tstringlist.create;
  sl.Values['language']:='en';
  sl.Values['randomNumber_1']:='0000';
  sl.Values['randomNumber_2']:='0000';
  sl.Values['randomNumber_3']:='0000';
  sl.Values['randomNumber_4']:='00000';
  sl.Values['password']:='';
  sl.Values['language']:='';
  sl.Values['locale']:='';
  sl.Values['submit']:='Weiter';
  Memo1.Text:=IdHTTP1.Post('https://customer.cc.at.paysafecard.com/psccustomer/ShowCardToCustomerServlet',sl);
was könnten meine Fehler sein?
benutze ich die richtige URL?
hat das etwas mit den verschiedenen Formen zutun?


mfg
gandime
  Mit Zitat antworten Zitat