limelect

OK to sum it . I do not understand the IDE. I recompiled and reinstaled the component and now it shows on the list. Even it was on the pallet it did not show. Not my fault. As for my first problem the @Mahdi Safsafi solution helped a lot. Thanks

Sorry for the bother but it mite be me Thanks for any help

I hop i do not bother someone but this buffels me https://github.com/digao-dalpiaz/Dam this is not on the list although it is on the pallet And if this is the case may be some other components too. procedure GetAllClass; // var Coreide: THandle; Delphicoreide: THandle; LGlobalPackagesPtr: Pointer; LDesignPackages: TDesignPackages; LIDEDesignPackage: TIDEDesignPackage; LRegModule: TRegModule; LRegClass: TRegClass; LIDEDesignPackageCount: Integer; LRegModuleCount: Integer; LIndex: Integer; I: Integer; J: Integer; PackageServices: IOTAPackageServices; PackageCounter: Integer; s: TStringList; begin s := TStringList.Create; // Result.Clear; PackageServices := BorlandIDEServices as IOTAPackageServices; Assert(Assigned(PackageServices)); { --- Move me outside --- } // adapt 260 suffix according to your Delphi version. Coreide := GetModuleHandle('coreide250.bpl'); Delphicoreide := GetModuleHandle('delphicoreide250.bpl'); LGlobalPackagesPtr := GetProcAddress(Coreide, '@Pakmgr@Packages'); DesignPackagesGetPackages := GetProcAddress(Coreide, '@Pakmgr@TDesignPackages@GetPackages$qqri'); IDEDesignPackageGetCount := GetProcAddress(Delphicoreide, '@Pascpppakmgr@TIDEDesignPackage@GetCount$qqrv'); IDEDesignPackageGetModules := GetProcAddress(Delphicoreide, '@Pascpppakmgr@TIDEDesignPackage@GetModules$qqri'); RegModuleGetCount := GetProcAddress(Coreide, '@Pakmgr@TRegModule@GetCount$qqrv'); RegModuleGetClasses := GetProcAddress(Coreide, '@Pakmgr@TRegModule@GetClasses$qqri'); Assert(Assigned(LGlobalPackagesPtr), 'LGlobalPackagesPtr not assigned'); Assert(Assigned(DesignPackagesGetPackages), 'DesignPackagesGetPackages not assigned'); Assert(Assigned(IDEDesignPackageGetCount), 'IDEDesignPackageGetCount not assigned'); Assert(Assigned(IDEDesignPackageGetModules), 'IDEDesignPackageGetModules not assigned'); Assert(Assigned(RegModuleGetCount), 'RegModuleGetCount not assigned'); Assert(Assigned(RegModuleGetClasses), 'RegModuleGetClasses not assigned'); { --- End Move outside --- } if Assigned(LGlobalPackagesPtr) then begin for PackageCounter := 0 to PackageServices.PackageCount - 1 do begin if PackageServices.GetComponentCount(PackageCounter) > 0 then begin LDesignPackages := TObject(PPointer(LGlobalPackagesPtr)^); LIDEDesignPackage := DesignPackagesGetPackages(LDesignPackages, PackageCounter); LIDEDesignPackageCount := IDEDesignPackageGetCount(LIDEDesignPackage); LIndex := 0; // Compeginonent Index. for I := 0 to LIDEDesignPackageCount - 1 do begin LRegModule := IDEDesignPackageGetModules(LIDEDesignPackage, I); LRegModuleCount := RegModuleGetCount(LRegModule); for J := 0 to LRegModuleCount - 1 do begin // if LIndex = ComponentIndex then begin LRegClass := RegModuleGetClasses(LRegModule, J); s.Add(TClass(PPointer(PByte(LRegClass) + 4)^).ClassName); // exit; end; Inc(LIndex); end; end; end; end; end; s.SaveToFile('c:\tst.txt'); s.Free; end; can some one install and help ? just add above to my test package and in Initilize just call GetAllClass;

Thanks

@Mahdi Safsafi Just for general knowledge why there is a difference between the getting of the component from the toolbar and from the package. Since every component is going from a search through the bpl again and again which is time-consuming. I guess I can leave most of the initialization outside of GetClass2 but still a lot of iterations. So again why the difference? in nil In the package the class is different?

Thank i will try yours again

I have made a very simple DEMO reading from the component bar (it does not have to show) In the end, it saves components to a txt file. Very simple. See how many components are NIL !!!!! DockingForm (2).zip And that is my problem The same problem with Tool Pallet although there is a discrepancy between the two

I am preparing a very simple test

First I am using D10.2.3. All "Normal components are read" But try to install the above component and am i wrong? Further more try to do if xx<>nil then qqqqq.... else <<<< catch here and see I did catch by InstalledComponentName := PackageServices.ComponentNames[PackageCounter, ComponentCounter]; and lastly I xx := GetClass(InstalledComponentName); where xx: TPersistentClass; The class name is not the problem

