🚀 go-pugleaf

That's a lot of helpful imformation.

Thank you very much

Anton

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> schreef in bericht 
news:43d7cd6e@newsgroups.borland.com...
>
> "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
>
>