TWebModuleにおける画像ファイルの場所について (ID:149041)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

AAA様
ありがとうございます。
返事が遅くなって申しわけありません。

実際は画像では無く音を鳴らしたかったので、
ご教示頂いたように、

OK.MP3 NG.MP3 を　http://www.motobit.com/util/base64-decoder-encoder.asp でコンバート後、OK.Text,NG.Textへ保存し、
プログラム内で読み込み、HTMLのsourceへ指定することで音を鳴らすことが出来ました。
ありがとうございます。

以下、参考までにソースの抜粋をあげておきます。

UsOKSO_Pr := TStringList.Create;
    UsNGSO_Pr := TStringList.Create;
    UsOKSO_Pr.LoadFromFile('OK.txt');
    UsNGSO_Pr.LoadFromFile('NG.txt');

UsOKSO_Pr. .Text ← 
UsNGSO_Pr.Text ←

UsSCRP_Pr := '  <script type="text/javascript">                            ' + CR +
                 '    function ring(ArSoundF) {                                ' + CR +
                 '      alert(ArSoundF)                                        ' + CR +
                 '      if (ArSoundF = ''OK'') {                               ' + CR +
                 '        alert("OK")                                          ' + CR +
                 '        document.getElementById("OKSound").play();           ' + CR +
                 '      } else {                                               ' + CR +
                 '        alert("NG")                                          ' + CR +
                 '        document.getElementById("NGSound").play();           ' + CR +
                 '      }                                                      ' + CR +
                 '    }                                                        ' + CR +
                 '  </script>                                                  ' + CR +
                 '  <audio id="OKSound" preload="auto">                        ' + CR +
                 '    <source src="data:audio/wav;base64,' + StringReplace(UsOKSO_Pr.Text,#13#10,'', [rfReplaceAll]) + '" type="audio/mp3" />' + CR +
                 '  </audio>                                                   ' + CR +
                 '  <audio id="NGSound" preload="auto">                        ' + CR +
                 '    <source src="data:audio/wav;base64,' + StringReplace(UsNGSO_Pr.Text,#13#10,'', [rfReplaceAll]) + '" type="audio/mp3" />' + CR +
                 '  </audio>                                                   ';

←解決時は質問者本人がここをチェックしてください。

戻る