Jump to content

Lars Fosdal

Administrators
  • Content Count

    3344
  • Joined

  • Last visited

  • Days Won

    111

Posts posted by Lars Fosdal


  1. I've run into a D12 issue: The GetIt FastReports installer now installs to a user owned path! 

    C:\Users\<username>\Documents\Embarcadero\Studio\23.0\CatalogRepository\FastReport-2023.3\
    It used to be: C:\Program Files (x86)\FastReports\

     

    This is a problem because our build server doesn't see that path as it runs with a different AD user than the user that installed Delphi, and hence barfs when trying compile units that contain Fast Reports units.

     

    Has anyone found a good solution to this?


  2. There is nothing unusual with Explorer querying a registry entry that doesn't exist. In this case, it checks for Application Compatibility flags and finds none for bds.exe.

    Nor is there anything unusual about Explorer reading from the files to extract things like file information resources.

    In computing like in medicine - it is only when the patience appear sick that you start examining the symptoms in detail.


  3. There are many better alternatives to Sleep. 

    https://learn.microsoft.com/en-us/windows/win32/sync/wait-functions#multiple-object-wait-functions

     

    The downside of a single Sleep is that it blocks termination of the thread.

    The downside of multiple Sleep + time checks to allow termination, consumes more CPU.

     

    Signals, WaitForXXXX & Timeouts give you all the tools you need to have low cost and responsive threads - even if it requires a little more scaffolding code.

    • Like 2

  4. @JonRobertson I have no performance comparisons between the ODBC driver and the OLEDB driver, so I'll have to take that at face value.
    Devart did a a more nuanced comparison between the two.
     

    The OLEDB driver was deprecated by MS at one point, then undeprecated in 2018.

    Not sure why EMBT chose not to create a wrapper for it, but resources may have been an issue?

     

    As for ODBC vs Native - In case there are multiple drivers installed, I wrote the following simple code to pick my preferred driver, but these days we stick with the ODBC driver(s) due to the Native Client being too old for some of our databases.

    class function TPSDFireDatabasePoolMSSQL.FindBestDriver(const Link: TFDPhysMSSQLDriverLink): String;
    const // Constants copied from implementation section of FireDAC.Phys.MSSQL
      C_SQL_SERVER = 'SQL Server'; // DO NOT TRANSLATE
      C_2019_ODBC = 'ODBC DRIVER 19 FOR SQL SERVER'; // DO NOT TRANSLATE
      C_2018_ODBC = 'ODBC DRIVER 18 FOR SQL SERVER'; // DO NOT TRANSLATE
      C_2017_ODBC = 'ODBC DRIVER 17 FOR SQL SERVER'; // DO NOT TRANSLATE
      C_2016_ODBC = 'ODBC DRIVER 13 FOR SQL SERVER'; // DO NOT TRANSLATE
      C_2012_ODBC = 'ODBC DRIVER 11 FOR SQL SERVER'; // DO NOT TRANSLATE
    {$IFDEF POSIX}
      C_FreeTDS = 'FreeTDS';
    {$ENDIF}
    {$IFDEF MSWINDOWS}
      C_2012_NC = 'SQL SERVER NATIVE CLIENT 11.0'; // DO NOT TRANSLATE
    {$ENDIF}
    var
      DriverList : TStringList;
      WantedList : TArray<String>;
      Driver: string;
    begin
      Result := ''; // Blank = Default
    
      WantedList := {$IFDEF MSWINDOWS}
                      {$IFDEF SQLNative}
                        [C_2012_NC, C_2017_ODBC, C_2016_ODBC, C_2012_ODBC]
                      {$ELSE}
                        [C_2018_ODBC, C_2017_ODBC, C_2016_ODBC, C_2012_NC, C_2012_ODBC]
                     {$ENDIF}
                   {$ENDIF}
                   {$IFDEF POSIX}
                     [C_2018_ODBC, C_2017_ODBC, C_2016_ODBC, C_2012_ODBC, C_FreeTDS]
                   {$ENDIF};
    
      DriverList := TStringList.Create;
      try
        Link.GetDrivers(DriverList);
    
        DebugOut('Available SQL drivers'); // DO NOT TRANSLATE
        for Driver in DriverList
         do DebugOut(' "' + Driver + '"');
    
        for var Wanted in WantedList
         do for Driver in DriverList
          do begin
            if CompareText(Wanted , Driver) = 0
            then begin
              DebugOut('Selected driver: "' + Driver + '"'); // DO NOT TRANSLATE
              BestDriver := Driver;
              Exit(Driver);
            end;
          end;
      finally
        DriverList.Free;
      end;
    end;
    

     

×