 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
 Verfasst am: 01.07.2007, 10:20 Titel: FreeBasic Header Files für ProSpeed.dll |
 |
|
Ich hab mich endlich herangewagt, für FreeBasic meine erste Headerfile zu schreiben 
Beispiele übersetze ich als nächstes
Achtung
Dieses Headerdatei wurde noch net hinreichend getestet und is daher evtl. noch nich die endgültige Version!
Der englische Freebasic-Channel inklusive Cha0s suchen grad verzweifelt an einem Fehler, der hierdurch wohl aufgedeckt wurde...
| Code: | '' FreeBasic Header Files for Frank Abbing's ProSpeed.dll
'' get it from http://www.frabbing.de
'' there are also other nice things
''
'' translated from XProfan to FreeBasic by PMedia in 2007
'' Questions? Mail me: pmedia@gmx.net
' Added for easier handling by PMedia
'NameSpace ProSpeed
#inclib "prospeed"
#Include Once "windows.bi"
Type SpriteInfos
XPosition As Integer
YPosition As Integer
XDestination As Integer
YDestination As Integer
MoveDone As Integer
XSpeed As Integer
YSpeed As Integer
CurrentAni As Integer
End Type
Type BackgroundInfos
ScrollMode As Integer
WindowWidth As Integer
WindowHeight As Integer
XOffset As Integer
YOffset As Integer
XScroll As Integer
YScroll As Integer
End Type
Type PathPoint
X As Integer
Y As Integer
End Type
Type SpriteSetup
SpritePlane As Integer
HDC As Integer
Buffer1 As Integer
Buffer2 As Integer
Xoffset As Integer
Yoffset As Integer
SpriteWidth As Integer
SpriteHeight As Integer
Anisteps As Integer
AniStart As Integer
AniSpeed As Integer
StartX As Integer
StartY As Integer
SpeedX As Integer
SpeedY As Integer
End Type
Type InfoData
StructureSize As Integer
Bitmapwidth As Integer
Bitmapheight As Integer
Planes As Short
Depth As Short
Compression As Integer
RawSize As Integer
Xpels As Integer
Ypels As Integer
ClrUsed As Integer
ClrImportant As Integer
End Type
Type TileSetup
SrcHDC As Integer
Yoffset As Integer
CX as Integer
CY As Integer
WX As Integer
WY As Integer
Map As Any Ptr
WMap As Integer
MX as Integer
MY As Integer
DestHDC As Integer
X As Integer
Y As Integer
CopyMode As Integer
Filter As Integer
End Type
Type Collision
SpriteHandle1 As Integer
SpriteHandle2 As Integer
End Type
'zstring
' simply translated
Declare Function CountBytes Pascal Alias "CountBytes" (Adress As Any Ptr, Offset As Integer, Count As Integer, Needle As Integer) As Integer
Declare Function CountWords Pascal Alias "CountWords" (Adress As Any Ptr, Offset As Integer, Count As Integer, Needle As Integer) As Integer
Declare Function CountLongs Pascal Alias "CountLongs" (Adress As Any Ptr, Offset As Integer, Count As Integer, Needle As Integer) As Integer
Declare Sub Version Pascal Alias "Version" ()
Declare Function ChangeDisplay Pascal Alias "ChangeDisplay" (XRes As Integer, YRes As Integer) As Integer
Declare Function CopyMemory_ Pascal Alias "CopyMemory" (Src As Any Ptr, Offset As Integer, Dst As Any Ptr, Offset As Integer, Length As Integer) As Integer
Declare Function CopyMemoryFromBack Pascal Alias "CopyMemoryFromBack" (Src As Any Ptr, Offset As Integer, Dst As Any Ptr, Offset As Integer, Length As Integer) As Integer
Declare Function ChangeBytesToWords Pascal Alias "ChangeBytesToWords" (Src As Any Ptr, Offset As Integer, Dst As Any Ptr, Offset As Integer, Length As Integer) As Integer
Declare Function ChangeWordsToLongs Pascal Alias "ChangeWordsToLongs" (Src As Any Ptr, Offset As Integer, Dst As Any Ptr, Offset As Integer, Length As Integer) As Integer
Declare Function ClearWith Pascal Alias "ClearWith" (Src As Any Ptr, Offset As Integer, Value As Integer, Count As Integer) As Integer
Declare Function JoystickX Pascal Alias "JoystickX" (JoyID As Integer) As Integer
Declare Function JoystickY Pascal Alias "JoystickY" (JoyID As Integer) As Integer
Declare Function JoystickButton Pascal Alias "JoystickButton" (JoyID As Integer) As Integer
Declare Function SetMouseXY Pascal Alias "SetMouseXY" (X As Integer, Y As Integer) As Integer
Declare Function SetMouseRect Pascal Alias "SetMouseRect" (X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function MouseButton Pascal Alias "MouseButton" As Integer
Declare Function SetBytes Pascal Alias "SetBytes" (Src As Integer, Offset As Integer, Instructions As any ptr) As Integer
Declare Function SetWords Pascal Alias "SetWords" (Src As Integer, Offset As Integer, Instructions As any ptr) As Integer
Declare Function SetLongs Pascal Alias "SetLongs" (Src As Integer, Offset As Integer, Instructions As any ptr) As Integer
Declare Function StartWatch Pascal Alias "StartWatch" As Integer
Declare Function WaitWatch Pascal Alias "WaitWatch" (MSecs As Integer) As Integer
Declare Function ReadWatch Pascal Alias "ReadWatch" As Integer
Declare Function LoadExtBmp Pascal Alias "LoadExtBmp" (Filename As any ptr, WindowHDC As Integer) As Integer
Declare Function FreeExtBmp Pascal Alias "FreeExtBmp" (Handle As Integer) As Integer
Declare Function CopyExtBmp Pascal Alias "CopyExtBmp" (DestHDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, SourceHDC As Integer, X3 As Integer, Y3 As Integer, CopyMode As Integer) As Integer
Declare Function GetBmpWidth Pascal Alias "GetBmpWidth" (HDC As Integer) As Integer
Declare Function GetBmpHeight Pascal Alias "GetBmpHeight" (HDC As Integer) As Integer
Declare Function VarToLong4 Pascal Alias "VarToLong4" (Src As Any Ptr, Offset As Integer, Val1 As Integer, Val2 As Integer, Val3 As Integer, Val4 As Integer) As Integer
Declare Function LongToAddrVar4 Pascal Alias "LongToAddrVar4" (Src As Any Ptr, Offset As Integer, Val1 As Any Ptr, Val2 As Any Ptr, Val3 As Any Ptr, Val4 As Any Ptr) As Integer
Declare Function InitSprite Pascal Alias "InitSprite" (PlaneHDC As Integer, DestHDC As Integer, Buffer1 As Integer, Buffer2 As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, SpriteCount As Integer, StartAni As Integer, AniSpeed As Integer, PosX As Integer, PosY As Integer, SpeedX As Integer, SpeedY As Integer) As Integer
Declare Function MoveSprite Pascal Alias "MoveSprite" (SpriteHandle As Integer, NewX As Integer, NewY As Integer) As Integer
Declare Function InitSpriteBackground Pascal Alias "InitSpriteBackground" (Mode As Integer, WindowWidth As Integer, WindowHeight As Integer, XO As Integer, YO As Integer, XR As Integer, YR As Integer) As Integer
Declare Function DeleteSprite Pascal Alias "DeleteSprite" (SpriteHandle As Integer) As Integer
Declare Function DeleteAllSprites Pascal Alias "DeleteAllSprites" As Integer
Declare Function CountSprites Pascal Alias "CountSprites" As Integer
Declare Function GetSpriteInfos Pascal Alias "GetSpriteInfos" (SpriteHandle As Integer, Array As Any Ptr) As Spriteinfos
Declare Function GetSpriteX Pascal Alias "GetSpriteX" (SpriteHandle As Integer) As Integer
Declare Function GetSpriteY Pascal Alias "GetSpriteY" (SpriteHandle As Integer) As Integer
Declare Function HasSpriteArrived Pascal Alias "HasSpriteArrived" (SpriteHandle As Integer) As Integer
Declare Function GetBackgroundInfos Pascal Alias "GetBackgroundInfos" (SpriteHandle As Backgroundinfos) As Integer
Declare Function SetSpriteAnim Pascal Alias "SetSpriteAnim" (SpriteHandle As Integer, X As Integer, Y As Integer, W As Integer, H As Integer, AniSprites As Integer, StartAni As Integer, AniSpeed As Integer) As Integer
Declare Function SetSpriteSpeed Pascal Alias "SetSpriteSpeed" (SpriteHandle As Integer, XSpeed As Integer, YSpeed As Integer) As Integer
Declare Function SetSpritePos Pascal Alias "SetSpritePos" (SpriteHandle As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function GetSpriteMoveX Pascal Alias "GetSpriteMoveX" (SpriteHandle As Integer) As Integer
Declare Function GetSpriteMoveY Pascal Alias "GetSpriteMoveY" (SpriteHandle As Integer) As Integer
Declare Function Collision Pascal Alias "Collision" (SpriteHandle1 As Integer, SpriteHandle2 As Integer, XBord As Integer, YBord As Integer) As Integer
Declare Function Collide Pascal Alias "Collide" (SpriteHandle1 As Integer, SpriteHandle2 As Integer) As Integer
Declare Function SetSpriteAnimMode Pascal Alias "SetSpriteAnimMode" (SpriteHandle As Integer, Mode As Integer) As Integer
Declare Function GetSpriteAnimModeStatus Pascal Alias "GetSpriteAnimModeStatus" (SpriteHandle As Integer) As Integer
Declare Function SpriteToHDC Pascal Alias "SpriteToHDC" (SpriteHandle As Integer) As Integer
Declare Function CollideMore Pascal Alias "CollideMore" (SpriteHandle As Integer, OtherSprites As Any Ptr, CountOfOtherSprites As Integer) As Integer
Declare Function MouseOverSprite Pascal Alias "MouserOverSprite" () As Integer
Declare Function CopySprite Pascal Alias "CopySprite" (SpriteHandle As Integer) As Integer
Declare Function SetSpriteFixMode Pascal Alias "SetSpriteFixMode" (SpriteHandle As Integer, FixMode As Integer) As Integer
Declare Function GetSpriteFixMode Pascal Alias "GetSpriteFixMode" (SpriteHandle As Integer) As Integer
Declare Function DeleteSpritesIfAnimReady Pascal Alias "DeleteSpritesIfAnimReady" As Integer
Declare Function DeleteAllXSprites Pascal Alias "DeleteAllXSprites" (XPosi As Integer) As Integer
Declare Function DeleteAllYSprites Pascal Alias "DeleteAllYSprites" (YPosi As Integer) As Integer
Declare Function CleanUp Pascal Alias "CleanUp" (Mark As Integer) As Integer
Declare Function CollideAll Pascal Alias "CollideAll" (SpriteHandle As Integer) As Integer
Declare Function MarkSprite Pascal Alias "MarkSprite" (SpriteHandle As Integer, Mark As Integer) As Integer
Declare Function GetSpriteMark Pascal Alias "GetSpriteMark" (SpriteHandle As Integer) As Integer
Declare Function DeleteSpritesMark Pascal Alias "DeleteSpriteMark" (SpriteHandle As Integer) As Integer
Declare Function VarToLong10 Pascal Alias "VarToLong10" (Src As Any Ptr, Offset As Integer, Val1 As Integer, Val2 As Integer, Val3 As Integer, Val4 As Integer, Val5 As Integer, Val6 As Integer, Val7 As Integer, Val8 As Integer, Val9 As Integer, Val10 As Integer) As Integer
Declare Function SetSpriteAnimMove Pascal Alias "SetSpriteAnimMove" (SpriteHandle As Integer, Rotation As Integer, X As Integer, Y as Integer) As Integer
Declare Function CreateExtBmp Pascal Alias "CreateExtBmp" (HDC As Integer, W As Integer, H As Integer) As Integer
Declare Function PsfFileName Pascal Alias "PsfFileName" (Filename As any ptr) As Integer
Declare Function BmpToPsf Pascal Alias "BmpToPsf" (Src As Any Ptr, Offset As Integer, Size As Integer, Dest As Any Ptr, Mode As Integer) As Integer
Declare Function GetPsfFileSize Pascal Alias "GetPsfFileSize" (Filename As any ptr) As Integer
Declare Function PsfToBmp Pascal Alias "PsfToBmp" (Dest As Any Ptr, Size As Integer, Src As Any Ptr, Offset As Integer) As Integer
Declare Function ReadFileFast Pascal Alias "ReadFileFast" (Filename As any ptr Ptr, Array As Any Ptr, Offset As Integer, Filesize As Integer) As Integer
Declare Function WriteFileFast Pascal Alias "WriteFileFast" (Filename As any ptr Ptr, Array As Any Ptr, Offset As Integer, Size As Integer) As Integer
Declare Function SpriteScrollMode Pascal Alias "SpriteScrollMode" (SpriteHandle As Integer, Mode As Integer) As Integer
Declare Function FindBytes Pascal Alias "FindBytes" (Array As Any Ptr, Offset As Integer, Count As Integer, Search As Any Ptr, LenOfSearch As Integer) As Integer
Declare Function InitExtFX Pascal Alias "InitExtFX" (HDC As Integer) As Integer
Declare Function FreeExtFX Pascal Alias "FreeExtFX" (FX As Integer) As Integer
Declare Function Darken Pascal Alias "Darken" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer, Steps As Integer) As Integer
Declare Function Lighten Pascal Alias "Lighten" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer, Steps As Integer) As Integer
Declare Function Blur Pascal Alias "Blur" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer) As Integer
Declare Function Rustle Pascal Alias "Rustle" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer) As Integer
Declare Function Grey Pascal Alias "Grey" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer) As Integer
Declare Function SemiTrans Pascal Alias "SemiTrans" (DestHDC As Integer, X As Integer, Y As Integer, FX1 As Integer, FX2 As Integer, Percent As Integer) As Integer
Declare Function Sharpen Pascal Alias "Sharpen" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer) As Integer
Declare Function BlackWhite Pascal Alias "BlackWhite" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer, Progress As Integer) As Integer
Declare Function CopyArray Pascal Alias "CopyArray" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer) As Integer
Declare Function ColorMove Pascal Alias "ColorMove" (DestHDC As Integer, X As Integer, Y As Integer, FX1 As Integer, FX2 As Integer, Percent As Integer) As Integer
Declare Function BreakOff Pascal Alias "BreakOff" As Integer
Declare Function BreakOn Pascal Alias "BreakOn" As Integer
Declare Function GetSystemKey Pascal Alias "GetSystemKey" As Integer
Declare Function Rotate180 Pascal Alias "Rotate180" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer) As Integer
Declare Function FlipX Pascal Alias "FlipX" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer) As Integer
Declare Function FlipY Pascal Alias "FlipY" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer) As Integer
Declare Function Water Pascal Alias "Water" (DestHDC As Integer, X As Integer, Y As Integer, FX As Integer, ID As Integer) As Integer
Declare Function SwapSpriteLayers Pascal Alias "SwapSpriteLayers" (SpriteHandle1 As Integer, SpriteHandle2 As Integer) As Integer
Declare Function GetSpriteLayer Pascal Alias "GetSpriteLayer" (SpriteHandle As Integer) As Integer
Declare Function SpriteMovingRect Pascal Alias "SpriteMovingRect" (SpriteHandle As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function JoystickZ Pascal Alias "JoystickZ" (JoyID As Integer) As Integer
Declare Function JoystickR Pascal Alias "JoystickR" (JoyID As Integer) As Integer
Declare Function JoystickU Pascal Alias "JoystickU" (JoyID As Integer) As Integer
Declare Function JoystickV Pascal Alias "JoystickV" (JoyID As Integer) As Integer
Declare Function FindJoystick Pascal Alias "FindJoystick" (JoyID As Integer) As Integer
Declare Function CountJoystickButtons Pascal Alias "CountJoystickButtons" (JoyID As Integer) As Integer
Declare Function SetBackAutoCollision Pascal Alias "SetBackAutoCollision" (SpriteHandle As Integer, MaskHDC As Integer, Flag As Integer, P1 As Integer, P2 As Integer, P3 As Integer, P4 As Integer, P5 As Integer, P6 As Integer, P7 As Integer, P8 As Integer) As Integer
Declare Function StopAllSprites Pascal Alias "StopAllSprites" (Mode As Integer) As Integer
Declare Function MoveSpriteWithTable Pascal Alias "MoveSpriteWithTable" (SpriteHandle As Integer, PathArray As Any Ptr, Coords As Integer, Xoffset As Integer, Yoffset As Integer, Start As Integer) As Integer
Declare Function Crypt Pascal Alias "Crypt" (Source As Any Ptr, Length As Integer, Password As any ptr Ptr, LenOfPassword As Integer) As Integer
Declare Function PixelToMemory Pascal Alias "PixelToMemory" (FX As Integer, CoordSpace As Any Ptr, Steps As Integer) As Integer
Declare Function ChangeLongSequence Pascal Alias "ChangeLongSequence" (Array As Integer, HowManyBytes As Integer) As Integer
Declare Function SizeExtBmp Pascal Alias "SizeExtBmp" (DestHDC As Integer, X1 As Integer ,Y1 As Integer, X2 As Integer, Y2 As Integer, SrcHDC As Integer, X3 As Integer, Y3 As Integer, X4 As Integer, Y4 As Integer, Copymode As Integer) As Integer
Declare Function GetSpritesFps Pascal Alias "GetSpritesFps" As Integer
Declare Function SetSpriteMovingMode Pascal Alias "SetSpriteMovingMode" (SpriteHandle As Integer, Mode As Integer) As Integer
Declare Function CountAllSprites Pascal Alias "CountAllSprites" As Integer
Declare Function DSoundInit Pascal Alias "DSoundInit" (HWnd As Integer) As Integer
Declare Function DSoundDeInit Pascal Alias "DSoundDeInit" As Integer
Declare Function DSoundLoad Pascal Alias "DSoundLoad" (Filename As any ptr Ptr) As Integer
Declare Function DSoundPlay Pascal Alias "DSoundPlay" (Buffer As Integer, Flag As Integer) As Integer
Declare Function DSoundStop Pascal Alias "DSoundStop" (Buffer As Integer) As Integer
Declare Function DSoundUnLoad Pascal Alias "DSoundUnLoad" (Buffer As Integer) As Integer
Declare Function DSoundGetNextBuffer Pascal Alias "DSoundGetNextBuffer" (Buffer As Integer) As Integer
Declare Function DSoundSetGlobalVolume Pascal Alias "DSoundSetGlobalVolume" (Volume As Integer) As Integer
Declare Function DSoundSetVolume Pascal Alias "DSoundSetVolume" (buffer as integer, volume as integer) as integer
Declare Function DSoundSetGlobalPan Pascal Alias "DSoundSetGlobalPan" (Pan As Integer) As Integer
Declare Function DSoundSetPan Pascal Alias "DSoundSetPan" (Buffer As Integer, Pan As Integer) As Integer
Declare Function DSoundGetInterfaces Pascal Alias "DSoundGetInterfaces" (DSBPrimary As Integer) As Integer
Declare Function AddWindowStyle Pascal Alias "AddWindowStyle" (Handle As Integer, Style As Integer, Mode As Integer) As Integer
Declare Function SubWindowStyle Pascal Alias "SubWindowStyle" (Handle As Integer, Style As Integer, Mode As Integer) As Integer
Declare Function CDDoor Pascal Alias "CDDoor" (State As Integer) As Integer
Declare Function Curve Pascal Alias "Curve" (HDC As HDC, SX As Integer, SY As Integer, CX As Integer, CY As Integer, EX As Integer, EY As Integer) As Integer
Declare Function AttachSprite Pascal Alias "AttachSprite" (SpriteHandle As Integer, SpriteHandleToFollow As Integer, Xoffset As Integer, Yoffser As Integer) As Integer
Declare Function GetSpriteMoveXY Pascal Alias "GetSpriteMoveXY" (SpriteHandle As Integer) As Integer
Declare Function GetMemHandle Pascal Alias "GetMemHandle" (Unkown As Integer) As Integer 'Warning, use is not recommend!!!
Declare Function SetSpriteCage Pascal Alias "SetSpriteCage" (SpriteHandle As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, N1 As Integer, N2 As Integer) As Integer
Declare Function GenerateChecksum Pascal Alias "GenerateChecksum" (Array As Any Ptr, Bytes As Integer, Start As Integer) As Integer
Declare Function CompareBytes Pascal Alias "CompareBytes" (Array1 As Any Ptr, Array2 As Any Ptr, Bytes As Integer, Tolerance As Integer) As Integer
Declare Function ChangeSpritePara Pascal Alias "ChangeSpritePara" (SpriteHandle As Integer, Offset As Integer, NewVal As Integer) As Integer
Declare Function SpriteThreadBrake Pascal Alias "SpriteThreadBrake" (ms as integer) as integer
Declare Function ReplaceTabs Pascal Alias "ReplaceTabs" (Source As Any Ptr, Dest As Any Ptr, Count As Integer, Spaces As Integer) As Integer
Declare Function CountFirstBytes Pascal Alias "CountFirstBytes" (Array As Any Ptr, Offset As Integer, Count As Integer, Search As Integer) As Integer
Declare Function LoadExtImage Pascal Alias "LoadExtImage" (Filename As any ptr Ptr) As Integer
Declare Function LoadExtMemory Pascal Alias "LoadExtMemory" (Array As Any Ptr, Size As Integer) As Integer
Declare Function LoadExtResource Pascal Alias "LoadExtResource" (HInstance As Integer, ID As Any Ptr) As Integer
Declare Function CountStrings Pascal Alias "CountStrings" (Array As Any Ptr, Offset As Integer, Length As Integer, Needle As Any Ptr, NeedleLen As Integer) As Integer
Declare Function Replace Pascal Alias "Replace" (Source As Any Ptr, LenOfSource As Integer, Dest As Any Ptr, Search As any ptr Ptr, LenOfSearch As Integer, Replace As any ptr Ptr, LenOfReplace As Integer) As Integer
Declare Function Random_ Pascal Alias "Random" (Array As Any Ptr, Ints As Integer, Addition As Integer, MaxValue As Integer) As Integer
Declare Function Stars Pascal Alias "Stars" (hDeviceContext As HDC, HDC_Buffer As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, StarCount As Integer, StarSpeed As Integer, Flags As Integer) As Integer
Declare Function NoStars Pascal Alias "NoStars" (Mode As Integer) As Integer
Declare Function StatusStars Pascal Alias "StatusStars" As Integer
Declare Function OptionStars Pascal Alias "OptionStars" (XO As Integer, YO As Integer, XA As Integer, YA As Integer, Speed As Integer) As Integer
Declare Function InitPixelEffects Pascal Alias "InitPixelEffects" As Integer
Declare Function DeInitPixelEffects Pascal Alias "DeInitPixelEffects" As Integer
Declare Function SetPixelEffect Pascal Alias "SetPixelEffect" (DestHDC As Integer, BufferHDC As Integer, X As Integer, Y As Integer, Col As Integer, S As Integer, H As Integer, F As Integer, A As Integer, Mode As Integer, Live As Integer) As Integer
Declare Function RotateExtBmp Pascal Alias "RotateExtBmp" (DestHDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, SrcHDC As Integer, X3 As Integer, Y3 As Integer, Degree As Integer, CopyMode As Integer) As Integer
Declare Function Rotate Pascal Alias "Rotate" (DestHDC As Integer, X As Integer, Y As Integer, FX1 As Integer, FX2 As Integer, Degree as Integer, Copymode As Integer) As Integer
Declare Function Compute Pascal Alias "Compute" (Array As Any Ptr, Bytes As Integer, Flag as Integer, Addi As Integer, Subt As Integer, Mult As Integer, Divi As Integer, Skip As Integer) As Integer
Declare Function FindPath Pascal Alias "FindPath" (Array As Any Ptr, FX As Integer, WayWidth As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, Flags As Integer) As Integer
Declare Function SmoothPath Pascal Alias "SmoothPath" (Array As Any Ptr, Length As Integer, Strength As Integer) As Integer
Declare Function SpriteTableMode Pascal Alias "SpriteTableMode" (SpriteHandle As Integer, Mode As Integer) As Integer
Declare Function SetTiles Pascal Alias "SetTiles" (SrcHDC As Integer, Yoffset As Integer, CX as Integer, CY As Integer, WX As Integer, WY As Integer, Map As Any Ptr, WMap As Integer, MX as Integer, MY As Integer, DestHDC As Integer, X As Integer, Y As Integer, CopyMode As Integer, Filter As Integer) As Integer
Declare Function Save Pascal Alias "Save" (FX As Integer, Filename As any ptr Ptr, Flags As Integer) As Integer
Declare Function CreateExtFX Pascal Alias "CreateExtFX" (W As Integer, H As Integer) As Integer
Declare Function SwitchTaskbar Pascal Alias "SwitchTaskbar" (Mode As Integer) As Integer
Declare Function ToolTip Pascal Alias "Tooltip" (Handle As Integer, Text As any ptr Ptr, Hwnd As Integer, Hinstance As Integer) As Integer
Declare Function AlphaTrans Pascal Alias "AlphaTrans" (DestHDC As Integer, X As Integer, Y As Integer, FX1 As Integer, FX2 As Integer, Mask As Integer) As Integer
Declare Function DataMem Pascal Alias "DataMem" (Array As Any Ptr) As Integer
Declare Function DataPos Pascal Alias "DataPos" (Offset As Integer) As Integer
Declare Function DataBytes Pascal Alias "DataBytes" (Text As any ptr Ptr) As Integer
Declare Function OemBytes Pascal Alias "OemBytes" (Text As any ptr Ptr) As Integer
Declare Function InitSprite5 Pascal Alias "InitSprite5" (SpriteDef As SpriteSetup) As Integer
Declare Function SaveToMemory Pascal Alias "SaveToMemory" (FX As Integer, Array As Any Ptr, Flags As Integer) As Integer
Declare Function GetBmpInfos Pascal Alias "GetBmpInfos" (HDC As Integer, InfoPtr As InfoData) As Integer
Declare Function FillExtBmp Pascal Alias "FillExtBmp" (HDC As Integer, RGBval As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function SetTiles5 Pascal Alias "SetTiles5" (TileInfos As Tilesetup) As Integer
Declare Function CollideUnknown Pascal Alias "CollideUnknown" (Collisions As Any Ptr) As Integer
Declare Function PMouse Pascal Alias "PMouse" (X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function FreeAllExtBmps Pascal Alias "FreeAllExtBmps" As Integer
Declare Function ReadFilePieceFast Pascal Alias "ReadFilePieceFast" (Filename As any ptr Ptr, Array As Any Ptr, Offset As Integer, ToRead As Integer, Skip As Integer) As Integer
Declare Function Frame Pascal Alias "Frame" (DestHDC As Integer, HiCol As Integer, LoColor As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As integer, LineWidth As Integer) As Integer
Declare Function RotateMem Pascal Alias "RotateMem" (Array As Any Ptr, Offset As Integer, Count As Integer, Rotation As Integer, Flag As Integer) As Integer
Declare Function ExchangeColor Pascal Alias "ExchangeColor" (DestHDC As Integer, Xoff As Integer, Yoff As Integer, FX As Integer, SrcCol As Integer, DstCol As Integer) As Integer
Declare Function DSoundLoadMemory Pascal Alias "DSoundLoadMemory" (Array As Any Ptr, HowManyBytes As Integer) As Integer
Declare Function DSoundLoadResource Pascal Alias "DSoundLoadResource" (hInstance As Integer, ID As Any Ptr) As Integer
Declare Function Pack Pascal Alias "Pack" (Src As Any Ptr, Dst As Any Ptr, Size As Integer, Password As Any Ptr) As Integer
Declare Function DePack Pascal Alias "DePack" (Src As Any Ptr, Dst As Any Ptr, Pass As any ptr Ptr) As Integer
Declare Function GetOriginalSize Pascal Alias "GetOriginalSize" (Src As Any Ptr) As Integer
Declare Function SetSpriteLayer Pascal Alias "SetSpriteLayer" (SpriteHandle As Integer, Layer As Integer) As Integer
Declare Function BringSpriteToTop Pascal Alias "BringSpriteToTop" (SpriteHandle As Integer) As Integer
Declare Function BringSpriteToBottom Pascal Alias "BringSpriteToBottom" (SpriteHandle As Integer) As Integer
Declare Function DeleteTags Pascal Alias "DeleteTags" (Src As Any Ptr, Leng As Integer, Dst As Any Ptr, C1 As Integer, C2 As Integer, Flags As Integer) As Integer
Declare Function Fog Pascal Alias "Fog" (DestHDC As Integer, Xoff As Integer, Yoff As Integer, FX1 As Integer, FX2 As Integer, Mask As Integer) As Integer
Declare Function Smooth Pascal Alias "Smooth" (DestHDC As Integer, Xoff As Integer, Yoff As Integer, Fx1 As Integer, FX2 As Integer) As Integer
Declare Function Examine Pascal Alias "Examine" (Text As any ptr Ptr) As Integer
Declare Function SaveExtImage Pascal Alias "SaveExtImage" (SrcHDC As Integer, Filename As any ptr Ptr, Flag As Integer, Par As Integer) As Integer
Declare Function SlowDownSprite Pascal Alias "SlowDownSprite" (SpriteHandle As Integer, Xslow As Integer, Yslow As Integer) As Integer
Declare Function VisualTableFix Pascal Alias "VisualTableFix" (Array As Any Ptr, CountOfbytes As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function AttachSpriteAnim Pascal Alias "AttachSpriteAnim" (SpriteHandle1 As Integer, SpriteHandle2 As Integer) As Integer
Declare Function SystemThreadBrake Pascal Alias "SystemThreadBrake" (Waittime As Integer) As Integer '' UNDOCUMENTATED!!!
Declare Function DSoundGetStatus Pascal Alias "DSoundGetStatus" (Buffer As Integer) As Integer
Declare Function SetCollideUnknownSprite Pascal Alias "SetCollideUnknownSprite" (SpriteHandle1 As Integer, SpriteHandle2 As Integer, SpriteHandle3 As Integer, SpriteHandle4 As Integer) As Integer
Declare Function GetVersion_ Pascal Alias "GetVersion" As Integer
Declare Function Antialiasing Pascal Alias "Antialiasing" (DestHDC As Integer, Xoff As Integer, Yoff As Integer, FX As Integer, TransparentCol As Integer, Flags As Integer, Strength As Integer) As Integer
Declare Function CloneArray Pascal Alias "CloneArray" (FX As Integer) As Integer
Declare Function Fuse Pascal Alias "Fuse" (FX1 As Integer, FX2 As Integer, Flags As Integer) As Integer
Declare Function FindBytesCount Pascal Alias "FindBytesCount" (Src As Any Ptr, Offset As Integer, Count As Integer, Search As Any Ptr, LenOfSearch As Integer, Which As Integer) As Integer
'End NameSpace
|
(Überarbeitet, Version 1.05)
Zuletzt bearbeitet von PMedia am 01.07.2007, 13:24, insgesamt 2-mal bearbeitet |
|
| Nach oben |
|
 |
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 01.07.2007, 12:23 Titel: |
|
|
thx für die übersetzung
was mir grad aufgefallen ist:
| Code: | | '' UNDOCUMENTATED!!! |
erinnert mich daran, als mal jemand bei uns "Rotatäischen" gesagt hat, was man ja dann Rotatation schreiben würde  -> undocumented
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 01.07.2007, 12:27 Titel: |
|
|
xD
k thx
lol, iwie scheint in FB da der Wurm drin zu sein x)
Zwar funzt es aber bei manchen Calls stürzt es ab xD |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 01.07.2007, 12:27 Titel: |
|
|
und das problem liegt wirklich bei FB? 
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 01.07.2007, 12:48 Titel: |
|
|
| Offenbar scheint es so. |
|
| Nach oben |
|
|
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
| Verfasst am: 01.07.2007, 13:10 Titel: |
|
|
Teilweise funzt es aber schon 
Hier ein kleines Beispiel:
| Code: |
#include "ProSpeed.bi"
Print "Zurück mit Taste.."
ChangeDisplay(800,600)
sleep
|
|
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 01.07.2007, 13:16 Titel: |
|
|
Ja ich hab festgestellt da werden ein paar variablen nicht korrekt übergeben...
Strings und das HDC sind bislang bekannt, was die Grafikfunktionen momentan unmöglich macht... aber ich geb so schnell net auf, ich probier noch weiter dran rum... |
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 01.07.2007, 13:23 Titel: |
|
|
nep, das Stringformat ist identisch. Strings von XProfan enden mit 0, so wie die von FB (ZString schien zu gehn)
*schnüff*
sieht langsam "leicht" hoffnungslos aus  |
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
|
| Nach oben |
|
|
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
| Verfasst am: 01.07.2007, 13:38 Titel: |
|
|
So stehts in der ProSpeed.dll direckt dinn
| Code: | aPLib v0.36 - the smaller the better :)
Copyright (c) 1998-2002 by Joergen Ibsen / Jibz, All Rights Reserved
This copy of aPLib is free for non-profitable use.
For more information: http://apack.cjb.net/
|
Also basiert ProSpeed auf die aPLib
Welche es wiederum bei in für alle möglichen Programmiersprachen http://www.ibsensoftware.com/ gibt
Zuletzt bearbeitet von AndT am 01.07.2007, 13:41, insgesamt 3-mal bearbeitet |
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 01.07.2007, 13:39 Titel: |
|
|
funktionieren tut nicht:
· alles was mit HDCs zu tun hat
· Alles was nen String in der Definition hat
//////////////////////////////////
Mir is grad ne kleine, feine aber verrückte Idee gekommen...
wenn ProSpeed FreeBasic net mögen,
warum macht mans net andersrum, also in FreeBasic ProSpeed?
Sprich die ProSpeed nachcoden? xD
Das würde garantiert gehn
//////////////////////////////////
So, wer Lust hat, darf probiern daran weiter zu basteln, ich verfolg mal die im 1. Edit genannte Idee
Aufwendig aber auf alle Fälle Funktionstüchtig und vlt. auch Linuxtauglich |
|
| Nach oben |
|
|
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 01.07.2007, 13:55 Titel: |
|
|
naja, exakt so werd ichs net hinbekommen, is klar, aber so ne kleine feine Lib für Win & Lin für Spritemanagement is doch was feines... nen Namen hätt ich auch scho, angelehnt an ProSpeed: FreeSpeed
///
Mäh, macht keinen Spaß mehr 
Wieso enden egtl. alle meine "Projekte" so? |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 01.07.2007, 20:56 Titel: |
|
|
| PMedia hat Folgendes geschrieben: | Mäh, macht keinen Spaß mehr
Wieso enden egtl. alle meine "Projekte" so? |
..vllt. weil du deine "Projekte" nur anfängst und nicht durchziehst..
..wenn du einem Kind einen Namen gibst, bist du noch lange nicht der Vater 
..denk mal drüber nach..(gewiß, für manchen ein schmerzhafter Prozeß..
..ach, ich wiederhole mich  )
[Edit]
Wie ist eigentlich ..Any Ptr deklariert?
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
Dennis Schulmeister
Anmeldungsdatum: 26.07.2007
Beiträge: 1
|
| Verfasst am: 26.07.2007, 21:10 Titel: Mal so eine blöde Frage |
|
|
Hallo,
mal so eine blöde Frage. Warum nimmt keiner Kontakt mit Frank Abbing auf? Ich kenne ihn aus den XProfan-Foren und er ist soweit ein recht umgänglicher Typ.
Die aPic-DLL ist übrigens nur eine Kompressions-Bibliothek. Es mag zwar sein, dass die Prospeed.dll Routinen daraus verwendet, sie basiert aber garantiert nicht darauf. Auch ein Nachprogrammieren ist nicht ratsam.
Frank ist nämlich passionierter Assembler-Programmierer. Und gegen eine DLL, welche in reinem Assembler programmiert wurde kommt FB nicht an. Außerdem, wie will man etwas nachbauen, mit dem man nicht mal umgehen kann?
Gruß,
Dennis
_________________
Frisch aus der Waschküche: Hermes! (http://ncc-1701a.homelinux.net) |
|
| Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
| Verfasst am: 26.07.2007, 23:49 Titel: Re: Mal so eine blöde Frage |
|
|
| Dennis Schulmeister hat Folgendes geschrieben: | | mal so eine blöde Frage. Warum nimmt keiner Kontakt mit Frank Abbing auf? Ich kenne ihn aus den XProfan-Foren und er ist soweit ein recht umgänglicher Typ. |
Sicher, aber wenn du mal vom Anfang an hier liest, merkst du wie das Interesse nach und nach kleiner wurde...
| Dennis Schulmeister hat Folgendes geschrieben: | Auch ein Nachprogrammieren ist nicht ratsam.
Frank ist nämlich passionierter Assembler-Programmierer. Und gegen eine DLL, welche in reinem Assembler programmiert wurde kommt FB nicht an. |
 hast du dir schon mal angesehen was FBC aus dem Basic-Quelltext macht? .. reinen Assemblercode für AS!
| Dennis Schulmeister hat Folgendes geschrieben: | | Außerdem, wie will man etwas nachbauen, mit dem man nicht mal umgehen kann? |
absolut richtig, z.B. warum PMedia Pascal-Aufrufkonventionen benutzt ist mir schleierhaft?
Bei der speech.dll von Frank Abbing brauchte ich das nicht. 
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
