🚀 go-pugleaf

<M_R> wrote in message news:8284d11gouq3m4pmis3ocahjqu6fbui7v2@4ax.com...

> I looked around the internet and found some sources for VC, e.g. in
>
> http://www.codeguru.com/Cpp/I-N/ieprogram/comments.php/c4397/?thread=1191
>
> but unfortunately I failed in compiling this with BCB.

That is because that code is not very BCB-friendly.

> #import "c:\programme\gemeinsame dateien\system\ado\msado15.dll"
> no_namespace raw_interfaces_only
> #import "c:\windows\system32\cdosys.dll" no_namespace
> raw_interfaces_only

#import is discouraged in BCB.  Use the TLIBIMP.EXE utility to import those
libraries instead.

> #include "c:\language\cppbuilder.5\include\cdosysstr.h"
> #include "c:\language\cppbuilder.5\include\cdosyserr.h"

You should not be specifying full paths for those files.  BCB includes those
files in its own Includes folder, so you can do this instead:

    #include <cdosysstr.h>
    #include <cdosyserr.h>

> and continued with

Your translation is not correct.  Use this instead:

    #include <cdosysstr.h>
    #include <cdosyserr.h>
    #include <cdoex.h>
    #include <utilcls.h>

    CLSID CLSID_Configuration = {0xCD000002, 0x8B95, 0x11D1, {0x82, 0xDB,
0x00, 0xC0, 0x4F, 0xB1, 0x62, 0x5D}};
    CLSID CLSID_Message = {0xCD000001, 0x8B95, 0x11D1, {0x82, 0xDB, 0x00,
0xC0, 0x4F, 0xB1, 0x62, 0x5D}};

    bool SaveWholePage(const AnsiString &PageURL, const AnsiString
&FileName)
    {
        bool ret = false;

        CoInitialize(NULL);

        TComInterface<IMessage> Msg;
        TComInterface<IConfiguration> Config;
        TComInterface<_Stream> Stream;

        if( SUCCEEDED(CoCreateInstance(CLSID_Message, NULL,
CLSCTX_INPROC_SERVER, IID_IMessage, (void**)&Msg)) )
        {
            if( SUCCEEDED(CoCreateInstance(CLSID_Configuration, NULL,
CLSCTX_INPROC_SERVER, IID_IConfiguration, (void**)&Config)) )
            {
                Msg->put_Configuration(Config);

                if( SUCCEEDED(Msg->CreateMHTMLBody(WideString(PageURL),
cdoSuppressNone, WideString("domain\\username"), WideString("password"))))
                {
                    if( SUCCEEDED(Msg->GetStream(&Stream)) )
                        ret =
SUCCEEDED(Stream->SaveToFile(WideString(FileName), adSaveCreateOverWrite));
                }
            }
        }

        CoUninitialize();
        return ret;
    }


> Because I got an error saying Message/Configuration is unknown
> I explicitely defined them before the function as
>
> typedef IMessage Message;
> typedef IConfiguration Configuration;

That is not the correct thing to do.


Gambit