Movies mit IncludeBinary?

[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?

[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

[ts-soft]

Aber bitte nichts ins Root von C:
Besser so:

Code: Alles auswählen

If CreateFile(1, GetTemporaryDirectory() +  "movie.mpeg") 

[Alves]

Warum nicht ins Root?

Bei mir liegen da tausenden Dateien offen

[PBZecke]

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

[ts-soft]

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.

[ts-soft]

>> Is doch nur ein Beispiel gewesen...
Wird leider von Anfängern so 1:1 übernommen, sonst wäre es klar.

[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

[PBZecke]

>> 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...