WebDAV Login Beispiel

[Carsten Hölscher]

Danke erstmal für die Tipps. ich habe es so grundsätzlich zum Laufen bekommen. Jetzt hab ich aber folgenden Effekt mit 2 Accounts. Starte ich mein Programm und lasse Account 1 eine Datei hochladen, geht das. Dito mit Account 2 nach Neustart des Programms.
Mache ich aber beides nacheinander ohne Neustart schlägt der 2. Zugriff fehl mit folgender Meldung:

<?xml version="1.0" encoding="utf-8"?><d:error xmlns:d="DAV:"xmlns:s="http://sabredav.org/ns"><s:exception>Sabre\DAV\Exception\NotAuthentica ted</s:exception><s:message>Username or password was incorrect</s:message></d:error>'

Mache ich direkt danach einen erneuten, identischen Versuch, so klappt der.

Delphi-Quellcode:

FwebDAVServer.Request.URL:='...';
FwebDAVServer.Request.Username:=Username1;
FwebDAVServer.Request.Password:=Password1;
FwebDAVServer.Request.CustomHeaders.Clear;
Result:=FwebDAVServer.Put('..Ziel1..'+ Dateiname, stream);
 
FwebDAVServer.Request.Username:=Username2;
FwebDAVServer.Request.Password:=Password2;
FwebDAVServer.Request.CustomHeaders.Clear;
FwebDAVServer.Request.CustomHeaders.Add('X-Requested-With: XMLHttpRequest');
Result:=FwebDAVServer.Put('..Ziel2..'+ Dateiname, stream); // <- Fehler
Result:=FwebDAVServer.Put('..Ziel2..'+ Dateiname, stream); // <- klappt

Carsten