Lars Fosdal

TArray = a rack.

I love Continua CI and FinalBuilder. Massive time-savers!

Perhaps check that the types used in the declaration of the API doesn't inappropriately change size on the Delphi side depending on if we compile for 32-bit vs 64-bit?

We went from ADO to FireDAC and significantly improved the performance. However - we do NOT use db aware components and inserts and updates are done through stored procedures. We systematically use FetchOptions.Mode := fmAll; FetchOptions.Unidirectional := Unidirectional; For stored procs, we add FetchOptions.Items := FetchOptions.Items - [fiMeta]; We also avoid MARS concurrency by ensuring that every query gets a connection of its own.

It is a very old legacy Windows function, though...

Working as admin by default would be considered a massive no-no by my company.

Confirmed. It worked running elevated with the MAX_PREFERRED_LENGTH and returned some 16k+ users.

The 64-bit simply refuses to run, unless I run it elevated. Then I get /--- Started --- hres = 0 dwRead = 35 dwTotal = 712 hres = 3608717696 EAccessViolation: Access violation at address 00007FFBCE7CB0EC in module 'SAMCLI.DLL'. Read of address 00000000D718A9A8 Press Enter: Perhaps there are further access rights that come into play?

Check out unit web.win.AdsTypes: Here is some code I wrote to find out if a user had an AD membership. unit ActiveDSUtil; /// Written by Lars Fosdal, 16 DEC 2014 /// Note that calling AD functions is slow. interface uses Classes, SysUtils, ActiveX, ActiveDS_tlb, web.win.adstypes; type TADGroupList = array of String; TAnonParamFunc<TA,TR> = reference to function (const v:TA):TR; /// <summary> Enumerates the group memberships of an AD user </summary> function EnumADUserGroupMemberships(const aDomain, aUser: String; EnumHandler: TAnonParamFunc<IAdsGroup, Boolean>):Boolean; /// <summary> Returns a list of all AD groups for an AD user </summary> function GetADUserGroupMemberships(const aDomain, aUser: String):TStringList; /// <summary> Checks if an AD user is member of one or more specific groups</summary> function UserHasADGroupMembership(const aDomain, aUser: String; const GroupList: TAdGroupList): Boolean; implementation function EnumADUserGroupMemberships(const aDomain, aUser: String; EnumHandler: TAnonParamFunc<IADsGroup, Boolean>):Boolean; var hr: HREsult; User: IADsUser; Enum: IEnumVariant; varGroup: OleVariant; EnumHelper: LongWord; begin Result := False; CoInitialize(nil); try hr := ADsGetObject('WinNT://'+aDomain+'/'+aUser+',user',IID_IADsUser3 , User); if not Failed(hr) then begin try Enum := User.Groups._NewEnum as IEnumVariant; while Assigned(Enum) and (Enum.Next(1, varGroup, EnumHelper) = S_OK) do begin try if EnumHandler(IDispatch(varGroup) as IADsGroup) then EXIT(True); finally VariantClear(varGroup); end; end; finally User := nil; end; end; finally CoUninitialize; end; end; function GetADUserGroupMemberships(const aDomain, aUser: String):TStringList; var List: TStringList; begin List := TStringList.Create; List.BeginUpdate; try EnumADUserGroupMemberships(aDomain, aUser, function(const Group: IAdsGroup):Boolean begin Result := False; List.Add(Group.Name + ' ' + Group.Class_); end); finally List.Sort; List.Insert(0, aDomain +'\'+ aUser); List.EndUpdate; Result := List; end; end; function UserHasADGroupMembership(const aDomain, aUser: String; const GroupList: TAdGroupList): Boolean; begin Result := EnumADUserGroupMemberships(aDomain, aUser, function(const Group: IAdsGroup):Boolean var GroupName: String; begin Result := False; for GroupName in GroupList do begin Result := CompareText(GroupName, Group.Name) = 0; if Result then Break; // Return true for first match end; end); end; end.

@Davide Angeli - BTW- Why don't you use the AD APIs instead?

Windows 10, 64-bit Compile to 32-bit target - runs as expected Compile to 64-bit target - unable to create process

I'd complain loudly to the company that wrote that app. These folders have been forbidden for the last 15 years - at least. Dynamic data should go to user folders for user specific data, or AppData for system wide data.

It was an possibly premature assumption from my side...

You sort of posted the answer with your question. Not sure what you are trying to improve?

Putting writable files under C:\Program Files is a very bad idea, but probably not related to the errors. You could in theory have your own built in web server and serve the files from there to avoid direct file system access from the browser? Comment #3 here is a possible explanation. https://bugs.chromium.org/p/chromium/issues/detail?id=512542#c3

I'd forgo all PowerBuilder UI related things and focus on the function of the app - what does it need to do. Analyse the code (a "screen" here is a reference to a window or combination of windows/controls) - how do you navigate it - what does each screen do - where does it get its data - how does it treat and display the data - what can you do within that screen You would only need to focus on bringing the content and functionality over, without dwelling too much on the old-school PowerBuilder UI code. It would be more of a rewrite than a migration.

Please post in English (use Google translate if necessary).

So, TNetEncoding.HTML.Decode needs to be updated to support HTML5... Edit: Looks like a significant expansion of named entities. HTML5: https://www.w3.org/TR/2011/WD-html5-20110525/named-character-references.html HTML4: https://www.w3.org/TR/html4/sgml/entities.html

Nope. https://stackoverflow.com/questions/2083754/why-shouldnt-apos-be-used-to-escape-single-quotes

https://www.educba.com/cmd-vs-bat/

.bat is pretty stoneage. .cmd has replaced it. unless you go for PowerShell, which is .ps1 (I absolutely love PS)

AnsiReplaceStr( cLast, '&#39;', '' ); Is that an empty string or is it the forum software that plays tricks on us? It should look like AnsiReplaceStr( cLast, '&#39;', '''' );

That's an estimate based on when the average time before the warranty on a laptop runs out and updates are no longer provided 😛

The GIGO rule applies. Garbage in -> Garbage out. Hence, clean up your data by doing your validation during input.

I go out of my way to avoid using with. Why would you need to explicitly set a local variable nil? One that just has been free'd and is about to be non-existent?