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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,529481ac2d77d9f6
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!proxad.net!proxad.net!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Translating a VB dll header to Ada
Newsgroups: comp.lang.ada
User-Agent: 40tude_Dialog/2.0.15.1
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
Reply-To: mailbox@dmitry-kazakov.de
Organization: cbb software GmbH
References: <1176320910.543255.74730@b75g2000hsg.googlegroups.com>
 <fdwh3w7tsg51$.cg9je6e42t2n.dlg@40tude.net>
 <1176387466.525266.257670@n59g2000hsh.googlegroups.com>
Date: Thu, 12 Apr 2007 19:16:17 +0200
Message-ID: <1iye22k0o4obx$.naanhqgipkpf.dlg@40tude.net>
NNTP-Posting-Date: 12 Apr 2007 19:15:28 CEST
NNTP-Posting-Host: 118fc7d7.newsspool2.arcor-online.net
X-Trace: 
 DXC=o8e0oielV?6TQL:hoD@>T?A9EHlD;3Yc24Fo<]lROoR18kF<OcfhCO;QN;<Kc7eOA2[6LHn;2LCV>[<mhadbfdU;5R\EM5F_k6?L@@cdO=W2B8
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:14950
Date: 2007-04-12T19:15:28+02:00
List-Id: <comp.lang.ada>

On 12 Apr 2007 07:17:46 -0700, vienapl@hotmail.com wrote:

> Although the header I'm trying to translate is in VB6, I guess that
> the dll itself wasn't written with VB, but C++ instead. I actually
> also have availible the C header for it (http://pastebin.ca/436394),

In that header the functions you are using are all inlined. What is in the
DLL then?

For 'void *' I would use System.Address rather than Interfaces.C.long, but
on a 32-bit machine they must be same.

procedure CTHDeleteTextObject should have helper parameter.

procedure CTHSetFont should have height as Interfaces.C.int.

Otherwise it looks OK.

Are you sure that you are using the thingy properly?

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de