Jump to content

tgbs

Members
  • Content Count

    103
  • Joined

  • Last visited

  • Days Won

    1

tgbs last won the day on October 28 2024

tgbs had the most liked content!

Community Reputation

16 Good

Technical Information

  • Delphi-Version
    Delphi 12 Athens

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. After ssh connection we execute command on server. If timeout is set -1 there is error "respond reading timed out". The problem is that this script runs for a different amount of time
  2. tgbs

    Best approach for using OpenSSL 3.0 in Indy

    Excuse me but I pressed a report post instead of shared
  3. https://www.theregister.com/2025/03/04/cloudflare_blocking_niche_browsers/ Maybe that's the problem
  4. tgbs

    Connection refused issue

    Windows 10,11 ? Or Windows Server version
  5. tgbs

    [RESOLVED] SSL certificate expired

    After the renewal, an apache must be restarted
  6. tgbs

    ALTER DOMAIN INTERBASE ON PRIMARY KEY

    Drop Primary key, alter domain, recreate primary key. If You have Foreign keys - first drop them
  7. tgbs

    SSL of this site

    Validity Not After Thu, 21 Nov 2024 10:24:06 GMT Please renew certificate
  8. tgbs

    VCL DB App. To Cloud

    I think you will have to buy VM. Linux or Windows is your choice
  9. UniqueString(CmdLine); Before CreateProcess ?
  10. function RunProcess(CommandLine: String; Var ErrMessage : String; WaitForProcess : Boolean; CreationFlags : Word): Boolean; Var ResultCode : LongWord; StartInfo: TStartUpInfo; ProcInfo: TProcessInformation; begin Result := False; ResultCode := 1; FillChar(StartInfo, SizeOf(TStartUpInfo), #0); FillChar(ProcInfo, SizeOf(TProcessInformation), #0); StartInfo.cb := SizeOf(TStartUpInfo); StartInfo.dwFlags := STARTF_USESHOWWINDOW; // StartInfo.wShowWindow := SW_SHOWMINIMIZED; UniqueString(CommandLine); try try IF NOT CreateProcess(nil, PChar(CommandLine), nil, nil, FALSE, CreationFlags, nil, nil, StartInfo, ProcInfo) THEN BEGIN ErrMessage := SysErrorMessage(GetLastError); Exit; END; except on e : exception do begin ErrMessage := e.Message + #13#10 + SysErrorMessage(GetLastError); Exit; end; end; if not WaitForProcess then ResultCode := 0 else begin WaitForSingleObject(ProcInfo.hProcess, INFINITE); GetExitCodeProcess(ProcInfo.hProcess, ResultCode); end; finally Result := (ResultCode = 0); //-------- CloseHandle(ProcInfo.hProcess); CloseHandle(ProcInfo.hThread); end; end; Set CommandLine to somehing like @corneliusdavid comment
  11. I'm not sure about the latest version of Firebird, but as with Interbase, only gbak utility can make archives on a remote disk. Therefore, CreateProcess and Waitforsingleobject for Gbak.exe can be used in Delphi
  12. You can write your extension (script) to a Cockpit and then perform remotely. Extensions can be written on JavaScript. Can be called through something like this curl -u 'Username: Password' -x Post \ -d '{"Script": "/Path/to/your-script.sh", "args": ["arg1", "arg2"]}' \ https: // <Server-IP>: 9090/My-Scripts/Execute I think there was also a ready -made feature to access Shell, but I don't remember what it is. Since curl can be used, I see no reason for not writing the Delphi program. There are documentation for existing and new extensions. Edit: A program can be written that performs something like this ssh user@Server-IP> 'sudo myscript.sh' The user must have sudo rights and be able to enforce it without a password. This is configured on the server. I think there are a lot of SSH access libraries with keys, not password
  13. There is an add-on in Cockpit for ZFS Storage. In the cockpit, you log in with the corresponding Linux user
×