PureBoard

Verfasst: **26.03.2005 17:23**

Hallo!
Ich muss gestehen, ich hab (noch) nicht so wahnsinnig viel Ahnung von PureBasic und wollte jetzt gern selber etwas programmieren, nachdem ich ein Toturial durchgemacht hab.
Aber wenn ich JPEG Dateien einfügen will und auch den UseJPEGImageDecoder() Befehl eingebe(wo genau sollte der stehen, am Anfang?) funktioniert das nicht...

Muss ich da noch etwas beachten?
Kann ich eigentlich mit Dateien im ".gif" Format arbeiten, wie?

MFG
Sandra686

Verfasst: **26.03.2005 17:47**

als was willst du die JPEGs denn einfügen?

den UseJPEGIMageDecoder() musst du z.b. vor einem LoadSprite(Nr,"Name.jpg",0) angeben...
(bzw. LoadImage)

Verfasst: **26.03.2005 17:48**

normalerweise gehen so weit ich weiß gif nicht aber ich weiß auch nicht obs userlibs dafür gibt

Verfasst: **26.03.2005 18:06**

Sollte der Hintergrund ein.. Habs sowohl direkt for LoadSprite als am Anfang probiert, er schrieb immer, dass LoadJPEGSPrite sei kein gültiger Befehl...

Verfasst: **26.03.2005 18:21**

LoadJpegSprite ist ja auch kein Befehl...

Es muss ca. so aussehen:

Code: Alles auswählen

InitSprite()

OpenScreen(800,600,16,"Quark")

UseJPEGImageDecoder()

LoadSprite(123,"Käse.jpg",0)

Mfg,
AndyX

Verfasst: **26.03.2005 18:34**

Rubiko hat geschrieben:normalerweise gehen so weit ich weiß gif nicht aber ich weiß auch nicht obs userlibs dafür gibt

Laden kann man die auf jeden Fall hiermit. Mittels PauseMovie()
kann man eine laufende Gif-Animation anhalten und dann weiter bearbeiten.
Weiter kann man mit RenderMovieFrame(SpriteID)
direkt auf Sprites rendern.

Code: Alles auswählen

;
; ------------------------------------------------------------
;
;   PureBasic - Movie example file
;
;    (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;

If InitMovie() = 0
  MessageRequester("Error", "Can't initialize movie playback !", 0) 
  End
EndIf

MovieName$ = OpenFileRequester("Choose the movie to play", "", "Movie/Audio files|*.gif;*.avi;*.mpg;*.asf;*.mp3;*.wav|All Files|*.*", 0)
If MovieName$
  If LoadMovie(0, MovieName$)
  
    OpenWindow(0, 100, 150, MovieWidth(), MovieHeight(), #PB_Window_SystemMenu, "PureBasic - Movie")
    PlayMovie(0, WindowID())
      
    Repeat
    Until WaitWindowEvent() = #PB_EventCloseWindow
  Else
    MessageRequester("Error", "Can't load the movie...", 0)
  EndIf
EndIf
; ExecutableFormat=Windows
; UseIcon=C:\Programmation\PureBasic\Examples\MoviePlayer\Icons\MoviePlayer.ico
; Executable=E:\Documents and Settings\Administrateur\Bureau\MoviePlayer.exe
; EOF

MfG Falko

PureBoard

JPEG Dateien einfügen funktioniert nicht...

JPEG Dateien einfügen funktioniert nicht...