Login auf Homepage mit Indy

[Metschu]

Nabends!

Danke schonmal für die Hilfe. Nur leider klappt das auch nicht.
Weder LoginA, noch LoginB führen zum Erfolg, immer das gleiche Ergebniss beim Quelltext.

Auch wenn man die Anmeldedaten absichtlich Falsch eingibt, ändert sich am Quelltext nichts.
Wenn ich das über den IE versuche, wird dann auf der Homepage angezeigt, das der Login Fehlerhaft war.

Die auszuführende Procedure als Result von der Funktion hab ich auch mal angepasst

Zitat von geskill:

In deinem Code sind erstmal folgende Fehler:

Delphi-Quellcode:

// Es heißt "SWEPassword"
     Params.AddFormField('SWEpassword', String(UTF8Encode(Passwort)));

Ich dachte Groß-/Kleinschreibung wäre da egal...

Zitat von geskill:

In deinem Code sind erstmal folgende Fehler:

Delphi-Quellcode:

//  Du meinst hier wohl "SWENeedContext"
     Params.AddFormField('SWEpassword', String(UTF8Encode('false')));

Ups, Fehler beim Copy...
allerdings hatte ich auch andere Proceduren getestet, wo es richtig war (bis auf die Groß/Kleinschreibung...)

[geskill]

Zitat von Metschu:

Danke schonmal für die Hilfe. Nur leider klappt das auch nicht.
Weder LoginA, noch LoginB führen zum Erfolg, immer das gleiche Ergebniss beim Quelltext.

Dann kommt der POST-Request nicht richtig an. Tippe mal das es mit dem SSL Probleme gibt.

Gibt folgende Möglichkeiten (bei beiden kann ich dir leider nicht weiterhelfen):

a. Du probierst mir der Indy SSL Komponente bisschen rumzuspielen ggf. spezielles Zertifikat einjagen damit das klappt.

b. Ihr behebt das SSL Problem serverseitig. Wenn schon jeder normale Webbrowser dort versagt.

Das die TWebbrowser Komponente in Zukunft funktioniert ist ja keineswegs garantiert. Es hängt ja alles davon ab, auf welchem Klienten das Programm ausgeführt wird. Ich kann mir vorstellen, dass der IE / das OS nicht das Neuste ist.

[Metschu]

Ein seltenes Ereigniss ist aufgetreten:

Es klappt und ich weiß nicht warum...

Vielleicht kann mir einer mal aufklären:

Webseitenquelltext:

Code:

<Form method="POST" action="/start.swe?" name="Form1">

Die Website verlangt "Post" und laut allen Anleitungen bzw Ergebnissen der Suche müßte ich es so machen:

Delphi-Quellcode:

with LParamsList do
 begin
  Add('SWEUserName=' + ALoginName);
  Add('SWEPassword=' + ALoginPassword);
  Add('SWECmd=ExecuteLogin');
  Add('SWENeedContext=false');
 end;

 LResponse := AIdHTTP.post('https://intra.net/start.swe?', LParamsList, LEnc);

Hier bekomme ich immer den Quelltext der Startseite, komme aber nicht weiter

Mit Get allerdings klappt das Einloggen und ich bekomme den Quelltext der nachfolgenden Seiten:
LResponse := AIdHTTP.get('https://intra.net/start.swe?SWEUserName=Name1+name2&SWEPassword=DasPasswort&SWECmd=ExecuteLogin&SWENeedContext=false');

(Eigentlich sollten die "Get" und "Post" in den Quelltexten auch rot markiert werden, aber anscheinend kann man im Code keine Farben einstellen)


Auf jeden fall schonmal danke an alle für die bisherigen Unterstützung!

Gruß

Torsten