Мне нужна программа воспроизведение текста с Memo

[Mee_K]

Программа должна выполнять следующее:
-После ввода текста в Memo и нажатия на кнопку, запускает аудиофайлы букв поочерёдно с небольшим интервалом (Я знаю, что String для Memo не супер и я знаю, что у меня ошибка в "UpperCase(Memo1.Text[i])", но я не сильно шарю в этом, также не знаю, куда разместить запуск таймера, подскажите)

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
P:PChar;
S:String;
i:integer;
begin

S:=Memo1.Text;
P:=PChar(S);
For i:=1 to length(S) do
If (UpperCase(S[i])>='A') and (UpperCase(S[i])<='Z') then
sndPlaySound('C:\Users\Turan\Desktop\Nikita\Sound\'+UpperCase(Memo1.Text[i])+'\'+UpperCase(Memo1.Text[i])+'.wav', SND_ASYNC);

end;
end.

[Serge_Bliznykov]

а зачем Вам таймер?
Поставьте SND_SYNC и sndPlaySound у Вас будет останавливать основной поток выполнения, пока воспроизводится звуковой файл

{ Flags are:
SND_SYNC =0 = Start playing, and wait for the sound to finish
SND_ASYNC =1 = Start playing, and don't wait to return
SND_LOOP =8 = Keep looping the sound until another sound is played }

p.s. Вы не программу, которая проговаривает текст пытаетесь изобрести?

[Mee_K]

Да) Поможете с кодом?

[Alex11223]

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

String для Memo не супер

Это как и что с ним не так?

[digitalis]

А ничего, что звук, соответствующий одной и той же букве, в зависимости от контекста будет разным? Для каждой буквы д.б. несколько звуковых "отрезков", склеивать которые придется в зависимости от ее позиции в слове, от соседних букв. Хотя если проговаривать по буквам, то без проблем - это будет синтезатор с ограниченным словарем. "Эс Эм Е Ха"
В общем, "Говорилка" и прочие читалки нервно курят, чувствуя грядущую конкуренцию

[Serge_Bliznykov]

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

Поможете с кодом?

S:=Memo1.Text;
P:=PChar(S);
For i:=1 to length(S) do
If (UpperCase(S[i])>='A') and (UpperCase(S[i])<='Z') then begin
   sndPlaySound('C:\Users\Turan\Desktop\Nikita\Sound\'+UpperCase(S[i])+'.wav', SND_SYNC);
   sleep(60); // задержка между соседними буквами
end;

p.s. буквы и звуки - это совсем разные вещи. Так просто "говорилку" сделать не получится. я думаю, что ту какофонию, что будет выдавать программа, речь назвать вообще нельзя.

p.s. вместо Sleep можно использовать процедуру Delay (взял тут):

procedure Delay(ms: CARDINAL);
var
   n: cardinal;
begin
  n := GetTickCount + ms;
  while getTickCount <= n do Application.ProcessMessage;
end;

[Mee_K]

Показывает ошибку в типе файлов, помогите

[Mee_K]

Я отправил скриншот, может Вы знаете какой тип данных использовать или поменять прям в коде тип, если да, то на какой и как?

[Serge_Bliznykov]

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

если да, то на какой и как?

sndPlaySound(Pchar('C:\Users\Turan\Desktop\Nikita\Sound\'+UpperCase(S[i])+'.wav'), SND_SYNC);

[Mee_K]

Спасибо, запускает, но не хочет воспроизводить звук, звук ошибки только воспроизводится ровно то количество раз, сколько букв я ввёл. Я подумал, что из-за пути к файлу звука, но нет, я перепроверил и нифига