Конференция "Media" » Как озвучить символы [D7]
 
  • Choose_Goose (07.09.18 21:33) [0]
    Всем привет! Помогите как сделать так что бы Delphi озвучивала символы (точка, тире) (как в морзе) (например я написал текст •−−• •−• •• •−− • − отправил и он автоматически озвучил) (надеюсь понятно описал свой вопрос)
  • RWolf © (08.09.18 19:39) [1]

    uses MMSystem;

    ………

    s := '.--. .-. .. .-- . -';

    for i := 1 to Length(s) do begin
     case s[i] of
     '.':
       PlaySound('tochka.wav', 0, 0);
     '-':
       PlaySound('tire.wav', 0, 0);
     ' ':
       PlaySound('pause.wav', 0, 0);
     end;
    end;

  • text (17.10.18 11:57) [2]
    >RWolf ©   (08.09.18 19:39) [1]
  • text (17.10.18 11:57) [3]
    >Choose_Goose   (07.09.18 21:33) [0]
    > Всем привет! Помогите как сделать так что бы Delphi озвучивала символы (точка, тире) (как в морзе) (например я написал текст •• •• •• • •  отправил и он автоматически озвучил) (надеюсь понятно описал свой вопрос)
  • text (17.10.18 11:57) [4]
    >RWolf ©   (08.09.18 19:39) [1]
    >
    > uses MMSystem;
    >
    > ………
    >
    > s := '.--. .-. .. .-- . -';
    >
    > for i := 1 to Length(s) do begin
    >  case s[i] of
    >  '.':
    >    PlaySound('tochka.wav', 0, 0);
    >  '-':
    >    PlaySound('tire.wav', 0, 0);
    >  ' ':
    >    PlaySound('pause.wav', 0, 0);
    >  end;
    > end;
 
Конференция "Media" » Как озвучить символы [D7]
Есть новые Нет новых   [103778   +18][b:0.001][p:0.001]