From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,25e3b7231b106883
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news4.google.com!feeder.news-service.com!news.k-dsl.de!motzarella.org!feeder.motzarella.org!news.motzarella.org!octagram.motzarella.org!not-for-mail
From: Ivan Levashew <octagram@bluebottle.com>
Newsgroups: comp.lang.ada
Subject: Re: Ada and Windows COM
Date: Thu, 16 Apr 2009 18:24:06 +0700
Organization: A noiseless patient Spider
Message-ID: <gs74he$sak$1@octagram.motzarella.org>
References: <XtudnfXgz-hAMHjUnZ2dnUVZ8hidnZ2d@posted.plusnet>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: news.eternal-september.org
 U2FsdGVkX1/d9PXzsWIfmRtSAUN+cc5MwQhwwC1rdQWf4U75FOJl/nhozWeSd1kGOujalN1lUOZMIYJSRgDsG8Rg3mneTc73pQ4HHV1zskz7IlIidjxjfzJimWUwLlt6KSLd3xW6zeHo06dw9nJ9Kg==
X-Complaints-To: Please send complaints to abuse@motzarella.org with full
 headers
NNTP-Posting-Date: Thu, 16 Apr 2009 11:24:30 +0000 (UTC)
In-Reply-To: <XtudnfXgz-hAMHjUnZ2dnUVZ8hidnZ2d@posted.plusnet>
X-Auth-Sender: U2FsdGVkX19zS0uY0/P4tbocNhMp+P2IStmKpnu5M17DRBT7NLtprg==
X-Image-URL: http://img220.echo.cx/img220/9664/111408397042725603791c71pb.gif
Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAFVBMVEUAAAOZlpMaJz3/9fYs
 //8FP1E2M3Qbef+MAAACEklEQVQ4jZ2TTW7bMBCFJwO465B2uqZfS+4NnyBA7LXMerSPEPL+R+gb
 KqmTIAWKDiCCmo9v/kSJqGaVJCp/TLk3kbypSPmdX2QD2YikTUrAe6CqiWuCL/LR3Cfu/AJgbP4K
 Phtjfz77vwAfOv4XkNPXVSkqwZvmfTZMAriHMOGG1EOt7xw1Rli8hTIkV4DDTIFn6qqYZJ5JFLhT
 yIVnHAoIrlYTNGKf7yVMUS4yvYITdC8EMaZwHyX4t4ERnCv2uN+HGMFH4x2bHuDEahD1IUR18LAn
 mC3Jjork3Wny28Gp+h1pMhR08VV9s55hc/J08qrg90RHP15uXag4c1pYMFvVbHmBB3bFtVGBpVwe
 z+Hno7UyABU8yYEt1l5q+P54Mj8sM5dsVdRqu4RDCLvWGn2lj8pMJdC2BMdtCFG0L8rptiz6Y3s8
 Hh1wjehXby133vRneo5hBSgvu+rfozdodnDYui6g7645m1jpVXELFUtnz6yo9MUKfo1YhzXF6WSc
 bu09Ax7rcGSsgNKezKggaDNGLH8icz80EsmlcwxOPMcBBJZd0VnWzOnSGbYUMEXNnqO00gvB4p1T
 gG7TUMydxjljz9xxAAyFzUvpfiEZLHD91iwNhVmvfXybYaksDioVlDh4JdqbwVYFyQ2Unq8EeQDr
 GDfcrS/ZUF8VJAtWUW8pPyFXr8oDMun4r0pHgiVMafoNgUqRDtakwdAAAAAASUVORK5CYII=
X-Face: 
 *tpB#/X3&Zh\?<4l;hAgY:m6lt6L]v#Udy\Xwy{@<'qP=9clA}kEbbSV1]B0a^O{|ibsNV~|zu.Da}V4*se@ns!8*B<eK?KfRfjoP{lDO~!|~uo''sBqw_ID,3gY-/^GU!d)!I:9$^pxr!9_k#nhG|@G!P+Cs}Y]sxV"Ml?djY;x3plosMQkAUjWamnq?Ycu"*$$G*<"5MuDMP)61H6W[D@7W>t$9l-]nbD}o*7ml9J2)u:"!6P%_-`y9,'.L.Psp),njUf!=F5;kx%~\,'D$%{"
Cancel-Lock: sha1:nw3lBHHVObO7W/BSZiRlW+aFtDg=
User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X; ru;
 rv:1.8.1.21) Gecko/20090302 Thunderbird/2.0.0.21 ThunderBrowse/3.2.3
 Mnenhy/0.7.6.666
Xref: g2news2.google.com comp.lang.ada:5462
Date: 2009-04-16T18:24:06+07:00
List-Id: <comp.lang.ada>

Tim Rowe wrote:

> Is there any (free!) way of using MS Windows COM from Ada? I've looked 
> at GNATCOM, but that won't build with the current version of gnat. The 
> community says that they're working on it, but there's no news on when 
> it will be fixed so I could do with an alternative.
> 
> TIA,
> 
> Tim Rowe

There should be done two fixes: first, remove "-gnatg" from Makefiles.
Second, search and replace "GNATCOM.Interface" to "GNATCOM.COM_Interface"

IIRC it was enough.



There is one problem, however: Win32API is indeniably harded to use in 
Ada compared to using WinAPI in Delphi, the same goes to GNATCOM. I have 
impression that the one who designed these binding generator have 
primarily used C++ (not counting Ada) and didn't have experience working 
with Delphi. As a consequence, GNATCOM is as hard to use as it is to use 
COM in C++.

At least, GNATCOM exists.

-- 
If you want to get to the top, you have to start at the bottom