Fragen zu PROFAN-Helfern und Tools
  Suchen
 Zurück zur Übersicht
 AutorThema: Rückgabewerte bei Dlls
Jörg Sellmeyer
Datum:04.04.02 16:19 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo,
Ist jemandem schon mal aufgefallen, daß Profan die Rückgabewerte
von Funktionen unterschiedlich behandelt. Je nachdem ob sie aus
Externalaufrufen oder DEFinierten Funktionen stammen, gibt es
Longint oder Integerwerte. Dabei scheint nur der Interpreter
das Problem zu haben. Im Compilat funktioniert es einwandfrei.

Hier ist ein Beispiel mit der Graphamp.dll von Andreas Miethe.
(wer's testen will braucht die neueste Version auf seiner HP
da auf der ProfanCD die Funktion P_IsBitmap noch nicht drin
ist.)
Ich hab's auch schon mit der NViewLib.dll getestet. Die gibt
bei external Integer und bei Def nur Longint aus. Auch im
Compilat.
Wenn man's weiß ist es eigentlich egal, aber mich wundert,
daß Profan die Aufrufe so unterschiedlich behandelt.
Gruß
Jörg

Cls
$H Graphamp.ph

Def P_IsBitmap(1) ! "Graphamp.dll","P_IsBitmap"
Def P_FreeBitmap(1) ! "Graphamp.dll","P_FreeBitmap"

Declare hGraphImg&,F$,X&,Y&,Graphamp&
F$=$Winpath + "\\Setup.bmp"

Graphamp&=UseDLL("Graphamp.dll")
~Init_Dll(1)
hGraphImg&=~P_LoadImage(%hwnd,Addr(F$),1,Addr(X&),Addr(Y&),3)
DeleteObject hGraphImg&
Declare bool1%,bool2%,bool3&,bool4&,s$
bool1%=P_IsBitmap(1)
bool2%=~P_IsBitmap(1)
bool3&=P_IsBitmap(1)
bool4&=~P_IsBitmap(1)
s$=bool1%,bool2%,bool3&,bool4&
$D "",bool1%,bool2%,bool3&,bool4&
If bool2%
	P_FreeBitmap(1)
EndIf
~Exit_dll()
print s$
FreeDLL Graphamp&
WaitInput




 Zurück zur Übersicht
 

 Ein kostenloses WebMart Forum
WebMart Homepage Tools kostenlos
Shortwin - denn Glück ist kein Zufall!