Einzelnen Beitrag anzeigen

Benutzerbild von Dunkelbunt27
Dunkelbunt27

Registriert seit: 10. Aug 2010
232 Beiträge
 
Delphi XE Professional
 
#4

AW: Tastenton bei Tastendruck

  Alt 24. Sep 2010, 16:37
Danke für die Antworten,
ich probiere beide aus.

Ergebnis dann im EDIT =)

EDIT:
Ich habe das Nummern-Sprechprogramm versucht.
Ersteinmal will ich fragen ob es nur bei mir so ist, dass die Wav Dateien irgendwie abgehackt klingen also Fün.... statt Fünf.
Außerdem:
bei mir kommt ersteinmal nur ein Beep Ton =(
Schreibe ich meine Zahlen in ein EditFeld, passiert auch nichts =(
Woran kanns liegen?

Ich habe genau den Quelltext benutzt...
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mmSystem, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ApplicationPath: string; // Hilfsfunktion
begin
   Result := ExtractFilePath(ParamStr(0));
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
   s:string;
begin
   if Key in ['0'..'9'] then
   begin
      // Wave-Datei liegen im Unter-Verzeichnis "Wave"
      // also "0.wav" bis "9.wav"
      s := ApplicationPath+'Wave\'+ Key+'.WAV';
      PlaySound(PChar(s), 0, SND_FILENAME or SND_ASYNC);
   end;
end;

end.

Geändert von Dunkelbunt27 (24. Sep 2010 um 16:49 Uhr)
  Mit Zitat antworten Zitat