🚀 go-pugleaf

"Boguslaw Fries" <boguslaw.fries@polivision.it> wrote:
>
> [...] I dont know exactly which is the appropriate newsgroup
> for it. Sorry ;)

There is a specific group (so I'm told) for asking that exact
question :-0. However, I can tell you this group is specific
to win32 API calls and the borland.public.cppbuilder.language.cpp
group is specific to language issues which your question most
definately is.

> I declare the class:
>class Myclass
>{
>private:
>    int iVal;
>    float  fVal;
>public:
>    Myclass( int i ) { iVal = i;}
>    Myclass( float f ) { fVal = f; }
>}
>Now in my program:
>Myclass M( 5 );
>int X;
>
>X = M; // X should obtain value 5

That is not the case (that X == 5) and i doubt that that will
even compile. The line:

    Myclass M( 5 );

creates an instance of Myclass named 'M', passing 5 to it's
constructor (and does nothing else with it). The value of 'M'
is in reality a 32bit pointer that must be correctly dereferenced
to access class members or methods.

>How to implement extra things to do it?

Here's a sample class that I use to get version info from my
application. All you have to do is #include the header and add
the lines (note that it support multiple languages as well):

    TVersionInformation Info;
    if( Info.Available )
      {
          Caption = Info.ProductName;
          Version->Caption = "Version: " + Info.FileVersion;
          ......
      }

//-------------------------------------------------------------
#ifndef VerInfoH
#define VerInfoH
//-------------------------------------------------------------
struct TVersionInformation
{
    private:
        char *Buffer;
    public:
        bool Available;
        AnsiString CompanyName;
        AnsiString FileDescription;
        AnsiString FileVersion;
        AnsiString InternalName;
        AnsiString LegalCopyright;
        AnsiString LegalTrademarks;
        AnsiString OriginalFilename;
        AnsiString ProductName;
        AnsiString ProductVersion;
        AnsiString Comments;
    TVersionInformation()
    {
        Buffer           = NULL;
        Available        = false;
        CompanyName      = "";
        FileDescription  = "";
        FileVersion      = "";
        InternalName     = "";
        LegalCopyright   = "";
        LegalTrademarks  = "";
        OriginalFilename = "";
        ProductName      = "";
        ProductVersion   = "";
        Comments         = "";

        DWORD Handle, Size = ::GetFileVersionInfoSize( Application->ExeName.c_str(), &Handle );
        if( Size )
          {
              UINT Length;
              LPVOID lpBuffer;
              unsigned short *LangCharSet;
              Buffer = new char[ Size ];
              LPVOID pBlock = (LPVOID) Buffer;
              if( ::GetFileVersionInfo( Application->ExeName.c_str(), Handle, Size, pBlock ) )
                {
                    if( ::VerQueryValue( pBlock, "\\VarFileInfo\\Translation", (void **)&LangCharSet, &Length ) )
                      {
                          AnsiString Prefix;
                          Prefix.sprintf("\\StringFileInfo\\%04x%04x\\", LangCharSet[0], LangCharSet[1] );
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "CompanyName" ).c_str(),      &lpBuffer, &Length ) ) CompanyName      = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "FileDescription" ).c_str(),  &lpBuffer, &Length ) ) FileDescription  = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "FileVersion" ).c_str(),      &lpBuffer, &Length ) ) FileVersion      = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "InternalName" ).c_str(),     &lpBuffer, &Length ) ) InternalName     = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "LegalCopyright" ).c_str(),   &lpBuffer, &Length ) ) LegalCopyright   = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "LegalTrademarks" ).c_str(),  &lpBuffer, &Length ) ) LegalTrademarks  = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "OriginalFilename" ).c_str(), &lpBuffer, &Length ) ) OriginalFilename = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "ProductName" ).c_str(),      &lpBuffer, &Length ) ) ProductName      = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "ProductVersion" ).c_str(),   &lpBuffer, &Length ) ) ProductVersion   = (char *) lpBuffer;
                          if( ::VerQueryValue( pBlock, AnsiString( Prefix + "Comments" ).c_str(),         &lpBuffer, &Length ) ) Comments         = (char *) lpBuffer;
                          Available = true;
                      }
                }
          }
    }
    ~TVersionInformation()
    {
        if( Buffer ) delete [] Buffer;
    }
};
//-------------------------------------------------------------
#endif

>In fact I could use Variant class, but intentionally I do not.

Smart man.

~ JD