John Kouraklis

Remy, thanks for the explanation and for sharing your knowledge 👍. I admit that even if I had gone all the way down to retrieve the enumerators I would never have thought to Invoke them.

I use 10.3.3 and the first instance of TKey in System.Generics.Collections is this:

------> This is line 748
  (*$HPPEMIT END OPENNAMESPACE*)
  (*$HPPEMIT END '  template<typename TKey, typename TValue>'*)
  (*$HPPEMIT END '  inline __fastcall TPair__2<TKey, TValue>::TPair__2(const TKey AKey, const TValue AValue) :'*)
  (*$HPPEMIT END '                                            Key(AKey), Value(AValue)'*)
  (*$HPPEMIT END '  {}'*)
  (*$HPPEMIT END CLOSENAMESPACE*)
  [HPPGEN(HPPGenAttribute.mkNonPackage)]
  TPair<TKey,TValue> = record
    Key: TKey;
    Value: TValue;
    constructor Create(const AKey: TKey; const AValue: TValue);
  end;

  // Hash table using linear probing
  TDictionary<TKey,TValue> = class(TEnumerable<TPair<TKey,TValue>>)
  private type
    TItem = record
      HashCode: Integer;
      Key: TKey;
      Value: TValue;
    end;
    TItemArray = array of TItem;

@Remy Lebeau Wow....Amazing and complicated stuff. So I really need to drill down to the enumerator to get hold of the pairs.

Thanks a lot for this!!!

You mentioned that it might be unreliable to do this with generics. Do you think the app may crash for more complex dictionaries?

22 minutes ago, Remy Lebeau said:

Quote

In the code above, I replaced TKey with string because I couldn't find the declaration of TKey.

Because it doesn't exist.  For a dictionary, TKey and TValue are Generic parameters of the TDictionary class.  They are not standalone concrete types, like you are thinking of.

And out of curiosity, how does the compiler recognise TKey then? It must be from the HPPEMIT directive, right?

The whole code is part of a serialiser, so the dictionary type is unknown to the RTTI code.

In the code above, I replaced TKey with string because I couldn't find the declaration of TKey.

Ok, now the more important problem as stated in the beginning. In this code, genDict throws an exception although propValue is correct

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Generics.Collections,
  System.Rtti;

type
  TObjDic = TObjectDictionary<string, string>;

  TMClass = class
  private
    fMC: TObjDic;
  public
    constructor Create;
    destructor Destroy; override;
    
    property MC: TObjDic read fMC write fMC;
  end;

constructor TMClass.Create;
begin
  inherited;
  fMC:=TObjDic.create;
end;

destructor TMClass.Destroy;
begin
  fMC.Free;
  inherited;
end;

var
  mc: TMClass;
  ctx: TRttiContext;
  rType: TRttiType;
  rProp: TRttiProperty;
  propValue: TValue;
  genDict: TObjectDictionary<string, TValue>;

begin
  mc:=TMClass.Create;
  rType := ctx.GetType(mc.ClassInfo);
  rProp:=rType.GetProperty('MC');
  // In this code, this may seem redundant but I use this code is part of
  // bigger codebase
  propValue:=rProp.GetValue(mc);
  genDict:=nil;
  genDict:=propvalue.AsObject as TObjectDictionary<string, TValue>;
  if Assigned(genDict) then
  begin
    for var str in genDict.Keys do
    begin
      // For demo
      var f:=str;
    end;
    genDict.Free;
  end;
  mc.Free;
end.

I found out that TKey in my code is declared (for unexplained reasons) in Data.DBXCommon with is irrelevant. Maybe that is the cause of the AVs I get.

But now I don't seem to be able to declare TKey as data type although I include System.Generics.Collections. How do I declare it in a unit? It is originally declared using $HPPEMIT (Generics.Collections, line 750)

Hi Remy,

I tried that (.AsType....) before as well; I run to the same problem of using TKey which is an abstract class although I can see in the debugger that the object points to the content of the dictionary.]

Hi,

I've got a class and it has a property TDictionary<..,..>.

I want to use RTTI to access the key and value of the dictionary.

I am able to get the property but I can't figure out how to access the key and values.

I use this approach:

var
 genericDictionary: TDictionary<TKey, TValue>;
 propValue: TValue;
 ...
   propvalue.ExtractRawDataNoCopy(@genericDictionary);
   ---> Here I can see in the debugger that genericDictionary has the items and the correct count
   

Then, I get AV when I try to iterate the Keys because TKey is an abstract class.

