Fragen zu PROFAN-Helfern und Tools

| Suchen
| Zurück zur Übersicht

Autor | Thema: Rückgabewerte bei Dlls
Jörg Sellmeyer
| Datum:04.04.02 16:19 (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 |