🚀 go-pugleaf

"anton" <acvoosten@zeelandnet.nl> wrote in message
news:43d759c1$1@newsgroups.borland.com...

> I discovered a piece of vbscript to turn on and off an
> adslmodem. Has someone an idea to translate this script to bcb?

A literal translation would be as follows:

    void __fastcall download(const AnsiString &DataToSend)
    {
        Variant objXML = Variant::CreateObject("Microsoft.XMLHTTP");
        objXML.OleProcedure("Open", "POST", "http://10.0.0.138/cgi/dial/",
false);
        objXML.OleProcedure("setRequestHeader", "Content-Type",
"application/x-www-form-urlencoded");
        objXML.OleProcedure("Send", DataToSend);
    }

With that said, the above requires MSXML to be installed.  I would suggest
using an actual HTTP component instead, such as the one from Indy
(http://indyproject.org), ICS (http://www.overbyte.be), or Synapse
(http://www.ararat.cz/synapse).  Then you won't have any external
dependancies.

For example, in Indy:

    void __fastcall Download(const AnsiString &DataToSend)
    {
        TIdHTTP *HTTP = new TIdHTTP(NULL);
        try
        {
            TStringStream *Data = new TStringStream(Data);
            try
            {
                HTTP->Request->ContentType =
"application/x-www-form-urlencoded";
                HTTP->Post("http://10.0.0.138/cgi/dial/", Data);
            }
            __finally
            {
                delete Data;
            }
        }
        __finally
        {
            delete HTTP;
        }
    }


Gambit