

limelect
-
Content Count
924 -
Joined
-
Last visited
-
Days Won
1
Posts posted by limelect
-
-
Another one on an expert
I have this part of an expert program list of component names
var
PackageServices: IOTAPackageServices;
PackageCounter: Integer;
ComponentCounter: Integer;
InstalledComponentName: string;
PackageServices := BorlandIDEServices as IOTAPackageServices;
for PackageCounter := 0 to PackageServices.PackageCount - 1 do
begin
for ComponentCounter := 0 to
PackageServices.GetComponentCount(PackageCounter) - 1 do
begin
InstalledComponentName := PackageServices.ComponentNames[PackageCounter,
ComponentCounter]; <<<< here i get component name as a stringOn another program, that I want to merge the two.
type
TClassArray = array[1..{179} 169] of TPersistentClass;ClassArray: TClassArray = (
TBitmap, TGraphic, TOutlineNode, TGraphicsObject,
Now to my question Is it possible to get from the above the component as
TPersistentClass; which mean
var
x:TPersistentClass;
x:=PackageServices.ComponentNames[PackageCounter,
ComponentCounter]; <<<<< ???????obviously one is string one is TPersistentClass;
How to? Or am I wrong with my idea?
Which mean getting all components as TPersistentClass, and not as strings
-
-
@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
-
-
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
-
-
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/
-
-
Yes
But using a second demo
"Update! Uwe Raabe did a refurbished version that eliminates Indy "
OK, i will use the first one.
-
-
@lars this is the first thing I did. GOOGLE GOOGLE GOOGLE!
To the point, I do not have the Delphi version needed.
What I have is a Professional ver.
Never needed above it.
-
@uwe Raabe
I tried to add IppeerCommon as the error suggested and it does not exist.
-
Yes but the problem is not the URL!! this just to put something.
The problem is much before that FClient := TRESTClient.Create(nil);
-
@Lars Fosdal just copied O365WebHook.pas
and
procedure TestExampleToATeamsChannel;
var
Teams: TWebhook;
begin
Teams := TWebhook.Create('https://limelect.com');
try
Teams.PostMessage(TSimpleText.Create('Hello from Delphi!'));
finally
Teams.Free;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
TestExampleToATeamsChannel;
end;Using this post
https://larsfosdal.blog/2020/10/16/post-a-message-to-teams-from-delphi-using-webhooks/
Maybe i suppose to add IppeerCommon which i do not have
-
@Lars Fosdal I used your blog https://larsfosdal.blog/2020/10/16/post-a-message-to-teams-from-delphi-using-webhooks/
to see what is all about
I used D10.2.3.
I got his error on create
FClient := TRESTClient.Create(nil);
P.S i used the updated section
How to delete a post?
-
@Tntman I got this https://www.whois.com/whois/tieus.com and send an email will see thanks
I thought the guy is still active
-
-
I have been using this guy software with much improvement.
Yes since 1997. I wonder who is he?
this is from his software
Email did not help
{*****************************************************************}
{* *}
{* Dancer's ImageVue v1.0.5 *}
{* A Bitmap property editor by African Dancer *}
{* *}
{* ImageVue is based on Delphi's demo program ImageViewer and *}
{* Dr. Bob's image property editor. *}
{* *}
{* Features: *}
{* * Preview images before loading *}
{* * Auto conversion from icon and metafiles to bitmap *}
{* * 85 Buitl-in button images *}
{* * Bookmarks *}
{* * ImageEdit 1.0.5 *}
{* *}
{* African Dancer: dancer@tieus.com *}
{* Dec. 23, 1997, Vancouver *}
{* *}
{*****************************************************************}
-
-
@Lars Fosdal This is a test
</> [my test]
Nice now I understand
So if I put source I </> before the source right?
-
@Uwe Raabe The only thing that I dislike is that the Formater options are all over.
when you triggered DelForExp it opens a form asking what you want to do
much simpler and more user friendly. Or am I old fashion?
P.S I also have it as a stand-alone
Create PersistentClass from component name
in RTL and Delphi Object Pascal
Posted
@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