![]() |
Sound über Webbrowser (Client) abspielen lassen
Hallo,
Ich habe folgendes Problem, bei dem ihr mir hoffentlich helfen könnt: ich muss einen Status meiner Anwendung über einen Webbrowser vefügbar machen. Der Status gibt zB.: den Prozentfortschritt einer Prüfung an, und welche Prüfung gerade aktiv ist. Dafür nutzte ich TidHTTPServer. Das sieht ungefähr so aus:
Delphi-Quellcode:
Also ich veranlasse, über Javascript das der Browser die Seite zyklisch neu lädt, damit er den Fortschritt neu einliest:
procedure TFrmMainGUI.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); var bgColor:string; piepen:string; begin bgColor:= '<body bgcolor="white">'; piepen:=' <embed src="lib/beep.wav" width="300" height="200"></embed> '; case PruefStatus.Prozent of 1..99 :begin bgColor:= '<body bgcolor="yellow">'; end; end; if ( PruefStatus.Pruefung = 'Display und Tasten - Test...' ) then begin bgColor:= '<body bgcolor="blue">'; end; // Prüfung erfolgreich und zuende!! if ( PruefStatus.Prozent = 100 ) then begin bgColor:= '<body bgcolor="green">'; piepen:=' <embed src="lib/beep.wav" width="300" height="200"></embed> '; end; // Keine Prüfung aktiv!! if ( PruefStatus.Prozent = 0 ) then begin bgColor:= '<body bgcolor="white">'; end; AResponseInfo.ContentText := '<HTML>'+ '<HEAD>'+ '<title>Online-Prüf-Überwachung</title>' + '<META HTTP-EQUIV=refresh '' content=''5;''>'+ '</HEAD>'+ '<BODY onLoad="window.resizeTo(600, 400)">'+ //' <body bgcolor="#000000">'+ //'<body bgcolor="rgb(255,255,255)">'+ bgColor+ '<font size=7>'+ PruefStatus.TextProzent+'</font>'+ ' <font size=8>'+ PruefStatus.Pruefung+'</font>'+ piepen+ '</BODY>'+ '</HTML>'; end; weiß nicht ob das die beste Lösung ist, aber zumindest praktikabel. Meine Frage ist nun, ich würde gerne auf dem Clientbrowser einen Sound abspielen lassen, z.B.: wenn meine Prüfung einen Fehler hat, einen Fehlersound, und wenn sie erfolgreich ist einen Erfolgreich-Sound. Wie kann man soetwas am besten lösen? Gruß an alle! :-D |
Re: Sound über Webbrowser (Client) abspielen lassen
*push*
Hat keiner eine Idee?! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:13 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz