Sounds

[hans101]

Hy

Ich müsste für das Jump'n'Run game noch wissen, wie ich sounds (welches format ist erst mal egal) in delphi einbauen kann...

Ich würde mich sehr über eure hilfe freuen.

:wiejetzt:

[dahead]

Such doch mal hier im Forum nach "sndPlaysound" bzw. "Playsound".

Delphi-Quellcode:

uses
  MMSystem;
...
      sndPlaySound(@fSoundFilename[1], SND_ASYNC); //asynchron abspielen
...

[hans101]

:wiejetzt: , brauch man da ne Procedur, oder wie muss ich den Pfad des Sounds angeben???????????? :wiejetzt:

[turboPASCAL]

Delphi-Quellcode:

sndPlaySound(PChar, Flags)

Delphi-Quellcode:

uses mmsystem;

procedure Play(fSoundFilename: String);
begin
  sndPlaySound(PChar(fSoundFilename), SND_ASYNC);
end;

sndPlaySound verlangt einen PChar-Typ, die schreibweise @fSoundFilename[1] ist ein String der als Pointer angegeben ist.

[lebbesch007]

ich glaube er wollte wissen, ob man den Pfad noch angeben muss, ich kenne mich aber damit auch nicht aus :roll:

[igel457]

Ja einfach Pfad zur WAV angeben:

Delphi-Quellcode:

      sndPlaySound('C:\Windows\Media\Ding.wav', SND_ASYNC); //asynchron abspielen

Problem ist nur das der Pfad vom Typ PChar und nicht vom Typ String ist.
Deshalb zum Beispiel:

Delphi-Quellcode:

var
  s:string;
begin
  s := 'C:\blabla.wav';
  sndPlaySound(PChar(s), SND_ASYNC); //asynchron abspielen 
end;

Hoffe geholfen zu haben

[lebbesch007]

Kann man den Pfad auch so angeben, dass er die Datei nimmt, die im Ordner der .exe ist???,also nicht C:..... :gruebel:

[dahead]

IncludeTrailingPathDelimiter(ExtractFileDir(ParamS tr(0))) liefert dir den Pfad der Exe mit abschließendem Backslash.

Du kannst auch Application.Exename gepaart mit ExtractFileDir verwenden.

Es ist meist sinnvoll sich gleich beim Programmstart dieses Verzeichnis für die ein oder andere Operation zu merken.

[lebbesch007]

so dann ungefähr (s wird später als sound verwendet) :

s := 'IncludeTrailingPathDelimiter(ExtractFileDir(Param Str(0)))\m2.wav'; ???

[dahead]

nein, eher so:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  ...
  private
    ...
    fAppDir: String;
    ...
  public
   ...
  end;

...
procedure TForm1.FormCreate(Sender: TObject);
begin
  fAppDir           := IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)));
...
end;

also auf jeden Fall ohne die umschließenden '-Zeichen. Die brauchst du nur, wenn du der String-Variable einen bestimmten String zuweisen willst. Bsp.:

Delphi-Quellcode:

var
 fString: String;
begin
  fString := 'Dies ist ein Test';
end;

Weist du der String-Variablen (also fAppDir oder fString) einen String zu, dann kannst du die logischerweise weglassen.

Außerdem ist durch den Befehl IncludeTrailingPathDelimiter beim String fAppDir bereits ein Backslash dran. Du fügst ihn unten aber doppelt hinzu.

edit: bisschen ausführlicher.