

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 GoodTechnical Information
-
Delphi-Version
Delphi 12 Athens
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
finalbuilder FinalBuilder 8.0.0.3035 with Rad Studio 11 support released.
tgbs replied to Vincent Parrett's topic in Delphi Third-Party
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 -
Excuse me but I pressed a report post instead of shared
-
"SSL routines:ssl3_read_bytes:tlsv1 alert internal" error when CDN active
tgbs replied to GabrielMoraru's topic in Indy
https://www.theregister.com/2025/03/04/cloudflare_blocking_niche_browsers/ Maybe that's the problem -
Windows 10,11 ? Or Windows Server version
-
After the renewal, an apache must be restarted
-
Drop Primary key, alter domain, recreate primary key. If You have Foreign keys - first drop them
-
ANN : FinalBuilder/Continua CI/Signotaur - Black Friday Sale - 40% off new licenses
tgbs replied to Vincent Parrett's topic in Delphi Third-Party
After click buy now button- 7 replies
-
- finalbuilder
- code signing
-
(and 1 more)
Tagged with:
-
Validity Not After Thu, 21 Nov 2024 10:24:06 GMT Please renew certificate
-
I think you will have to buy VM. Linux or Windows is your choice
-
WTF
-
UniqueString(CmdLine); Before CreateProcess ?
-
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
-
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
-
suggestion for server side command execution on Linux
tgbs replied to dummzeuch's topic in Network, Cloud and Web
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 -
suggestion for server side command execution on Linux
tgbs replied to dummzeuch's topic in Network, Cloud and Web
There is an add-on in Cockpit for ZFS Storage. In the cockpit, you log in with the corresponding Linux user