OpenEuphoria

Re[2]: Help testing transparentBlt function

• Posted by "Thomas Parslow (PatRat)" <patrat at rat-software.com> Apr 04, 2001
• 504 views

> Hi Thomas,
> try this instead ...
>
> -----------------------
> include dll.e
> constant MSIMG32 = open_dll("msimg32.dll")
> if MSIMG32 = 0 then
>         puts(1,"Unable to load the msimg32.dll :(\nPress any key to
>         continue...")
>         ? gets(0)
>         abort(1)
> end if
>
> constant funcTransparentBlt =
> define_c_func(MSIMG32,"TransparentBlt",{C_POINTER,C_INT,C_INT,C_INT,C_INT,C_
> POINTER,C_INT,C_ INT,C_INT,C_INT,C_UINT},C_ULONG)
> if funcTransparentBlt < 0 then
>         puts(1,"Unable to use TransparentBlt function :(\nPress any key to
> continue...")
>         ? gets(0)
>         abort(1)
> end if

> puts(1,"Everything is fine, TransparentBlt can be used :)\nPress any key to
> continue...")
> ? gets(0)
> ---------------------
>
> You don't need win32lib if you test the return of define_c_func() correctly.
> A zero return is valid for this function, because it returns -1 if an error
> is detected.
>
> -----------
> cheers,
> Derek Parnell

Thanks :) I guess that's what I get for thinking "I'll just stay up a
little longer, get the test out then I'll have answers in the morning"
;)

Thomas Parslow (PatRat) ICQ #:26359483
Rat Software
http://www.rat-software.com/
Please leave quoted text in place when replying