| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Слайд шоу не работает [D2005, XP]
Ramzes001 © (2008-03-31 11:09:00)Всем доброго времени суток!
Почти доделал программу для просмотра изображений и записи на них звука, остался последний штрих: слайд шоу. Но тут меня поджидал сюрприз: хотя звук воспроизводится, заголовок окна меняется, но сами картинки не показываются Там всегото две переменные в цикле, а всё равно глюк(((
Помогите кто чем может, я реально запутался((((( Уже кровавую оскомену набил от этого кода(((((((
with Image1.Picture do
begin
//Загрузка самой картинки
LoadFromFile(filepach + guber[prokrut]);
//Развёртование окна вовсю ширину, просто при загрузки картинки оно съежает вниз
WindowState := wsMaximized;
//Наполнение заголовка названием фотки
Caption:=guber[prokrut];
//Дальше идёт воспроизведение звука
GetMem(PCh,Length(filepach + guber[prokrut] + '.wav')+1);
StrPCopy(PCh,filepach + guber[prokrut] + '.wav');
PlaySound(PCh,0, SND_FILENAME or SND_SYNC);
//...............................................................
//Прибавление к счётчику
prokrut:=prokrut+1;
//Освобождаем память
FreeMem(PCh)
end;
end;
Заранее спасибо!
Ramzes001 (2008-03-31 20:57:00) [21]
> Один из грехов он тебе отпустит, если ты не будешь фривольно
> манипулировать счетчиком итераций for-цикла.
Проблема в том, что счётчик работает нормально, заголовки формы меняются, звук воспроизводится, но фото не грузится.
> Нууууу... я думаю... не страдать фигней, а использовать
> PowerPoint... куда круче и эффектней... он своих денег стоит.
> ...
Блин, я месяц эту прогу писал, а слайд шоу-это всего лишь примочка.
Сергей М. (2008-03-31 20:49:00) [22]
> Ramzes001 © (31.03.08 20:45) [8]
Один из грехов он тебе отпустит, если ты не будешь фривольно манипулировать счетчиком итераций for-цикла.
Palladin (2008-03-31 20:47:00) [23]Нууууу... я думаю... не страдать фигней, а использовать PowerPoint... куда круче и эффектней... он своих денег стоит....
Ramzes001 (2008-03-31 20:45:00) [24]
> Ты еще умудрился надругаться над английсиким и над Паскалем.
Так скажите, что я должен сделать, чтоб Великий Бог Паскаля меня простил?
Сергей М. (2008-03-31 20:41:00) [25]Ты еще умудрился надругаться над английсиким и над Паскалем.
Ramzes001 (2008-03-31 20:35:00) [26]Приношу свои извинения за издевательство над русским языком, вот полный код функции:
procedure TformMain.TplayClick(Sender: TObject);
var
i: word;
PCh: Pchar;
begin
for I :=prokrut to neve do
begin
with Image1.Picture do
begin
//Загрузка самой картинки
LoadFromFile(filepach + guber[prokrut]);
//Развёртывание окна во всю ширину, просто при загрузке картинки оно съезжает вниз
WindowState := wsMaximized;
//Наполнение заголовка названием фотки
Caption:=guber[prokrut];
//Дальше идёт воспроизведение звука
GetMem(PCh,Length(filepach + guber[prokrut] + '.wav')+1);
StrPCopy(PCh,filepach + guber[prokrut] + '.wav');
PlaySound(PCh,0, SND_FILENAME or SND_SYNC);
//...............................................................
//Прибавление к счётчику
prokrut:=prokrut+1;
//Освобождаем память
FreeMem(PCh)
end;
end;
end;
Помогите бедному ламеру(((((((
Denis__ (2008-03-31 13:11:00) [27]Удалено модератором
Kolan (2008-03-31 11:22:00) [28]> две переменные в цикле,
Цикла не видно.
Игорь Шевченко (2008-03-31 11:19:00) [29]А кроме него приводить полный код. С исправленными грамматическими ошибками
Ramzes001 (2008-03-31 11:17:00) [30]
> <Цитата>
>
>
> Игорь Шевченко © (31.03.08 11:12) [1]
> РУССКИЙ УЧИТЬ
А кроме него?
Игорь Шевченко (2008-03-31 11:12:00) [31]РУССКИЙ УЧИТЬ
| |
Страницы: 