Automatisch auf einer HTTPS-Seite anmelden über Delphi/Lazarus

Im Grund genommen kannst du ähnlich vorgehen, wie beim Auslesen des HTMLs einer Website. Da du HTTPS unterstützen möchtest, brauchst du noch die entsprechenden SSL-Bibliotheken. Das sind ssleay32.dll und libeay32.dll (für ein Win 32 Programm), die im Ordner der Anwendung liegen sollten.

Um den Login zu simulieren, musst du das Absenden des Login-Formulars nachbauen. Dies geschieht normalerweise über einen POST-Request, der dann etwa so aussehen könnte:

uses fphttpclient;
 
procedure DoLogin;
var
  AHTTPClient: TFPHTTPClient;
  APostValues: TStringList;
  AUrl, AResult: string;
begin
  AUrl := 'https://www.example.com/login.php';

  AHTTPClient := TFPHTTPClient.Create(nil);
  try
    AHTTPClient.AllowRedirect := True;
    APostValues := TStringList.Create;
    try
      APostValues.Add('name=MeinName');
      APostValues.Add('password=MeinPasswort');
      try
        AResult := AHTTPClient.SimpleFormPost(AUrl, APostValues);
        ShowMessage(AResult);
      except
        on E: exception do ShowMessage(E.Message);
      end;
    finally
      APostValues.Free;
    end;
  finally
    AHTTPClient.Free;
  end;
end; 

Als Werte verwenden wir hier name = MeinName und password = MeinPasswort. Hier müsstest du noch name und password durch die richtigen Namen der Formularfelder ersetzen und statt MeinName und MeinPasswort die richtigen Login-Daten setzen.
09.07.2018 um 17:07