Anyone can help?

Thanks

Hi,

I am going to use FusionAuth for authentication.

Quick Question: before I write my own client, does anyone have a library and happy to share?

Thanks

Amazing!

Do you use any libraries on FMX for the GUI? Looks very responsive

@ErikB

Hi Erik,

just saw your reply. I will have a look at the link; thanks.

Yes; I remember. It was a pleasure meeting you.

Regards

John

I researched a lot this because I wanted to include ads in my desktop app as well.

The bottom line is that all the content publishers support only mobile apps. I have seen the link you give before but I am unclear as to whether it works. I doubt TBH.

Google ads does not allow desktop apps indeed and they ban your account even if you "fake" a website withing a browser component.

I have a app on my desktop (TuneIn) that shows ads from google. In earlier versions, they were using Taboola but now they moved to Google Ads. When I was reaching out people from the ad networks, they all told me that the app is using a few google accounts and cycles them so detection is avoided. They also said that eventually google will figure it.

If you download the app, you can click and drag and select all the components in the window; pretty much what you do in a web page. This makes me think that the app is written with some sort of web framework and is mocking a website and thus the ads show normally.

One of those people I talked to said that in general revenue from ads in desktop apps is extremely low which in practice makes it a worthless choice unless you have 4-5 million downloads. He suggested to consider other forms of licensing, like freemium, etc.

1 hour ago, Lars Fosdal said:

Friends don't make friends use Synchronize.

Friends also give the option to friends to use or not Synchronize 🙂

Hi all,

diving into the world of microservices in Delphi.

Here we go: www.kouraklis.com/2020/01/microservices-in-delphi-part-1/

Thanks

Hi,

I had icons assigned to one of my projects and now all of the sudden delphi doesn't use them. Instead, when the FMX app runs I see the generic icon from windows.

When I go to App Options, my icons appear there. Then, I click on Default, the icons change in the Options dialog but again not used when I execute the app I get the generic icon again.

I've checked the .dprog file and deleted the entries with icons and reassigned them in the IDE.

Sadly I can't seem to be able to assign icons to the app.

Hi again,

anyone might have a fresh piece of advice to share since I posted it?

Thanks

@Kas Ob. Yeah...there must be something seriously wrong.

I tried the app you sent but it says that win store repair is disabled because win store frequent changes

I then downloaded an updated win store repair wizard I found online and it is asking me to login to my email account. But when I try to add an email account the popup window shuts down.

So the whole installation is damaged. I will not avoid a clean install.

The only thing I am bored of is the installation of all delphi packages

Gkrrr....10.4 is far, right 🙂

Neither sfc nor dism fixed anything although they said they completed successfully.

wsreset sadly fails. I've tried many times before.

It says "You'll need a new app to open this ms-window-store link"

That's why I believe I need a fresh installation

@Kas Ob. I think I tried DISM before but I get some errors saying that the manifest files are not correct.

I will try sfc

Thanks

Just now, Sherlock said:

Why don't you just recover from the backup you made before this experiment?

Well, the experiment was 1 year ago and I recently concluded that this must be the reason windows eat CPU load....

Sadly, no backups are avail.

By any chance, does anyone know how to restore windows store?

I had this idea to get rid of all the unnecessary apps that come with windows and I removed them and windows store from Win 10 via PowerShell.

Now, Windows consumes 100% CPU and I can see that processes like wsappx and the like get stuck so I assume that totally removing windows store is not a good idea at all.

I tried to reinstall it via PowerShell, Creator Disk to fix Windows Installation and other methods but no luck at all.

Before I do a clean installation maybe someone has a tip on this?

Thanks 

I have the impression that you can get the tokens from paylane. Other APIs have an endpoint.

Maybe you can ask them

@TomDevOps Have a look at the parts about tokens in this guide: https://epayments-api.developer-ingenico.com/c2sapi/v1/en_US/index.html?paymentPlatform=ALL

Maybe it helps

Is this a VCL app or FMX?

Where does the code appear? In the proj file? if so, it does not really remove the form from being auto created. You just don't use the feature in the IDE

Try creating the form using the default way: frmMain:=TfrmMain.Create.... and then assign it to the Application as the MainForm

I always had problems debugging in Android. I only remember a handful of times it was successful.

Try to make the device available via adb outside the IDE rather than relying on the IDE to connect. Maybe it will work

Professor Lee is an amazing academic simply because he proves the difference between academia and practice. We need both sides though.

Out of curiosity, does the comment in SQLite site implies that they do not use threads internally in the database?