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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9e973a0d4fa6b157,start
X-Google-Attributes: gid103376,public
From: "SEV, AV Guest 2" <avguest2@barco.com>
Subject: Troubles with MessageBeep | Beep...
Date: 1999/07/15
Message-ID: <2461CF0DA7DBD211B07300805F921CBC01D8B97E@kuumex03.barco.com>#1/1
X-Deja-AN: 501248372
Sender: "SEV, AV Guest 2" <avguest2@barco.com>
Newsgroups: comp.lang.ada
Date: 1999-07-15T00:00:00+00:00
List-Id: <comp.lang.ada>

I want to use API functions|procedures|types|constants
in my future ADA-projects,

I added User32.lib (aplib) to my project files

---------------------------------------------
with win32;          --general
use  win32; 
with win32.winuser;  --Messagebeep
use  win32.winuser;
with win32.winbase;  --Beep
use  win32.winbase;
    
package sound is
  procedure bell;
end sound;

package body sound is
  procedure bell is
  begin    
    Beep(1000, 1000);
    MessageBeep(MB_ICONASTERISK);
  end bell;
end sound;

with sound;use sound;

procedure main is
begin
  bell;
end main;
--------------------------------------------  
The result I get from the compiler is as follows:
(ObjectAda for Windows V7.1.105 (proffesional edition)
(Copyright (c) 1997, Aonix. All Rights Reserved.)
--------------------Target: Win32 (Intel) Debug--------------------
sound.ada: Error: line 15 col 5 LRM:5.1(4), Procedure call, entry call,
or code statement expected, Continuing 

sound.ada: Error: line 16 col 5 LRM:5.1(4), Procedure call, entry call,
or code statement expected, Continuing 

Front end of sound.ada failed with 2 errors. (0 Warnings)
Tool execution failed.
------------------------------------------------------------------------
---------
If I replace Bell(1000,1000); by Beep(1000);  The compiler tells me :
sound.ada: Error: line 15 col 5 LRM:6.4.1(3), Parameter mismatch in
call, missing actual for param dwDuration.

Isn't that a contradiction....

Does anyone know a solution to this problem...

Thnx,Bart.