How to use win32APIs in IWB

[vmars316]

Greetings,
Below is a simple console hotBasic program to GetLocalTime via winAPI.
I am wondering how would I write the same pgm under IWBasic ?
Also, I have another pgm where I need to SetClipboardViewer , as in:
DECLARE FUNCTION SetClipboardViewer LIB "USER32" _
       (hWndNewViewerVm AS LONG) AS LONG
DECLARE FUNCTION ChangeClipboardChain LIB "USER32" _
       (hWndNewViewerVm AS LONG, hWndNextViewerVm AS LONG) AS LONG
DECLARE FUNCTION SendMessageA LIB "USER32" _
       (hwnd AS LONG, wMsg AS LONG, wParam AS LONG, lParam AS LONG) AS LONG

In general, i need to know,
"How to use win32APIs in IWB+".

I have been reading the IWB Help files.
Your IWB DOCs are really great!
Thanks...Vernon

$APPTYPE CONSOLE
Deflng ReturnFromGetLocalTime
Defstr d$
'
TYPE DateConstruct
wYear as WORD
wMonth as WORD
wDayOfWeek as WORD
wDay as WORD
wHour as WORD
wMinute as WORD
wSecond as WORD
wMilliseconds as WORD
END TYPE
'
DIM dt as DateConstruct
'
DECLARE FUNCTION GetLocalTime LIB "KERNEL32" _
      (dt AS DateConstruct) AS LONG

ReturnFromGetLocalTime = GetLocalTime(dt)

dd$ = str$(dt.wDay): IF LEN(dd$) = 1 Then dd$ = ("0"+dd$)
mm$ = (str$(dt.wMonth): IF LEN(mm$) = 1 Then mm$ = ("0"+mm$)
d$ = mm$+dd$+str$(dt.wYear))

PRINT(d$)

pause
END

[Larry McCaughn]

The following takes your posted code and puts it in a format that IWB will accept.

Code: [Select]

declare import, GetLocalTime(DateConstruct x)
string d$,dd$,mm$
 
TYPE DateConstruct
 word wYear
 word wMonth
 word wDayOfWeek
 word wDay
 word wHour
 word wMinute
 word wSecond
 word wMilliseconds
END TYPE
DateConstruct dt
GetLocalTime(dt)
dd$ = ltrim$(str$(dt.wDay)): IF LEN(dd$) = 1 Then dd$ = "0"+dd$
mm$ = ltrim$(str$(dt.wMonth)): IF LEN(mm$) = 1 Then mm$ = "0"+mm$
d$ = mm$+dd$+ltrim$(str$(dt.wYear))
PRINT d$
PRINT
PRINT "Press any key to continue"
waitcon
END
However the following shows how to get the same result using the IWB DATE$ function.

Code: [Select]

PRINT DATE$("MMddyyyy")
PRINT
PRINT "Press any key to continue"
waitcon
END
If you are going to continue with questions about IWB I suggest you join the IWB forums and ask your questions there and use the forum search feature.  If you prefer to stay here then use the search feature for IBasic Pro and EBasic which uses the same basic syntax.
 

[vmars316]

Thanks:
When I try to compile the above code, I get the following error:
* Compiling...
GetLocalTime.iwb
nasm: fatal: unable to open input file `C:\Users\Public\Documents\IWBasic\projects\GetLocalTime.a'
Error(s) in assembling C:\Users\Public\Documents\IWBasic\projects\GetLocalTime.a

1) Pls, why is it looking for "GetLocalTime.a"?
2) <<to continue with questions about IWB I suggest you join the IWB forums>>
Sure glad to: However, if you mean Forum:
 http://www.ionicwind.com/forums/index.php?board=20.0  Is this the Forum that you mean ?
I have been trying for weeks, to get Registered on that Forum, to no avail.  Can you enable me to Register Successfully  When I Register it comes back with
"Thank you for registering. The admin must approve your registration before you may begin to use your account, you will receive an email shortly advising you of the admins decision."

But I never get the Admin Approval.  Can you fix this ?

Thanks...Vernon

[Larry McCaughn]

What are you trying to compile it with? what version?
what OS?

[vmars316]

Larry,
Just to be clear, could you please give me the URL for both. If you mean here:
 " http://www.ionicwind.com/forums/index.php?board=20.0 ", did you miss the part about me trying for weeks to get registered/access to that Forum. And begging for your help ?

Anyways, I have the downloadTrial version:
iwbasic development environment 2.09
compiler version: 2.095

Thanks...Vernon

[Larry McCaughn]

post the iwb file you are trying to compile so I can try it.
 

[Larry McCaughn]

did you miss the part about me trying for weeks to get registered/access to that Forum. And begging for your help ?

No I didn't miss it.  Like I said multiple times.  Your IP was listed on multiple sites as a spammer so I rejected your registration.
You posted on Aurel site and he emailed me. That same day I sent emails saying you could reregister.
That was nearly 2 weeks ago.
I couldn't control when you chose to re-register.
And it wasn't our fault that you showed up on those list.
If we didn't screen registrations against those list then the forums would be full of porn and every other kind of spam.
I just saw where you validated your re-registration on the IW forum.
So, now you have access to both forums.