UPD: MacCloud/S3: exception handle in TWFXS3PropertyView.saveConnection()

This commit is contained in:
rich2014 2025-05-13 07:54:10 +08:00
commit 84a2000f2c

View file

@ -242,9 +242,14 @@ var
count: Integer;
alert: NSAlert;
begin
count:= client.getAllBuckets.Count;
if count > 0 then
Exit;
try
count:= client.getAllBuckets.Count;
if count > 0 then
Exit;
except
on e: Exception do
TLogUtil.logError( 'in TWFXS3PropertyView.saveConnection: ' + e.Message );
end;
alert:= NSAlert.new;
alert.setMessageText( StringToNSString('Incomplete Parameters') );