ChatPGT kann ich heute leider nicht mehr nutzeen.
Zu viel blödes Zeug gefragt
.
Die MapWebDav Funktion habe ich angepasst wie von Dir beschrieben (hoffe ich).
Wird auch problemlos kompiliert.
Delphi-Quellcode:
function MapWebDAV(const RemotePath, LocalDrive: string;
const UserName, Password: string): DWord;
var
NetResource: TNetResourceA;
Drive: Char;
begin
Drive := LocalDrive[1];
FillChar(NetResource, SizeOf(NetResource), 0);
with NetResource do
begin
dwType := RESOURCETYPE_DISK;
lpRemoteName := PAnsiChar(RemotePath);
lpLocalName := PAnsiChar(Drive + ':');
lpComment := nil;
lpProvider := nil;
end;
Result := WNetAddConnection2A(@NetResource, PChar(Password),
PChar(UserName), CONNECT_INTERACTIVE or CONNECT_PROMPT or
CONNECT_UPDATE_PROFILE);
if (Result = NO_ERROR) then
ShowMessage('Connection added ' + PAnsiChar(RemotePath))
else
ShowMessage('WNetAddConnection2 failed with error: ' + Result.ToString);
Ich bekomme jetzt den "Error 1200". Das ist ja schon mal mehr.
Ich tippe auf Zugangsdaten, obwohl die richtig sind. Aber vielleicht irgendwo nicht richtig übermittelt werden.