Sound in Anwendung

[Balu der Bär]

Zitat:

Zitat von Tommy1988

brcc32 C:\Dokumente und Einstellungen\Administrator\Desktop\Neuer Ordner\sound.rc

dann sagt der in der konsole mir:

could not openinput file C:\Dokumente.RC

Versuche es mal mit einem Ordner ohne Leerzeichen.

[SirThornberry]

oder setzte den zusammenhängenden Pfad in Anführungszeichen damit die Anwendung auch weiß das es zusammengehört und nicht mehrere Parameter sind.

[Tommy1988]

tja alt bekanntes problem

[Fehler] E2161 RLINK32: Unsupported 16bit resource in file "C:\Dokumente und Einstellungen\Administrator\Desktop\123\MP3Resourc e.res"

[Matze]

Das hast du doch hier bereits gefragt.

Wenn du das über meinen geschilderten Weg macht, müsste alles funktionieren. Bei mir tut es das zumindest.

[MrKnogge]

Wie siht denn deine rc-Datei aus ?

[Tommy1988]

Delphi-Quellcode:

MP3Ressource MP3 "sound.mp3"

das ist die rc datei, diese habe ich konvertiert
in eine res datei.

kannst du mir nicht die fertige unit schicken?
oder das ganze projekt ?

achso mmsystem habe ich noch eingebunden

[Tommy1988]

astatt eine 16 bit habe ich einfach mal eine 32 bit res datei gemacht .. so.. kein fehler mehr,

aber mit PlaySound(PChar('MP3Ressource'), hInstance, snd_aSync or snd_Resource); wird auf buttinklick einfach NIX abgespielt !!

[turboPASCAL]

PlaySound spielt KEINE mp3's ab sondern nur Waves (*.wav).

[Tommy1988]

so nochmal probiert mit ner wave.. klappt trotzdem nicht..

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R sound.RES}

procedure TForm1.Button1Click(Sender: TObject);
begin

PlaySound(PChar('1'), hInstance, snd_Resource or snd_aSync);
end;

end.

rc-datei:

Delphi-Quellcode:

1 WAVE "sound.wav"

[turboPASCAL]

Delphi-Quellcode:

PlaySound(MAKEINTRESOURCE(1), hInstance, SND_RESOURCE or SND_ASYNC);

Versuchs mal.

Oder guck dir das Demo an.