@Mahdi Safsafi Well, not good news. I have used your suggestion it does not work in my case. Well, let me explain. I am using this guy component. https://github.com/digao-dalpiaz/Dam It worked great and I have no complaint BUT it represents a section of components that reading them from the IDE get nil for classes. They seem to register OK and show on the pallet and are usable. So that is the problem. in your case, I used TPersistentClass(LClass); like that. Maybe this is the problem.? Since I have to use TPersistentClass as I am taking an old program and making it an EXPERT. So the question is if TPersistentClass is the problem as I am using GetClass or your Lclass. Any idea? Maybe I can tackle my problem differently. at the end I use this RegisterClasses(MyArray); where MyArray is TPersistentClass. This is why the above Hold my question something fishy Ok I return to my basic question 1. Reading from component toolbar NO DAM 2. Reading from tool pallet YES DAM in this case still DAM shows nil !!! DAM can be used from both Crazy IDE ????

I have an expert with form TForm1 = class(TDockableForm) I drag the form to the left and pin it. Now I have a tab of my expert shown on the left. When I close the project the tab disappear even saving the desktop does not help. Do I need to add something on my software? Using D10.2.3

@DanielIt took a while to investigate. I downloaded the demo Docking form It has all as per your suggestion. However When I dock the form it works. While the IDE is open it works. Changing a project it works. BUT closing Delphi d10.2.3 and reopening it did not save the position (it wasn't docked any more) and I had to redock. Saving the desktop did not help. Is it suppose to be like that? Any suggestion? DockingForm.zip Well docking to the right mite work. To the left NO. Docking to the left and reopening Delphi it docks to the right. Funny Delphi IDE it docks to the right this is why I thought it dose not work. I had to dock twice. dock close dock. Now it works on the left too. Very unreliable.

@Uwe Raabe It mite work thanks xx:TPersistentClass; xx:=GetClass(PackageServices.ComponentNames[PackageCounter, ComponentCounter]);

@Uwe Raabe You are correct but information of components are in package > PackageServices PackageServices := BorlandIDEServices as IOTAPackageServices; Unless there is another way to get the component >TPersistentClass; in the package

@Bill Meyer Nice idea. I guess you made the dll in D6 and used it with D2006. Great.

@Fr0sT.Brutal You never used someone else source? You got a binary dfm in it a component you do not have but is a derivative of memo. You want to rename it. Easy. Just use the binary as text rename the component and then in pas you rename it too. Easy now you can compile the form. Otherwise no compilation. P.S leave out properties that you cannot use.

@Fr0sT.Brutal This is a BPL taken from D10.2.3 which has a lot of forms inside Translate to PAS and use it.

@Fr0sT.Brutal I am using my program a lot. 1. if you have a DFM in binary I can see it in text. Important. 2. Now for its use. In my case. 3. I can make a PAS file of a DFM. 4. If I have a form and it has a component that is not installed then I move the component to private copy the object on the dfm and create the component. If it does not have bmp it is easy. Obviously the above can be done with text editor except #1. 5. Furthermore you can see the form and have an impression of how it looks. 6. All the above is true if you are trying to use some source you did not make. 7. In my case I mention only a small use. 8. If #1 is used I can save as text the dfm 9. Have you seen what inside a BPL,DLL.EXE? I can

@mitzi I just found that your program loads only d10.4 bpl . well in my case I load any bpl and if it has something to show as you can see in the picture. Sorry. No more debug

On D7 I used ComDrv32.pas (see ComDrv16.pas for Delphi 1.0) | | COM Port Driver for Delphi 2.0 | | Written by Marco Cocco | Copyright (c) 1996-97 by Marco Cocco. All rights reseved. | Copyright (c) 1996-97 by d3k The Artisan Of Ware. All rights reseved. | | Please send comments to d3k@mdnet.it | URL: http://www.mdlive.com/d3k/

@mitziJust downloaded your tool for curiosity Loaded a binary dfm, not text so I got gibberish. plz fix it. In my case, i get it right as binary>text Furthermore, check your properties they are wrong. More how come you bring more properties that exist.? Using the default? Bit Button did not show on the form finally nice layout

This is my own for more than 20 years Nowadays including fmx Never publish sorry

I am using Cport +-------------------------------------------------+ | ComPort Library version 4.10 | | for Delphi 5, 6, 7, 2005, 2006, 2007, 2010, XE | | and C++ Builder 3, 4, 5, 6 | | | | by Dejan Crnila 1998-2002 | | maintained by Lars Dybdahl and Paul Doland | | maintained by Brian Gochnauer Nov 2010 | +-------------------------------------------------+ On D10.2.3 https://sourceforge.net/projects/comport/

Ok

Yes But using a second demo "Update! Uwe Raabe did a refurbished version that eliminates Indy " OK, i will use the first one.