🚀 go-pugleaf

"Eddie Shipman" <mrbaseball34@No_Spam_gmail.com> wrote in message
news:MPG.1eba898ad1826f2f9897dd@forums.borland.com...

> I have a friend that needs this code converted from Delphi to BCPP6.

    #include "msxml2.h"
    #include "IdBaseComponent.hpp"
    #include "IdCoder.hpp"
    #include "IdCoder3to4.hpp"
    #include "IdCoderMIME.hpp"
    #include <utilcls.h>

    void __fastcall AddBinaryFile(TStream *AStream, IXMLDOMNode *oNode)
    {
        TComInterface<IXMLDOMCDATASection> oCDataSection;
        TComInterface<IXMLDOMNode> oChild;

        TIdEncoderMIME *meMIMEEncoder = new TIdEncoderMIME(NULL);
        try
        {

oXMLDoc->createCDATASection(WideString(meMIMEEncoder->Encode(AStream,
AStream->Size)), &oCDataSection);
        }
        __finally
        {
            delete meMIMEEncoder;
        }

        oNode->appendChild(oCDataSection, &oChild);
    }

> Does Indy come installed with BCPP6?

Indy 8 does.  That is a very old version, though.  You would have to
completely remove it from the computer first in order to upgrade to Indy 9
or higher.


Gambit