

FredS
Members-
Content Count
389 -
Joined
-
Last visited
-
Days Won
4
FredS last won the day on February 13 2022
FredS had the most liked content!
Community Reputation
132 ExcellentTechnical Information
-
Delphi-Version
Delphi 10.1 Berlin
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
MSBuild - set library paths without touching IDE options
FredS replied to Fr0sT.Brutal's topic in General Help
This is how I compile with older versions of controls.. might help you get started. The CMD file is in the project root and changes directory to Source: @ECHO OFF :: :: How to Redirect to an older Version of VCL :: Since no IDE is required this will work for NON installed versions of any VCL controls ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: :: Redirect DX, to compile with source we need to update all these ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REM @SET DXVCL=%VCL%\DevExpress VCL\20.2.8 (26-May-2021) for PA2-R12 REM IF NOT Exist "%DXVCL%" ( REM echo."%DXVCL%", Directory does not exist REM Pause ) REM CALL :SetEnvVar "DXLibs" REM CALL :SetEnvVar "DXSources" REM SET DX REM pause :: :: Redirect UNI, to compile with source we need to update all these ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REM @SET UNIVCL=%VCL%\UniDAC\9.0.1 (14-Sep-2021) REM IF NOT Exist "%UNIVCL%" ( REM echo."%UNIVCL%", Directory does not exist REM Pause ) REM CALL :SetEnvVar "UNILIB" REM CALL :SetEnvVar "UniSources" REM SET Uni REM pause :: :: Environmental Vars declared in the IDE must be redeclared ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: @SET CompilerV=28 @SET ProductVersion=22.0 @SET IDEVER=11.0.2 :: :: Now expand those with rsVars.bat ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: call "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\rsvars.bat" :: :: Reset the rsVars.bat defaults ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: @SET BDSCOMMONDIR=D:\Embarcadero Studio\22.0 :: :: Add the location of cmd.exe ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: @SET PATH=%WINDIR%\System32;%PATH% cd source :: Recomended in 10.4 Release Notes.. MSBuild APP.dproj /t:clean REM TIMEOUT /T 10 MSBuild APP.dproj /t:build /v:q /p:Config=Release /p:platform=Win64 cd .. :: View any output notices pause :: ========== FUNCTIONS ========== EXIT /B :: Read a Value from Environment :: Param 1: Name of output variable. :: Param 2: SubKey. :RegQueryEnv @ECHO OFF SET KEY="HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" :: Remove the double quotes Set SUBKEY=%~2 FOR /F "skip=2 tokens=2,*" %%A IN ('reg.exe query %KEY% /v "%SUBKEY%"') DO ( set %1=%%B ) EXIT /B :: Expand any EnvVars in the Text :: Param 1: Name of output variable. :: Param 2: Text to Expand (%UNIVCL%\Lib\Delphi$(CompilerV)) :ExpandEnvVar @ECHO OFF set %1=%~2 REM echo.ExpandEnvVar=%Text% EXIT /B :: Combines RegQuery and ExpandEnvVar then uses @SET :: Param 1: SubKey. :SetEnvVar @ECHO OFF CALL :RegQueryEnv Value %1 CALL :ExpandEnvVar Value "%Value%" @SET %~1=%Value% -
The myth of a working LSP server.. since before Godzilla 🙂
-
How does the "Address Space Randomization (ASLR)" actually work
FredS replied to Tommi Prami's topic in General Help
I don't have 11.2, but the fact that madExcept needed an update to deal with ASLR tells me its finally working. Redux: https://blog.marcocantu.com/blog/rad111_pe_security.html -
How does the "Address Space Randomization (ASLR)" actually work
FredS replied to Tommi Prami's topic in General Help
This hasn't worked for at least 11 years: https://www.codenewsfast.com/cnf/articles -
Update Subscription: Embarcadero policy seriously this bad?
FredS replied to Al T's topic in Delphi IDE and APIs
I didn't renew last February and in the good bye letter from EMBT there was something about being able to reactivate it.. I don't have it handy but pretty sure there was a period specified when it can be reactivated. Maybe you better clarify that with subscriptions.. -
Wouldn't it be simpler just to use ShellAPI and Windows to zip?
-
I can show you an example but most of my code uses internal stuff. But let me make one thing clearer; the action after Beyond Compare is manual NOT automatic.. In short, after comparing the prior db creation script with the new one methods within the Patching unit are called manually.. This example increase the Size of a [N]Varchar Column using UniDAC, FB3/4 and SqlServer dbs: /// <summary> /// Increase the Size of a [N]Varchar Column /// </summary> /// <param name="NullKind"> /// Must be given else some dbs default to allowing nulls when you make changes /// </param> class procedure TExecSqlPatch.IncVarChar(const Con: TUniConnection; const ATable, AColumn: string; const NewSize: Word; const NullKind: TNullKind); {$REGION 'History'} // 29-Aug-2018 - ExecuteSQL does not return any usefull count for these Block calls {$ENDREGION} var sql: string; begin case Con.DbProvider of dbFirebird: begin sql := 'EXECUTE block as BEGIN ' + ' if (exists(select 1 from RDB$RELATION_FIELDS rf where rf.RDB$RELATION_NAME = :TableName and rf.RDB$FIELD_NAME = :ColumnName))' + CRLF + ' then execute statement ' + 'ALTER TABLE :TableRaw ALTER COLUMN :ColumnRaw Type VARCHAR(:NewSize)'.ToQuoted + SEMICOLON + CRLF + 'END'; sql.ReplaceParams([ATable.ToUpper, AColumn.ToUpper, ParamRaw + ATable.ToUpper, ParamRaw + AColumn.ToUpper, NewSize]).Error.Assert; Con.ExecuteSQL(sql); sql := 'EXECUTE block as BEGIN ' + ' if (exists(select 1 from RDB$RELATION_FIELDS rf where rf.RDB$RELATION_NAME = :TableName and rf.RDB$FIELD_NAME = :ColumnName))' + CRLF + ' then execute statement ' + 'ALTER TABLE :TableRaw ALTER :ColumnRaw :NullKind NOT NULL'.ToQuoted + SEMICOLON + CRLF + 'END'; sql.ReplaceParams([ATable.ToUpper, AColumn.ToUpper, ParamRaw + ATable.ToUpper, ParamRaw + AColumn.ToUpper, ParamRaw + cFB3NullKind[NullKind]]).Error.Assert; Con.ExecuteSQL(sql); end; dbSQLServer: begin sql := 'IF EXISTS(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE [TABLE_NAME] = :Table AND [COLUMN_NAME] = :Column) ' + CRLF + 'BEGIN ' + CRLF + ' ALTER TABLE :TableRaw ALTER COLUMN :ColumnRaw NVARCHAR(:NewSize) :NullKind ' + CRLF + 'END '; sql.ReplaceParams([ATable.ToUpper, AColumn.ToUpper, ParamRaw + ATable.ToUpper, ParamRaw + AColumn.ToUpper, NewSize, ParamRaw + cMSSQLNullKind[NullKind]]).Error.Assert; Con.ExecuteSQL(sql); end; else raise ENotImplemented.Create('Not Implemented'); end; end;
-
I wrapped most Alter statements into a 'SQL.Patching.pas' unit which fires what is needed depending on a version field at startup. Found the simplest way was to make all changes and then use Beyond Compare on the db creation script to generate an output which is used to call the methods in the Patching unit.
-
I've seen that change when the Windows license is changed.
-
Maybe you need to open the port in the Firewall(s)..
- 3 replies
-
- alexandria
- linux
-
(and 1 more)
Tagged with:
-
Adding this to the unit worked for me: {$RANGECHECKS OFF}
-
I don't use that unit, you'll need to figure out how searches are made using it.
-
Use ldap_search_sW
-
Use the ldap_bind_sW function (winldap.h)
-
Parnassus Bookmarks for Delphi 11 Alexandria?
FredS replied to PeterPanettone's topic in Delphi IDE and APIs
Sure, sometimes I use Notepad++ bookmarks and its Editor.. 🙂