Delphi-Quellcode:
post:= TStringlist.Create;
r:=idhttp1.Get('https://www.neckermann.de/on/demandware.store/Sites-DE-Site/de_DE/Login-Show/');
post.add('dwfrm_login_username='+sg.Cells[1,i+1]+'&dwfrm_login_password='+sg.Cells[2,i+1]+'&dwfrm_login_login.x=41&dwfrm_login_login.y=4&dwfrm_login_login=Login');
anmeldelink:='https://'+GetB(r,'<form action="https://','" method="post');
Memo1.text:= idhttp1.Post(anmeldelink,post);
post.free;
Der Link zur Anmeldung ist dynamisch, deshalb kopier ich den mit GetB raus. Funktioniert auch einwandfrei.
Indyversion: 9.0.17