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!news2.google.com!news1.google.com!newshub.stanford.edu!newsfeed.berkeley.edu!ucberkeley!newsfeed.arcor.de!newsspool1.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>
 <1iye22k0o4obx$.naanhqgipkpf.dlg@40tude.net>
 <1176477928.918685.283010@b75g2000hsg.googlegroups.com>
Date: Fri, 13 Apr 2007 18:55:54 +0200
Message-ID: <ug8k3kafcidq$.1mr7jrlbrus59$.dlg@40tude.net>
NNTP-Posting-Date: 13 Apr 2007 18:55:02 CEST
NNTP-Posting-Host: ebae785b.newsspool1.arcor-online.net
X-Trace: 
 DXC=\D7MbH\9C5S5TOT9_N5i<Vic==]BZ:af^4Fo<]lROoRQFl8W>\BH3YRZTPRh_I2OlZDNcfSJ;bb[UIRnRBaCd<M^5FJ2g=S^o=^W?U<2[B<]UW
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:14986
Date: 2007-04-13T18:55:02+02:00
List-Id: <comp.lang.ada>

On 13 Apr 2007 08:25:29 -0700, vienapl@hotmail.com wrote:

> I posted this once already, but after several hours it seems to not
> show up, so I'm posting it again.
> 
> Thank you for the parameter corrections, I edited them, but the
> problem persists.
> 
> I'm quite sure I'm not using the API in a wrong manner, here is a C++
> example of how it should be used: http://pastebin.ca/437367 and here a
> VB6 one: http://pastebin.ca/437369 .

Well, C++ uses the class instead of plain functions.

It is possible to make bindings to C++ classes. GNAT has pragmas for that.

> This thing is getting me really confused. Would some debug information
> help?

Yes. You can try to determine where exactly it crashes by inspecting the
stack. You can also check the stack frames to ensure that the call
convention is respected.

But first, is it CTHSetLocation which makes troubles or other procedures as
well? If you commented that call out, would the rest crash?

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