home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / vbwin / mci2 / videoply.frm (.txt) < prev    next >
Visual Basic Form  |  1993-11-09  |  28KB  |  357 lines
  1. fmPlayer
  2. %VideoPly  (c) 1993 by Michael Tischer
  3. wwwwwwwwww
  4. wwwwwwwwwwp
  5. wxxxxxxxwwp
  6. xxxxxxxxxwp
  7. xxxxxxxxxwp
  8. wxxxxxxxxwp
  9. wwwwwwwwwwp
  10. wwwwwwwwww
  11. Form1%
  12.     MMControl
  13. frAbspielPos
  14. Abspielposition
  15. hrStatus    
  16. Bezeichnung2
  17. Frames
  18. Bezeichnung1
  19. Millisekunden
  20. lbMsMin
  21. lbFramesMin
  22. lbMsMax
  23. lbFramesMax
  24. pbTestBild
  25. wwwwwwww
  26. wwwwwwww
  27. wwwwwwww
  28. wwwwwwww
  29. wwwwwwww
  30. wwwwwwww
  31. wwwwwwww
  32. wwwwwwww
  33. wwwwwwww
  34. wwwwwwww
  35. wwwwwwww
  36. wwwwwwww
  37. wwwwwwww
  38. wwwwwwww
  39. wwwwwwww
  40. wwwwwwww
  41. wwwwwwww
  42. wwwwwwww
  43. wwwwwwww
  44. wwwwwwww
  45. wwwwwwww
  46. wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
  47. wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
  48. wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp
  49. wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
  50. shMaxCtr
  51. frDateiauswahl
  52. Dateiauswahl
  53. fiFile
  54. *.avi
  55. diDir
  56. drDrive
  57. Bezeichnung3
  58. *.AVI
  59. pbLeinwand
  60. pbGehaeuse
  61. Microsoft Draw
  62. shCtrBg
  63. mnEnde
  64. MciSendString
  65.     CmdString
  66.     ReturnStr
  67. ReturnLength
  68.     hCallback2
  69. MciGetErrorString
  70. ErrCode
  71.     StrBuffer
  72. LengthB
  73. DEBUG_MODE
  74. TITEL
  75. STATUS_UNLOADED
  76. STATUS_LOADED
  77. STATUS_PLAYINGk
  78. MciError;
  79. MciErrStringN
  80. AviLenMse
  81. AviLenFrames
  82. PlayerStatus
  83. btEject_click
  84. btStop_click$
  85. MciSend
  86. SetStatusUnloaded6
  87. ShowTestBild
  88. btPlay_Clickx
  89. SetStatusPlaying
  90. tiAVIl
  91. Enabled
  92. status
  93. SetStatusLoaded~
  94. diDir_Change3
  95. fiFile
  96. Path(
  97. diDirQ
  98. drDrive_Change\
  99. drDrive
  100. Drive
  101. fiFile_DblClick
  102.     ListIndext
  103. LoadAVIFile
  104.     Form_Load
  105. Form_Unload%
  106.     Abbrechen
  107. mnEnde_click
  108. GetSize
  109. rectu
  110. answer
  111. RetSend?
  112. RectStringToVal
  113. hrStatus_Change
  114. hrstatus
  115. Value
  116. hrStatus_Scroll
  117. xsize
  118. ysize
  119. MciGetLengthMs
  120. MciGetLengthFrames
  121. frAbspielPos
  122. lbMsMax4
  123. Caption
  124. lbFramesMax
  125. screen
  126. TwipsPerPixelY9
  127. shMaxCtr
  128. HeightQ
  129. pbLeinwand
  130. pbGehaeuseZ
  131. TwipsPerPixelXv
  132. Width
  133. CenterControl
  134. shCtrBg
  135. pbTestBild
  136. VisibleA
  137. MCIGetPositionb
  138. MciGetStatus
  139.     RetGetStrE
  140. ErrorStr`
  141. fmPlayer
  142. tiAVI_Timer
  143.     START_DIR
  144. MciSendwResult$
  145. MciSendAndGet
  146. LengthFrames
  147. ResultR
  148.     ResultStr
  149. RestultStr0
  150. pbLeinwand_Click
  151. pbLeinwand_Paint
  152. MMControl1_Done
  153. NotifyCode
  154. MMControl1_StatusUpdate
  155. MM1_DoneK
  156. MM1_StatusUpdate
  157. Position
  158. MCI_MODE_PLAY
  159. FileNamew
  160. DeviceType
  161. AVIVideo
  162. Command8
  163. lError
  164. Error
  165. TimeFormat}
  166. MCI_FORMAT_MILLISECONDS
  167. (MCI_FORMAT_FRAMESMCI_FORMAT_MILLISECONDS
  168. MCI_FORMAT_FRAMES
  169. begin
  170. hWndDisplay
  171. mciSendCommandD
  172.     wDeviceID
  173. wMessageF
  174. dwParam1
  175. dwParam2
  176. DeviceID
  177. Message_
  178. Flags
  179. RetLongQ
  180.     pbGehaese
  181. pbGehauese
  182. AviFn
  183. layerStatus
  184. MM1_EjectCompleted
  185.     ErrorCode
  186. MM1_BackClick
  187. cancel
  188. MCI_PLAY
  189. exist
  190.     SeekAviTo
  191. frame
  192. SeekAviToRegler>
  193. MCI_MODE_SEEK
  194. MM1_NextClick&
  195. MM1_StepClick
  196. MM1_EjectClick
  197.   VIDEOPLY.FRM  -  Spielt AVI-Files mit dem MCI-Control ab
  198.   Version 3.0 vom 2.11.1993e
  199.   (c) 1993 by Michael Tischer
  200. keine Variable ohne Deklaration!
  201. --- Deklaration von API-Funktionen 
  202. mmsystem.dll
  203. mmsystem.dll
  204. mmsystem.dll
  205. --- Konstanten 
  206. im Debugmodus?
  207. c:\winapp\winvideo
  208. Start-Directory im Debug-Modus
  209. --- Globale Variable auf Form-Ebene 
  210. Fehlercode des letzten MciSend-Aufrufs
  211. Fehlerstring des letzten MciSend-Aufrufs
  212. nge des aktuellen AVI-Files in MSl
  213. nge des aktuellen AVI-Files in Frames-
  214. Name und Pfad der geladenen AVI-Dateie    
  215. diDir_Change
  216. diDir_Change: Verzeichnis gewechselt, neue Dateien in die Dateibox laden
  217. drDrive_Change
  218. drDriveChange: Laufwerk gewechselt, neue Verzeichnisse in die Dirbox laden
  219. fiFile_DblClick
  220. fiFile_DblClick : Doppelklick auf AVI-Dateinamen, Einladen des gew
  221. nschten
  222.  Files, soweit m
  223. glich
  224. beim Abspielen ignorierens
  225. close
  226. Dateinamen konstruieren
  227. Datei einladen und aufs Abspielen vorbereiteni
  228. Form_Load
  229. Form_Unload: Programm wird beendet
  230. nur im Debug-Modus
  231. Standard-Pfad vorgeben
  232. Testbild anzeigen 
  233. Form_Unload
  234. Form_Unload: Programm wird beendet
  235. Aufruf des ENDE-Men
  236. s simulieren
  237. GetSize
  238. GetSize : Liefert die Koordinaten der MCI-Standard-Leinwand f
  239. r das Abspielen*
  240.  des AVI-Files
  241. Eingabe : mci = Name des MCI-Objekts
  242.  r   = Rechteck-Variable zur Aufnahme der Koordinatenw
  243. where 
  244.  destination
  245. numerische Koordinaten aus String holen
  246. hrStatus_Change
  247. hrStatus_change : wird bei einer Verschiebung des Reglers aufgerufen
  248. AVI-File bis zur Reglerpos vorspulen
  249. hrStatus_Scroll
  250. hrStatus_Scroll : wird beim Ziehen des Reglers mit der Maus aufgerufen
  251. AVI-File bis zur Reglerpos vorspulen
  252. LoadAVIFile
  253. LoadAVIFile : L
  254. dt das AVI-File in den Player und bereitet das Abspielen vor
  255. Eingabe : fn = Name und Pfad der AVI-Datei
  256. Ausgabe : keineN
  257.  : Es wird davon ausgegangen, da
  258.  die angegebene Datei existiert und
  259. ber den MCI-Befehl OPEN ge
  260. ffnet werden kann
  261. Globals : AviFnm
  262. nimmt Koordinaten des Fenters auf*
  263. e des AVI-Fensters
  264. -- Multimedia-Control einstellen 
  265. AVIVideo
  266. ffnen
  267. Dateiname in glob. Var merken
  268. erst L
  269. nge in MS abfragenr
  270. dann in Frames
  271. --- Rolleiste als Abspielanzeige einstellen 
  272. --- Gr
  273. e abfragen, auf Maximalgr
  274. e beschr
  275. nken und die Gr
  276. e des umrunden--*
  277. --- den Fernseher einstellen 
  278. e des AVI-Fensters holen
  279. Umrechnung Punkte/Twips ber
  280. zu gro
  281. Ja, beschr
  282. e der AVI-Leinwand
  283. e des umrundenden Fernsehers
  284. das ganze nochmal f
  285. --- AVI-Leinwand und Fernseher 
  286. bereinander schieben, dabei aber auch 
  287. ber dem Hintergrund zentrieren 
  288. Testbild abschaltenr
  289. use anzeigen
  290. Leinwand sichtbar 
  291. --- den ersten Frame zur Anzeige bringen 
  292. MciSend
  293. MCISend: Sendet einen MCI-String
  294. Eingabe : cmd$ = der zu sendende MCI-String*
  295. Globals : MciError, MciErrString (nehmen Fehlerinformationen auf)*
  296. im Debug-Modus MCI-String ausgeben
  297. String auf C-Format bringen*
  298. an MCI sendenr
  299. Fehler?
  300. Ja, Variablen mit Fehlerinformationen laden*
  301. MciSendAndGet
  302. MCISendAndGet: Sendet einen MCI-String und liefert Return-String zur
  303. Eingabe : cmd$ = der zu sendende MCI-String*
  304. Ausgabe : der vom MCI zr
  305. ckgelieferte String
  306. Globals : MciError, MciErrString (nehmen Fehlerinformationen auf)*
  307. nimmt Funktionsergebnis aufe
  308. im Debug-Modus MCI-String ausgeben
  309. String auf C-Format bringenn
  310. an MCI senden,
  311. Fehler?
  312. Ja, Variablen mit Fehlerinformationen laden*
  313. Fehler, Leerstring zur
  314. kein Fehlerg
  315. im Debug-Modus Return-String ausgebeng
  316. MciSendAndGet.Result = 
  317. MM1_BackClick
  318. mm1_BackClick: Der Back-Button des MM-Controls wurde bet
  319. AVI-File bis zum Frame 0 spulenp
  320. Standard-Aktion nicht durchf
  321. hrenr
  322. MM1_StatusUpdate
  323. mm1_StatusUpdate: Wird beim Abspielen des AVI-Files aufgerufen und genutzt, 
  324.  die jeweils aktuelle Abspielposition anzuzeigen
  325. Regler schon auf akt. Fram?f
  326. Nein, Regler entsprechend verschiebenv
  327. MM1_StepClick
  328. mm1_StepClick: Der Step-Button des AVI-Controls wurde angeklickt, das AVI-File
  329.  bis zum letzten Frame vorspulen
  330. AVI-File bis zum letzten Fram vorspulenF
  331. Standard-Aktion unterdr
  332. mnEnde_click
  333. mnEnde_Click: ENDE-Men
  334.  angew
  335. hlt, Programm beenden*
  336. Programm beenden
  337. SeekAviTo
  338. SeekAviTo: AVI-File bis zu einem bestimmten Frame vorspulen   
  339. Eingabe : Frame = Frame, bis zu dem vorgespult werden soll
  340.  : Es wird das eingestellte Time-Format verwendetu
  341. SeekAviToRegler
  342. SeekAviTo: AVI-File bis zu dem Frame vorspulen, der durch den horizontalen
  343.  Regler hrstatus vorgegeben wird
  344. Datei geladen?
  345. Ja, im Play-Modus?
  346. Nein, vorspulen'
  347. ShowTestBild
  348. ShowTestBild : Bringt das Testbild zur Anzeige
  349. die Leinwand unsichtbar machen
  350. e des Geh
  351. uses auf
  352. Testbild einstellena
  353. vor Hintergrund zentrieren
  354. und anzeigen
  355. Testbild vor Hintergrund zentrieren 
  356. und anzeigen
  357.