Seite 3 von 3
Verfasst: 21.07.2006 12:25
von 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...
Tafkadasom2k5 hat geschrieben:Ist a14xerus ein dahingestellter, aber unantasbarer Beweis für irgendwas, um bei uns eine art Mindfuck auszulösen?
was sagt mir das jetzt?
Verfasst: 21.07.2006 12:32
von Tafkadasom2k5
Verfasst: 21.07.2006 12:40
von 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
Verfasst: 21.07.2006 12:43
von Kaeru Gaman
a14xerus hat geschrieben: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.
Verfasst: 21.07.2006 12:47
von ts-soft
0 = 0 Fehler
oder: #S_OK
Verfasst: 21.07.2006 12:48
von 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
Verfasst: 21.07.2006 12:59
von 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
Verfasst: 21.07.2006 13:09
von 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?
Verfasst: 21.07.2006 14:07
von Jilocasin
Fehler:
In mcisendstring_() war immer noch "style child parent" drin...
-> rausnehmen
Verfasst: 21.07.2006 17:23
von a14xerus
danke ... jetzt klappt alles wie es soll