CD SetTrackState() //edit frage zu MCI

[a14xerus]

Ich glaube ich habe meinen Fehler gefunden
mcisendstring_() liefert wohl 0 zurück, wenns nicht geklappt hat:

Code: Alles auswählen

done = mciSendString_("open "+Chr(34)+file+Chr(34)+" type MPEGVIDEO style child parent "+Str(hWnd)+" alias MYMOVIE"+Str(Nb),0,0,0) 


If done = 0 
    Result = 1 
  Else 
    Result = 0 
EndIf 

das heißt in diesem codebeispiel wird , wenn es nicht geklappt hat, result die 1 zugewiesen.. ich bin immer davon ausgegangen, das result 0 hat, wenn es nicht klappt...
wenn ich grade nen denkfehler habe, bitte bescheidsagen

@Tafkadasom2k5
ich weiß auch nicht, was fnord heißt, und kereckte ist auch nicht richtig geschreiben.. aber ich mache ja auch manchmal schreibfehler *gg*... darum wollte ich einfach nur wissen, wie ich das mache...

Ist a14xerus ein dahingestellter, aber unantasbarer Beweis für irgendwas, um bei uns eine art Mindfuck auszulösen?

was sagt mir das jetzt?

[Tafkadasom2k5]

Das:
http://de.wikipedia.org/wiki/FNORD

[a14xerus]

lol, aber hat das hier was zu suchen?^^
aber zurück zu meinem prob

wann wurde das movie geladen??
wenn result = 0 , oder result = 1 ist???

Code: Alles auswählen

Procedure Movie_Load(Nb,file.s)
  
  If CurrentExtension.s = "cda"
    If mciSendString_("open "+Chr(34)+file+Chr(34)+" type CDAUDIO alias MYMOVIE"+Str(Nb),0,0,0)
      Result = 1
    Else
      Result = 0
    EndIf
  Else ; -> mit Parent-Funktion
    If mciSendString_("open "+Chr(34)+file+Chr(34)+" type MPEGVIDEO style child parent alias MYMOVIE"+Str(Nb),0,0,0)
      Result = 1
    Else
      Result = 0
    EndIf
  EndIf
  
  ProcedureReturn Result
EndProcedure 

[Kaeru Gaman]

lol, aber hat das hier was zu suchen?^^

ja, oder auch nicht, oder auch doch.

Der folgende Satz ist falsch. Der vorhergehende Satz ist richtig.

[ts-soft]

0 = 0 Fehler
oder: #S_OK

[Jilocasin]

Also "mciSendString_()" gibt 0 zurück wenn kein Fehler autrat.
Ansonsten gibt es die Fehlernummer zurück, deren Bedeutung mittels...

Code: Alles auswählen

String.s = Space(256)
mciGetErrorString_(result,@String,256)
debug String

...herausgefunden werden kann
Wobei "result" eben von "mciSendString_()" kommt.

//nachtrag
Uups, da war ich zu spät

[a14xerus]

danke für die ganze hilfe...
trotzdem kommt bei mri immer fehler:

Code: Alles auswählen

Global plattern.s = "Ünterstützte Dateien|*.wmv;*.mpg;*.avi;*.mpeg;*.mov;*.mp3;*.mp2|Windows Media|*.wma|MPEG Codec|*.mpg;*.mpeg;*.mp4;*.mp3;*.mp2|AVI|*.avi|MOV|*.mov|Alle Dateien|*.*"
Global NewList files.s()
Global fehler
Procedure Movie_Load(Nb,file.s)
  
  fehler = mciSendString_("open "+Chr(34)+file+Chr(34)+" type MPEGVIDEO style child parent alias MYMOVIE"+Str(Nb),0,0,0)
  
  ProcedureReturn fehler
EndProcedure






file.s = OpenFileRequester("Datei öffnen","",plattern,0,#PB_Requester_MultiSelection)
If file
  While file
    AddElement(files())
    files() = file
    file = NextSelectedFileName()
  Wend
  
  FirstElement(files())
  ForEach files()
    Movie_Load(ListIndex(files()),files())
    If fehler <> 0
      String.s = Space(256) 
      mciGetErrorString_(fehler,@String,256) 
      MessageRequester("","fehler" + Chr(10) + String,#MB_OK|#MB_ICONWARNING)
    EndIf
  Next
EndIf

[a14xerus]

welche ganze zahl geht denn nicht?
das ist bei mir der fehlercode, das ich keien ganze zahl verwenden darf
id benutze als ID wie man sieht listindex() weil ich meine files ja in eine linkedlist lade

so gesehen is die erste datei imemr ID 0
udn das ist ja die einzigste zahl in dem code.. warum geht das nicht?

[Jilocasin]

Fehler:
In mcisendstring_() war immer noch "style child parent" drin...
-> rausnehmen

[a14xerus]

danke ... jetzt klappt alles wie es soll