Code: Alles auswählen
Structure GifHeader
; Header
Signature.b[3] ; Header Signature (always "GIF")
Version.b[3] ; GIF format version("87a" or "89a")
; Logical Screen Descriptor
ScreenWidth.w ; Width of Display Screen in Pixels
ScreenHeight.w ; Height of Display Screen in Pixels
Packed.b ; Screen and Color Map Information
BackgroundColor.b ; Background Color Index
AspectRatio.b ; Pixel Aspect Ratio
EndStructure
Structure GifImageDescriptor
Left.w ; X position of image on the display
Top.w ; Y position of image on the display
Width.w ; Width of the image in pixels
Height.w ; Height of the image in pixels
Packed.b ; Image and Color Table Data Information
EndStructure
File = ReadFile(#PB_Any, OpenFileRequester("Öffnen...", "", "GIF|*.gif", 1))
If File
ReadData(@GifHeader.GifHeader, SizeOf(GifHeader))
While Eof(File) = 0 And ReadByte() <> $2C ;Erkennung des ImageDescripors
Wend
ReadData(@GifImgDesc.GifImageDescriptor, SizeOf(GifImageDescriptor))
;Alle Frames:
Debug GifImgDesc\Width
Debug GifImgDesc\Height
;Nur 1 Frame:
Debug GifHeader\ScreenWidth
Debug GifHeader\ScreenHeight
CloseFile(File)
Else
MessageRequester("ERROR", "")
EndIf