🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
news:4415d5ca$1@newsgroups.borland.com...

> You would need to have the application pass a function pointer to the DLL.
> Then the DLL can store that pointer and call it when needed.

For example:

    --- MyDll.h ---

    #ifndef MyDllH
    #define MyDllH

    typedef void __stdcall (*MYCALLBACKTYPE)(void);

    #ifdef _BUILDING_DLL_
    #define MYAPI __declspec(dllexport)
    #else
    #define MYAPI __declspec(dllimport)
    #endif

    #ifdef __cplusplus
    extern "C" {
    #endif

    MYAPI void __stdcall SetExecuteCallback(MYCALLBACKTYPE);

    #ifdef __cplusplus
    }
    #endif

    #endif


    --- MyDll.cpp ---

    #define _BUILDING_DLL_
    #include "MyDll.h"

    class TMyServer
    {
    private:
        TIdTCPServer *FServer;

        TMyServer();
        TMyServer(const TMyServer&) {}
        TMyServer& operator=(const TMyServer&) {}

        void __fastcall ServerExecute(TIdPeerThread *AThread);

    public:
        MYCALLBACKTYPE ExecuteCallback;

        ~TMyServer();
        static TMyServer& Instance();
    };

    TMyServer::TMyServer()
    {
        ExecuteCallback = NULL;
        FServer = new TIdTCPServer(NULL);
        FServer->OnExecute = ServerExecute;
        //...
    }

    TMyServer::~TMyServer()
    {
        delete FServer;
    }

    TMyServer& TMyServer::Instance()
    {
        static TMyServer inst;
        return inst;
    }

    void __fastcall TMyServer::ServerExecute(TIdPeerThread *AThread)
    {
        if( ExecuteCallback )
            ExecuteCallback();
        else
            Sleep(50);
    }

    void __stdcall SetExecuteCallback(MYCALLBACKTYPE Callback)
    {
        TMyServer.Instance().ExecuteCallback = AppCallback;
    }


Gambit