Как указать PlaySound текущую директорию - Помощь студентам

StrToFloat · 08.12.2009, 00:28

GetCurrentDir возвращает String, а PlaySound требует PAnsiChar.

Как быть?

Нужно воспроизвести файл 1.wav находящийся в одной папке с прогой.

Neeter · 08.12.2009, 00:30

Используйте

Код:

PChar(ExtractFilePath(ParamStr(0)) + '1.wav)

StrToFloat · 08.12.2009, 07:28

Большое спасибо! Буду продолжать изучать работу с файлами

SnowLeopard · 11.01.2010, 16:04

Можно поподробнее о функции Extract у PChar'а? А то мне нужно считать значение поля в DBGride и открыть в PlaySounde файл с соответствующим именем.

Пепел Феникса · 11.01.2010, 16:07

а что именно не понятно?

SnowLeopard · 11.01.2010, 16:13

Всё! Разобрался сам! Помогла следующая конструкция:

procedure TForm1.Button1Click(Sender: TObject);
var i:PAnsiChar;
begin
i:=PAnsiChar(ADOTable1.Fields[0].AsString+'.wav');
PlaySound(i,0,snd_sync);
end;

Пепел Феникса · 11.01.2010, 16:16

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin;
PlaySound(PAnsiChar(ADOTable1.Fields[0].AsString+'.wav'),0,snd_sync);
end;

а так короче

SnowLeopard · 11.01.2010, 16:20

О, и вправду!

Спасибо! По большому счёту, Вы, Пепел Феникса, мне сегодня помогли проделать большую работу! Премного благодарен!

Arigato · 11.01.2010, 16:20

Цитата:

Сообщение от SnowLeopard

Можно поподробнее о функции Extract

ExtractFilePath - извлекает полный путь из полного имени файла.
А, вообще, для таких вопросов есть встроенный хэлп.

08.12.2009, 00:30	#2
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Используйте Код: `PChar(ExtractFilePath(ParamStr(0)) + '1.wav)` Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

11.01.2010, 16:07	#5
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	а что именно не понятно? Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

11.01.2010, 16:16	#7
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	Код: `procedure TForm1.Button1Click(Sender: TObject); begin; PlaySound(PAnsiChar(ADOTable1.Fields[0].AsString+'.wav'),0,snd_sync); end;` а так короче Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как определить директорию %windir%?	Romany4	Общие вопросы Delphi	30	02.09.2009 16:32
Как сохранить текущую игру ?	INCIC	Gamedev - cоздание игр: Unity, OpenGL, DirectX	12	29.06.2009 21:20
PlaySound как разобратся?	Alex_09	Мультимедиа в Delphi	3	25.03.2009 19:56
Как изменить директорию в FileListBox	oduvan4ik	Общие вопросы Delphi	1	01.03.2009 13:54

11.01.2010, 16:04	#4
SnowLeopard Новичок Джуниор Регистрация: 11.01.2010 Сообщений: 5	Можно поподробнее о функции Extract у PChar'а? А то мне нужно считать значение поля в DBGride и открыть в PlaySounde файл с соответствующим именем.

11.01.2010, 16:13	#6
SnowLeopard Новичок Джуниор Регистрация: 11.01.2010 Сообщений: 5	Всё! Разобрался сам! Помогла следующая конструкция: procedure TForm1.Button1Click(Sender: TObject); var i:PAnsiChar; begin i:=PAnsiChar(ADOTable1.Fields[0].AsString+'.wav'); PlaySound(i,0,snd_sync); end;

11.01.2010, 16:20	#8
SnowLeopard Новичок Джуниор Регистрация: 11.01.2010 Сообщений: 5	О, и вправду! Спасибо! По большому счёту, Вы, Пепел Феникса, мне сегодня помогли проделать большую работу! Премного благодарен!