Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите найти ошибки, delphi 5 
:(
    Опции темы
Dr.No_xXx
  Дата 25.3.2005, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Здравствуйте,
Помогите найти ошибки please.Вроде все исправил,но прога работает не так как должна.
Код

timer1.interval:=1000; //вывод картинки
back:=TBitMap.create;
back.loadfromfile('im\main.bmp');
image1.canvas.draw(0,0,back);
timer1.interval:=5000; //2 картинка
back.loadfromfile('im\fon.bmp');
image1.canvas.draw(0,0,back);
with                                  //Загрузка 1 wav файла
Mediaplayer1 do
begin
Mediaplayer1.FileName:='music\1.wav';
open;                         //проигрывание
end;
begin
timer1.interval:=10000;
Mediaplayer1.Filename:='music\2.wav';  //загрузка 2 wav файла
open;                    //проигрывание

Back.loadfromfile('im\fd.bmp');              //3 картинка
image1.canvas.draw(0,0,back);
end;
begin
Timer1.interval:=10000;
Mediaplayer1.FileName:='music\3.wav';     //3 wav файл
open;
end;
end;


Ошибки во 2 и 3 проигрываниях.И когда прога компилируется сразу загружается 3 картинка без музыки.
Заранее спасибо.
PM MAIL   Вверх
Satana
Дата 25.3.2005, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
ну тебе нада использовать три таймера походу, потому что свойство interval означает через какой промежуток времени будет срабатывать таймер и больше ничего вот у тебя и срабатывает через 10 секунди открывет третью картинку.
ЗЫ а музон не играет потому что тебе помимо опен нада еще и плей вызвать smile

Это сообщение отредактировал(а) Satana - 25.3.2005, 23:36


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Dr.No_xXx
Дата 25.3.2005, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
А поточнее насчет play можно
PM MAIL   Вверх
FRAGNATIC
Дата 25.3.2005, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
чего уж точнее
mediaplayer1.Play
PM MAIL   Вверх
Dr.No_xXx
Дата 25.3.2005, 23:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
то есть надо
Код

mediaplayer1.FileName:='';
open;
Mediaplayer1.play;

Так?
PM MAIL   Вверх
Satana
Дата 25.3.2005, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
ага именно так


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
FRAGNATIC
Дата 25.3.2005, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
FileName - имя файла
Open - открывает файл указаный в свойстве FileName
Play - проигрывает файл
Цитата

Код


with //Загрузка 1 wav файла
Mediaplayer1 do
begin
Mediaplayer1.FileName:='music\1.wav';
open; //проигрывание
end;


если уже пишес с With Mediaplayer1 то тогда не надо указывать Mediaplayer1 просто пиши FileName:='music\1.wav';
тоесть так

Код

with //Загрузка 1 wav файла
Mediaplayer1 do
begin
FileName:='music\1.wav';
open; //проигрывание
end;
PM MAIL   Вверх
Dr.No_xXx
Дата 25.3.2005, 23:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
спасибо.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0532 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.