| Autor |
Beitrag |
Sira
Beiträge: 18
Windows XP
D3Prof, D6Prof
|
Verfasst: Fr 24.12.04 12:57
Hi leute möchte ganz einfach bein einem Klick einen sound abspielen lassen aber ich finde nicht die passende befehle...
Könnt ihrmir da unter die arme greifen?
Kann man auch mp3 datein abspielen lassen?.....Wäre sehr dankbar für dieses Weihnachtsgeschenck....thx to all
|
|
Elite
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Fr 24.12.04 13:26
 TMEDIAPLAYER oder PLAYSOUND
Das sind meiner Ansicht nach die gängigsten Methoden.
|
|
Sira 
Beiträge: 18
Windows XP
D3Prof, D6Prof
|
Verfasst: Fr 24.12.04 13:52
|
|
AXMD
Beiträge: 4006
Erhaltene Danke: 7
Windows 10 64 bit
C# (Visual Studio 2019 Express)
|
Verfasst: Fr 24.12.04 13:56
uses mmsystem 
AXMD
|
|
Sira
Beiträge: 18
Windows XP
D3Prof, D6Prof
|
Verfasst: Fr 24.12.04 14:06
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
| unit Stimmen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
uses mmsystem
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('SOUND1', Hinstance, SND_RESOURCE or SND_ASYNC)
end;
end. |
dann zeigt er mir diese fehlermeldung....was ist falsch?....
Folgende fehlermeldung
  Quelltext
1:
2:
3:
4:
5:
| [Fehler] Stimmen.pas(8): Deklaration erwartet, aber 'USES' gefunden
[Fehler] Stimmen.pas(29): Undefinierter Bezeichner: 'PlaySound'
[Fehler] Stimmen.pas(29): Undefinierter Bezeichner: 'SND_RESOURCE'
[Fehler] Stimmen.pas(29): Undefinierter Bezeichner: 'SND_ASYNC'
[Fataler Fehler] Gitarre.dpr(5): Verwendete Unit 'Stimmen.pas' kann nicht compiliert werden |
irgendetwas ist daran falsch..was
Moderiert von  Christian S.: Code- und Delphi-Tags hinzugefügt
|
|
LCS
Beiträge: 1305
Erhaltene Danke: 1
WIN 7, WIN 8
Delphi XE5, Delphi XE, Delphi 2007
|
Verfasst: Fr 24.12.04 14:13
Hi
stimmt, irgendwas ist falsch. 
Delphi-Quelltext
1:
2:
3:
4:
| uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, mmsystem;
|
Gruss Lothar _________________ Der BH ist für die Brust, der Plan ist für'n Ar...
|
|
Sira
Beiträge: 18
Windows XP
D3Prof, D6Prof
|
Verfasst: Fr 24.12.04 14:23
also so geht nun.....SaiteG.wav ist meine datei
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
| unit Stimmen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,mmsystem;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(PChar('SaiteG.wav'),SND_ASYNC);
end;
end. |
Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Fr 24.12.04 17:09
Nur so am Rande, dass du was hösrt ist purer Zufall. Ohne Pfadangabe sucht er die Datei im aktuellen Verzeichnis, was aber nicht zwingendermaßen, dein anwendungsverzeichnis sein muss.
|
|
