Code: Alles auswählen
;-------Proceduren-Linux-Windows-----
;----OhmStudios----2009----------------
;---Zur-freien-Benutzung----------------
;-------PureBasic4.40beta5--------------
;-----Screen-ohne-subsystem(opengl oder gtk)---
CompilerSelect #PB_Compiler_OS
;--fuer_Linux_User-
;----wichtig-bei-DruckTaste()-in-Linux-
;-------#sdlk_?????-------
CompilerCase #PB_OS_Linux
Global Event.SDL_Event
Procedure.b ScreenInit(Breite.l , Hoehe.l , Tiefe.b , Name.s)
If InitSprite()=0 Or SDL_Init_(#SDL_INIT_VIDEO)<0 Or OpenScreen(Breite.l,Hoehe.l,Tiefe.b,Name.s)=0
ProcedureReturn 0
Else
ProcedureReturn 1
EndIf
EndProcedure
CompilerCase #PB_OS_Windows_XP Or #PB_OS_Windows_7 Or #PB_OS_Windows_Vista
;--fuer_windows_Nutzer-
Procedure.b ScreenInit(Breite.l , Hoehe.l , Tiefe.b , Name.$)
If InitSprite()=0 Or InitKeyboard()=0 Or InitMouse()=0 Or OpenScreen(Breite.l,Hoehe.l,Tiefe.b,Name.$)=0
ProcedureReturn 0
Else
ProcedureReturn 1
EndIf
EndProcedure
CompilerEndSelect
(zur Info anstelle Procedure steht Proceduredll )
oder wie füge ich die datei in die user\lib ein, damit die nutzung so funktioniert wie mit den Proceduren???
Code: Alles auswählen
Tester.l=OpenLibrary(#PB_Any,"NamederDll.so")
CallFunction(Tester,"ScreenInit",640,480,16,"Name")
;----Flipbuffers()--
;.........
;.........
;---Closescreen()
CloseLibrary(Tester)
End
Danke im Vorraus