| Вопрос: Требуется помощь | Добавлено: 21.01.07 18:25 |
Автор вопроса:  SASH!
|
|
Формируется строка (str as string)(набор видео файлов) для воспроизведения с помощью встраимого Windows Media Player (WindowsMediaPlayer1.). Формирование строки и плеер находятся в разных формах - может я чего-то не правильно объявил??
Проблема: если я указываю плееру прямой путь, то все ок все воспроизводится, однако если я ему подсовываю сформированную строку, то ошибка (Argument not optional). Помогите, незнаю как сделать... Очень надо. Заранее спасибо! |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  ENIX ICQ: 238819245 Вопросов: 9 Ответов: 76 |
Профиль | | #1 | Добавлено: 21.01.07 20:53 |
| как ты ссылаешся на переменную и обьявляеш? | ||
|
Номер ответа: 2 Автор ответа: Djon Вопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #2 | Добавлено: 21.01.07 20:58 |
| Попробуй нужную тебе строку записывать в TextBox | ||
|
Номер ответа: 3 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #3 | Добавлено: 21.01.07 21:00 |
| Ну и естественно считывать из него же | ||
|
Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 21.01.07 21:05 |
|
Формирование строки и плеер находятся в разных формах - может я чего-то не правильно объявил??
Да, неправельно. Строку нужно было объявить в любом модуле... |
||
|
Номер ответа: 5 Автор ответа: ENIXICQ: 238819245 Вопросов: 9 Ответов: 76 |
Профиль | | #5 | Добавлено: 21.01.07 21:08 |
|
или)
1) Создать Module и обьявить переменную и уже в нее "кидать" путь 2) Обьявить переменную в форме "в самом верху кода" как Public и ссылаться на нее путем Форма.Переменная 3) передавать путь сразу напрямую ссылаясь на форму где расположен контрол и далее... |
||
|
Номер ответа: 6 Автор ответа: SASH! Вопросов: 1 Ответов: 3 |
Профиль | | #6 | Добавлено: 21.01.07 21:59 |
|
2ENIX
значится код Form1: Public str As String Private Sub Check1_Click() If Check1.Value = vbChecked Then Combo1.Enabled = True Else Combo1.Enabled = False End If End Sub Private Sub Command1_Click()  im ind As Integer
If File1.ListIndex > -1 Then If Check1.Value = vbChecked Then If Combo1.Text = "*****" Then str = File1.Path + "\" + "themes" + "\" + "****.avi " ElseIf Combo1.Text = "*****" Then str = str + File1.Path + "\" + "themes" + "\" + "*******.wmv " Else str = str + File1.Path + "\" + "themes" + "\" + "*******.avi " End If End If str = str + File1.Path + "\" + File1.List(File1.ListIndex) + " " If Check2.Value = vbChecked Then str = str + File1.Path + "\" + "themes" + "\" + "******.avi " End If Form1.WindowState = 1 Form3.Show vbModal Else MsgBox "Выберите серию" End If End Sub Private Sub Command2_Click() Form1.WindowState = 1 Form2.Show vbModal End Sub Private Sub Command3_Click() Form1.WindowState = 1 Form3.Show vbModal End Sub Private Sub Form_Load() File1.Path = Mid$(App.Path, 1, 3) + "movie" Combo1.AddItem "**********" Combo1.AddItem "*********" Combo1.AddItem "********" Combo1.ListIndex = 1 End Sub Такс теперь Form3: Private Sub Form_Load() WindowsMediaPlayer1.launchURL = Form1.str WindowsMediaPlayer1.settings.autoStart = False End Sub Private Sub Form_Unload(Cancel As Integer) Form1.WindowState = 0 End Sub Вот собственно весь код (форма два не имеет никакого значения) WindowsMediaPlayer1.launchURL = Form1.str Вот эта строка весь камень преткновения |
||
|
Номер ответа: 7 Автор ответа: ENIXICQ: 238819245 Вопросов: 9 Ответов: 76 |
Профиль | | #7 | Добавлено: 21.01.07 23:58 |
|
Значит я просмотрел:
Ошибок не нашол, у себя реальзовал по типу твоего На форме 1 передаю явно путь к видео файлу, на форме второй (где плеер) ловлю и все окей. Возьми в пошаговом режиме (F8) просмотри куда что идет, где-то оно проскакивает и путь не задается. И советую использовать не WindowsMediaPlayer1, а проще плеер MediaPlayer1. |
||
|
Номер ответа: 8 Автор ответа: SASH!Вопросов: 1 Ответов: 3 |
Профиль | | #8 | Добавлено: 22.01.07 20:57 |
|
Проверил - все передается из формы1 в форму3, но в строке WindowsMediaPlayer1.launchURL Form1.str возникает ошибка
Run-time error '-1072884951 (c00d1329)': Method 'launchURL' of object 'IWMPPlayer4' failed Не знаю в чем причина И еще вопрос по поводу этой програмульки Как видно из кода програма считывает из определенной директории и отображает ее содержимое в FileListBox Хотелось чтобы название файла(серии) было без расширения и без подчеркивания (если не сделать подчеркивание между словами, а оставить пробел, то строка формируется не правильно - обрывается на ближайшем пробеле) - собственные мысли есть, но слишком хаотичные - ничего конкретного. Если есть идеи предложите  )
|
||
|
Номер ответа: 9 Автор ответа: SASH!Вопросов: 1 Ответов: 3 |
Профиль | | #9 | Добавлено: 22.01.07 23:35 |
|
Ура, от первой проблемы с ошибкой избавился, но тут же возникла другая - если я формирую строку более чем из одного файла, то встроеный плеер ее не прожевывает, а внешний (тот же WMP) на ура.
И в чем проблема?????? |
||
Страница: 1 |