Hello Jamie,
i'm editing the source code 1.2.6 of the project with Lazarus version 4.4 and FPC 3.2.2
i replaced in src/common.pas :
function CalcFileCRC32(AFileName: string): Cardinal;
var
Buffer : TBytes;
begin
Result:=CRC32(0,nil,0);
with TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone) do
try
SetLength(Buffer, Size);
Read(Buffer,Size);
Result:=CRC32(Result,@Buffer[0],Size);
finally
Free;
end;
end;
by your code :
function CalcFileCRC32(AFileName: string): Cardinal;
var
Buffer : TBytes;
begin
Result:=CRC32(0,nil,0);
with TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone) do
try
SetLength(Buffer, Size);
Read(Buffer[0],Size); //<< Change this to BUFFER[0].
Result:=CRC32(Result,@Buffer[0],Size);
finally
Free;
end;
end;
and saved the file
i also modified in translator.pas :
case Integer(LUnicode.Words[0]) of
by this :
case WOrd(LUnicode {.Words[0]}) of
and i still can't get an exe file:
i can see in the console:
warning windres: can't open file 'RBDB_SQL_CREATE_IDX.zip' no such file or directory
Error: error while compiling resources: compile with -vd for more detail
and like you noticed, the dev stopped to compile windows file because windows defender report an issue.
i though i just could zip the file , located in src\sql
but nothing changed.. what a mess
