Jump to content

limelect

Members
  • Content Count

    924
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by limelect


  1. 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 string

     

    On 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

     

     

     

     

     

     

     

     

     


  2. @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.


  3. @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


  4. 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/


  5. @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

     


  6. 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/

     


  7. @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


  8. 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                                     *}
    {*                                                               *}
    {*****************************************************************}
     

×