fix: use default brew path to sshpass on macOS

ansgarbecker · ansgarbecker · commit b7c3d07ebb86 · 2026-02-25T13:56:17.000+01:00
See https://www.heidisql.com/forum.php?t=44716
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -269,6 +269,7 @@   TSecureShellCmd = class(TObject)
       procedure Connect;
       constructor Create(Connection: TDBConnection);
       destructor Destroy; override;
+      function SshpassPath: String;
   end;
 
   TSQLFunction = class(TPersistent)
@@ -1034,6 +1035,15 @@ destructor TSecureShellCmd.Destroy;
   inherited;
 end;
 
+function TSecureShellCmd.SshpassPath: String;
+begin
+  {$IFDEF DARWIN}
+  // See https://www.heidisql.com/forum.php?t=44716
+  Result := '/opt/homebrew/bin/sshpass';
+  {$ELSE}
+  Result := '';
+  {$ENDIF}
+end;
 
 procedure TSecureShellCmd.Connect;
 var
@@ -1085,7 +1095,7 @@ procedure TSecureShellCmd.Connect;
   SshCmd := SshCmd + ' -N -L ' + IntToStr(FConnection.Parameters.SSHLocalPort) + ':' + FConnection.Parameters.Hostname + ':' + IntToStr(FConnection.Parameters.Port);
 
   if not EnvSshpass.IsEmpty then begin
-    SshCmd := 'sshpass -e ' + SshCmd;
+    SshCmd := SshpassPath + ' -e ' + SshCmd;
     EnvList := TStringList.Create;
     for i := 0 to GetEnvironmentVariableCount - 1 do
       EnvList.Add(GetEnvironmentString(i));
