freepascal

Problem I tried to use the Pascal function EncodeStringBase64 , assuming Inno Setup had access to the Pascal standard library but it fails to find it and provides an Unknown Identifier error. https://www.freepascal.org/docs-html/fcl/base64/encodestringbase64.html I also found this code to carry out the conversion but it seems to be restricted to AnsiStrings. https://github.com/docker/toolbox/blob/master/windows/base64.iss Question Ideally I'd like to use the standard library function, is there any way that I can access it? If not, is the code using AnsiStrings safe to use on normal Unicode

Using FreePascal (or Delphi if no FP examples), given a 2048 byte buffer that is as an "array of bytes", how can I search the buffer for "StringA"? var Buffer : array[1..2048] of byte; ... repeat i := 0; BlockRead(SrcFile, Buffer, SizeOf(Buffer), NumRead); // Now I want to search the buffer for "StringA"? ... Thankyou I think this will work in fpc without extra Unicode/AnsiString conversion : function Find(const buf : array of byte; const s : AnsiString) : integer; //returns the 0-based index of the start of the first occurrence of S //or -1 if there is no occurrence var AnsiStr : AnsiString;

I'm writing some software that targets two versions of very similar hardware which, until I use the API to initialize the hardware I'm not able to know which type I'll be getting back. Because the hardware is very similar I planned to have a parent class (TParent) that has some abstract methods (for where the hardware differs) and then two child classes (TChildA, TChildB) which implement those methods in a hardware dependent manner. So I would first instantiate an object of TParent check what kind it is then cast it to the correct child. However when I do this and call one of the abstract

Why is it imposible to enter critical section without Sleep(1)? type TMyThread = class(TThread) public procedure Execute; override; end; var T: TMyThread; c: TRTLCriticalSection; implementation procedure TForm1.FormCreate(Sender: TObject); begin InitializeCriticalSection(c); T := TMyThread.Create(false); end; procedure TMyThread.Execute; begin repeat EnterCriticalSection(c); Sleep(100); LeaveCriticalSection(c); sleep(1); // can't enter from another thread without it until false; end; procedure TForm1.Button1Click(Sender: TObject); begin EnterCriticalSection(c); Caption := 'entered';

I got bitten my first sql escaping error (it was long overdue) when I tried to execute the PostgreSQL query below with a value containing an apostrophe eg. O'Brien , using FreePascal and Lazarus SQL.Add(format('select * from zones where upper(zn_name) >= %s and upper(zn_name) < %s order by zn_name',[sQuote(zoneMin), sQuote(zoneMax)])); In the query above SQuote is a function that wraps a string in single quotes. Is there some standard library for sanitizing SQL query parameters for Lazarus/FreePascal or Delphi for that matter? Your application is vulnerable to a serious class of security

I have an x86_64 library on my Mac compiled by GCC, and I want to link it with Pascal code compiled with Free Pascal 2.4. What options do I give to fpc to make it generate 64-bit code? Without any options, I only get 32-bit .o files. I'm using the fpc-2.4.0.intel-macosx.dmg download from SourceForge, but when I run fpc -i , the only target Macintosh platform it lists is "Darwin for i386," although the 2.4 release notes say it can target "64-bit Mac OS X (x86_64/ppc64)." According to Jonas Maebe on the fpc-pascal mailing list , there are two options: Run fpc with the -Px86_64 option. (The -P