🚀 go-pugleaf

"Oren Halvani" <Spam@Me-Please.com> wrote in message
news:4195658a@newsgroups.borland.com...

> OK..what do you think of this usage:

I think you need to cache your InternetGetConnectedStatePtr pointer so that
you are not retreiving it every time you want to call it.  Try this instead:


    #include <WININET.h>

    typedef BOOL WINAPI (*LPFN_IGCS)(DWORD*, DWORD);

    HMODULE wininet_hand = NULL;
    LPFN_IGCS InternetGetConnectedStatePtr = NULL;

    __fastcall TfrmMainUnit::TfrmMainUnit(TComponent* Owner)
        : TForm(Owner)
    {
        wininet_hand = LoadLibrary("WININET.DLL");
    }

    __fastcall TfrmMainUnit::~TfrmMainUnit()
    {
        if( wininet_hand )
            FreeLibrary(wininet_hand);
    }

    void __fastcall TfrmMainUnit::Button1Click(TObject *Sender)
    {
        if( wininet_hand )
        {
            if( InternetGetConnectedStatePtr == NULL )
                InternetGetConnectedStatePtr = (LPFN_IGCS)
GetProcAddress(wininet_hand, "InternetGetConnectedState");

            if( InternetGetConnectedStatePtr )
            {
                //...
            }
            else ShowMessage("InternetGetConnectedState function not
found");
        }
        else ShowMessage("Unable to load WinInet.DLL");
    }


Even better, retreive the function pointer in the constructor instead:

    #include <WININET.h>

    typedef BOOL WINAPI (*LPFN_IGCS)(DWORD*, DWORD);

    HMODULE wininet_hand = NULL;
    LPFN_IGCS InternetGetConnectedStatePtr = NULL;

    __fastcall TfrmMainUnit::TfrmMainUnit(TComponent* Owner)
        : TForm(Owner)
    {
        wininet_hand = LoadLibrary("WININET.DLL");
        if( wininet_hand )
        {
            InternetGetConnectedStatePtr = (LPFN_IGCS)
GetProcAddress(wininet_hand, "InternetGetConnectedState");
            if( InternetGetConnectedStatePtr == NULL )
                ShowMessage("InternetGetConnectedState function not found");
            //...
        }
        else ShowMessage("Unable to load WinInet.DLL");
    }

    __fastcall TfrmMainUnit::~TfrmMainUnit()
    {
        if( wininet_hand )
            FreeLibrary(wininet_hand);
    }

    void __fastcall TfrmMainUnit::Button1Click(TObject *Sender)
    {
        if( InternetGetConnectedStatePtr )
        {
            //...
        }
    }


Gambit