API-timer...

API-timer...

[SEV, AV Guest 2]

I would like to use an API-timer in my future projects... the following
source compiles but the executable doesn't do what I want...
Has anyone experience with this...

------------------------------------------------------------------------
---------------
with win32, win32.winbase, win32.winuser;
with Ada.Unchecked_Conversion;
with Text_IO;
with System;

package Test is
  Result		  : Win32.Uint;
  Val		  : String (1..80);
  Len		  : Integer;
  procedure Tik (a : integer);
  function Convert is new Ada.Unchecked_Conversion
       (Win32.LPVoid,Win32.WinUser.TIMERPROC);
  procedure Drop;
end Test;

package body Test is

  procedure Tik (a: integer) is
    Result : Win32.Bool;
  begin       
    Result:=Win32.Winbase.beep(win32.ulong(a),500);
  end Tik;

  procedure Drop is
  begin
    Result:=Win32.Winuser.SetTimer(null,0,1000,Convert(Tik'address)); 
    Text_IO.Get_Line(S.Val,S.Len);
  end Drop;

end Test;

with Test;
procedure Main is
begin
  Test.Drop;  
end Main;
------------------------------------------------------------------------
--------------

Re: API-timer...

[Martin C. Carlisle]

In article <2461CF0DA7DBD211B07300805F921CBC0203768D@kuumex03.barco.com>,
SEV, AV Guest 2 <avguest2@barco.com> wrote:
>I would like to use an API-timer in my future projects... the following
>source compiles but the executable doesn't do what I want...
>Has anyone experience with this...

I've not used that particular call before, but I'm pretty sure you'll
have to make sure your procedure is using the pragma Convention(Stdcall,...)

Using an unchecked conversion prevents the compiler from telling you things
like this!  Get rid of that and use procedure'access instead.  (Probably 
should be a function).

I use a timer w/o a callback (using messages) in AdaGIDE.  You can get the
source from http://wuarchive.wustl.edu/languages/ada/swtools/adagide

--Martin

-- 
Martin C. Carlisle, Asst Prof of Computer Science, US Air Force Academy
carlislem@acm.org, http://www.usafa.af.mil/dfcs/bios/carlisle.html
DISCLAIMER:  This content in no way reflects the opinions, standards or 
policy of the US Air Force Academy or the United States Government.