Jump to content

tgbs

Members
  • Content Count

    97
  • Joined

  • Last visited

  • Days Won

    1

tgbs last won the day on October 28

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. tgbs

    ALTER DOMAIN INTERBASE ON PRIMARY KEY

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

    SSL of this site

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

    VCL DB App. To Cloud

    I think you will have to buy VM. Linux or Windows is your choice
  4. UniqueString(CmdLine); Before CreateProcess ?
  5. 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
  6. 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
  7. 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
  8. There is an add-on in Cockpit for ZFS Storage. In the cockpit, you log in with the corresponding Linux user
  9. tgbs

    creating a frame at runtime

    This can be a problem in a multilingual project
  10. tgbs

    Delphi 12.2 available for download

    Any news about FMXLinux?
  11. We were updated from 12.1 to 12.2. There is no problem with the RDP from real Windows and Linux machines to 12.2. 12.2 is on real and virtual machines. Edit: Forgot to say that 12.2 is on Windows 10 and 11
  12. My colleagues and I planned to upgrade from 12.1 to 12.2 next week. Most of the time we access Delphi in the office through VPN and RDP. Most PCs with Delphi 12.1 installed are real, but there are also VMs. I didn't understand when the problem occurs
  13. tgbs

    ActionList Editor: New Standard Action...

    We have a problem when double-clicking on the TActionlist. There are only a few actions, but the image list (TVirtualImageList) is large
×