Seite 1 von 1
Movies mit IncludeBinary?
Verfasst: 15.07.2006 17:04
von Alves
Also ich wollte mit IncludeBinary ein Movie includieren und dann abspielen. Problem ist, ich habe ja nur die Speicheradresse, und CatchMovie gibt es nicht.
Wie geht es trotzdem?
Verfasst: 15.07.2006 21:17
von PBZecke
Vor dem Abspielen temporär auf die Platte schreiben:
Code: Alles auswählen
DataSection
IB1Start:
IncludeBinary "c:\irgendwo\movie.mpeg"
IB1End:
EndDataSection
If CreateFile(1,"c:\movie.mpeg")
Len = ?IB1End - ?IB1Start
WriteData(1,?IB1Start,Len)
CloseFile(1)
EndIf
Verfasst: 15.07.2006 21:24
von ts-soft
Aber bitte nichts ins Root von C:
Besser so:
Code: Alles auswählen
If CreateFile(1, GetTemporaryDirectory() + "movie.mpeg")
Verfasst: 15.07.2006 21:27
von Alves
Warum nicht ins Root?
Bei mir liegen da tausenden Dateien offen
Verfasst: 15.07.2006 21:39
von PBZecke
ts-soft hat geschrieben:Aber bitte nichts ins Root von C:
Besser so:
Code: Alles auswählen
If CreateFile(1, GetTemporaryDirectory() + "movie.mpeg")
Is doch nur ein Beispiel gewesen...
>>Bei mir liegen da tausenden Dateien offen
Was bei Dir da rum liegt ist ja egal, aber einem Anwender Deines
Programmes solltest Du das nicht antuen
Verfasst: 15.07.2006 21:41
von ts-soft
Alves hat geschrieben:Warum nicht ins Root?
Bei mir liegen da tausenden Dateien offen
1. Dateien sind in Ordnern besser geschützt, als im Root einer Partion
2. C:\ existiert nicht auf jedem System
3. dort sind für das OS "lebenswichtige" Dateien, deren Beschädigung das
Starten von Windows verhindern könnte.
4. Nicht jeder User hat unbedingt das Recht dort zu schreiben.
5. Dafür ist der Tempordner vorgesehen!
PS: Programme die temporär nach C: schreiben sind für mich ein Hinweis darauf, das der Programmierer von Windows nicht viel Ahnung hat und es evtl. Besser ist, dieses Programm zu entfernen.
Verfasst: 15.07.2006 21:42
von ts-soft
>> Is doch nur ein Beispiel gewesen...
Wird leider von Anfängern so 1:1 übernommen, sonst wäre es klar.
Verfasst: 15.07.2006 21:44
von Kaeru Gaman
grundsätzlich habt ihr ja recht, aber ist das nicht völlig banane in diesem fall?
Code: Alles auswählen
DataSection
IB1Start:
IncludeBinary "c:\irgendwo\movie.mpeg"
IB1End:
EndDataSection
If CreateFile(1,"c:\movie.mpeg")
Len = ?IB1End - ?IB1Start
WriteData(1,?IB1Start,Len)
CloseFile(1)
LoadMovie(1,"c:\movie.mpeg")
DeleteFile("c:\movie.mpeg")
EndIf
> Wird leider von Anfängern so 1:1 übernommen, sonst wäre es klar.
ok, isn argument
> PS: Programme die temporär nach C: schreiben sind für mich ein Hinweis darauf, das der Programmierer von Windows nicht viel Ahnung hat und es evtl. Besser ist, dieses Programm zu entfernen.
auchn argument
Verfasst: 15.07.2006 21:45
von PBZecke
ts-soft hat geschrieben:>> Is doch nur ein Beispiel gewesen...
Wird leider von Anfängern so 1:1 übernommen, sonst wäre es klar.
Ja, hast recht, wie dieser Thread beweist...
