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 GoodTechnical Information
-
Delphi-Version
Delphi 12 Athens
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
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 -
This can be a problem in a multilingual project
-
Any news about FMXLinux?
-
Delphi 12.2 code editor blinks for every key I press
tgbs replied to Clément's topic in Delphi IDE and APIs
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 -
Delphi 12.2 code editor blinks for every key I press
tgbs replied to Clément's topic in Delphi IDE and APIs
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 -
We have a problem when double-clicking on the TActionlist. There are only a few actions, but the image list (TVirtualImageList) is large