Embed Resources

[sky_khan]

Greetings,

I've wrote my first Lazarus component
It allows you to embed any resource file as form resource. It's content is modifiable on runtime. If you save modified content, they will be stored in application data folder as user-specific or global according to individual item's scope property. So it's items can also be used for user modifiable configuration.

Let me know if you encounter a bug.
Feel free to include it in lazarus-ccr or even lazarus itself.

Note: There are some unfinished work yet, as it does not display all kind of resources but just text and image so far but I wanted that it is tested.

[Handoko]

Thank you for sharing your work.

I opened and tried to compile khnembedrsc.lpk and I got an error. See the image. What is the different between khnembedrsc and khnembedsrc_dsn?

I am using Ubuntu Mate 16.10 and Lazarus 1.6.4 FPC 3.0.2 x86_64-linux-gtk 2.

[jc99]

Thank you for sharing your work.

I opened and tried to compile khnembedrsc.lpk and I got an error. See the image. What is the different between khnembedrsc and khnembedsrc_dsn?

I am using Ubuntu Mate 16.10 and Lazarus 1.6.4 FPC 3.0.2 x86_64-linux-gtk 2.

That's a Trick I also use to store number, and indices in the (T)Object field.
but to circumvent this error I do it like this:

Code: [Select]

sl.AddObject(aText,TObject(Ptrint(aInteger)));That way the (32-bit)integer is converted to Machine-Size-Integer(64-bit) in your case, and then stored as a pointer.

the given example should look like:

Code: [Select]

Procedure AddExt(const ext:string: rtype: TEmbedResourceType);
begin
  RscExtMap.AddObject(ext,TObject(PtrInt(Ord(rtype))));
end;


On the reverse way you also use PtrInt as an intermediate:

Code: [Select]

aInteger := PtrInt(sl.Objects[aIndex]);

[sky_khan]

Yeah, It is an 64 bit incompatibility that I didnt notice because I use 32 bit compiler and didnt even try compile this for 64 bit. Please change it as TObject(PtrInt(Ord(rtype)))

[Handoko]

@jc99

Thank you for the explanation.

@SkyKhan

It's working now. So far no problem found.

[sky_khan]

Nice Thanks for testing.

Edit: Attachment in first post is updated to include that bugfix.

[sky_khan]

What is the different between khnembedrsc and khnembedsrc_dsn?

Sorry, I have not paid attention this question.
As you know, there is 2 packages. khnembedsrc.lpk is runtime package which includes TEmbedResources component.
khnembedsrc_dsn.lpk is designtime package and it registers my (extended) collection property editor which gives you the chance of adding resources/contents to TEmbedResources at designtime in Lazarus.