Jump to content

tgbs

Members
  • Content Count

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

    IB server port requirements

    I don't know that a UDP protocol was used. The events in old versions were in a different port but now they are going through the main
  2. tgbs

    IB server port requirements

    You need to add exception to firewall. Port or program is your choice https://supportcenter.lexisnexis.com/app/answers/answer_view/a_id/1081611/~/adding-exceptions-to-the-windows-firewall
  3. Take a look at the Windows application log.
  4. 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
  5. tgbs

    Best approach for using OpenSSL 3.0 in Indy

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

    Connection refused issue

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

    [RESOLVED] SSL certificate expired

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

    ALTER DOMAIN INTERBASE ON PRIMARY KEY

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

    SSL of this site

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

    VCL DB App. To Cloud

    I think you will have to buy VM. Linux or Windows is your choice
  12. UniqueString(CmdLine); Before CreateProcess ?
  13. 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
×