Hallo,
ich versuche mich mit mit den Indykomponenten über eine sichere Verbindung auf einem Webserver wie folgt einzuloggen :
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TForm1.Button1Click(Sender: TObject);
var
iHandle: Integer;
params: TStringList;
begin
params := TStringList.Create;
with params do
begin
Add('Login=Benutzer');
Add('Passwort=Passwort');
end;
Try
idHTTP1.Post('https://192.168.100.100/login.cfm', params);
except
showmessage('hat nicht geklappt')
end;
params.free;
iHandle := ShellExecute(handle, 'open', 'https://192.168.100.100/dw/Seite.html', nil, nil, SW_SHOW);
end; |
Vor 3 Wochen hat das einwandfrei funktioniert, jetzt meldet der Server neuerdings auf der Anmeldeseite :
Session-Timeout - Bitte melden Sie sich neu an.
Liegt das jetzt am Programm, oder wurde am Server was geändert ?
Bin ziemlich ratlos.
