Jump to content


  • Content Count

  • Joined

  • Last visited

Posts posted by DelphiRio

  1. 16 hours ago, limelect said:

    It seems to be a copy of "TInject-whatsapp-delphi-master" which is FREE sources

    So why pay money?

    Hi limelect,


    It is not TInject-Whatsapp-delphi. TInject-whatsapp-delphi exposes Whatsapp API via unpack webpack. Once whatsapp deploys new build, TInject-whatsapp-delphi must be updated to update webpackID, otherwise, it won't work.


    My solution is simulating user activities to send message (similar to selenium) and read websocket data (decode whatsapp protocol) to receive income message information. So, It works if whatsapp deploys new build :classic_smile:

  2. On 10/2/2020 at 10:54 PM, DelphiRio said:

    Hi Miné,


    I will send you the demo in a few days.




    On 10/13/2020 at 9:58 PM, ManuelMiclea said:

    Hi, please send me the demo version as well as cost of source code.


    On 10/22/2020 at 11:04 AM, MACCOB2004 said:

    Hi, please send me too the demo version and the cost of source code: I'm really interested 🙂

    I have sent the messages, please check your inbox!

  3. On 6/15/2020 at 11:18 PM, Yaron said:

    It looks like you're hooking into the browser version of whatsapp, which browser interface are you using (explorer, chrome?)


    And since you're not using the API, wouldn't your code stop working as soon as whatsapp changes something in their browser implementation?

    That's right. I'm using CEF4Delphi. The server may stop working if you restart the app. But update for new whatsapp web is easy!

  4. Hi,


    I have been developing a server for automating Whatsapp tasks (sending message/ receiving message). Here is the feature list:

    1. Sending message to number in contact list or not
    2. Tracking sent message status (sent/delivered/viewed/error)
    3. Can send both text or image/video/document messages
    4. Inbound message notification
    5. No template required
    6. No sending fee

    Here is the demo video: https://1drv.ms/v/s!AttbCTDGUJ-LgY07PJaTqzDZ88fU3Q?e=jyMVX1


    If anyone would like to buy the source code, please send me a message. I will send the demo application!



    • Like 3

  5. 12 minutes ago, Stefan Glienke said:

    Make procedure FastMM4.CheckBlocksOnShutdown(ACheckForLeakedBlocks: Boolean); accessible in the interface section and simply call it.


    Called FastMM4.CheckBlocksOnShutdown(True) and FastMM4.CheckBlocksOnShutdown(False), nothing happens. My app is well tested and no memory leak!

  6. Hi,


    I'm facing a problem that my app uses a lot of RAM. The main data structure is a tree, it uses TList<T> to hold children (called node). When the app runs, it creates about 3600 nodes. But the memory is 400MB. The InstanceSize of node is about 200 bytes only, the data is not much, about 1KB each node, so it consumes about 4MB. I tested with default memory manager, FastMM4, same result.


    My question is: is there any tool to show how many object instances in the app (count + memory size)?


    Thank you


  7. @jbWishmaster Thank you very much.

    @Anders Melander I opened GradSampler, changed the code to:


    // ...
    FOutline := RoundRect(FloatRect(20, 20, 200, 200), 3);
    // ...
    procedure TFrmGradientSampler.PaintBox32PaintBuffer(Sender: TObject);
        Renderer.Filler := nil;
        Renderer.Color := clRed32;
        Renderer.PolyPolygonFS(BuildPolyPolyline(PolyPolygon(FOutline), True, 1, jsRound, esRound));

    The border is not RED and larger than 1px (see the screenshot - zoom in version). How to get it draw same to  (I mean the border quality) : https://jsfiddle.net/zjLsuavy/


    Thank you very much