randomize

[sunrise]

Hallo

Kleine frage zu randomize. ich habe hier diese Mediaplayer procedur die eine resource datei abspielt

Delphi-Quellcode:

procedure test;
   var
 rStream: TResourceStream;
 fStream: TFileStream;
 fname: string;
 begin

 fname := ExtractFileDir(Paramstr(0))+'test1.mp3';
 rStream := TResourceStream.Create(hInstance, 'test1', RT_RCDATA) ;
 try
  fStream := TFileStream.Create(fname, fmCreate) ;
  try
   fStream.CopyFrom(rStream, 0) ;
  finally
   fStream.Free;
  end;
 finally
  rStream.Free;
 end;

 MediaPlayer1.Close;
 MediaPlayer1.FileName:=fname;
 MediaPlayer1.Open;
 MediaPlayer1.Play;

     end;

Dazu habe ich 16 Resourcen ,jede resource ist eine kleine Audio datei. Wie kann ich nun via Randomize die prozedur umschreiben das jedesmal eine andere resource datei abgespielt wird?
Stehe gerade echt auf dem schlauch. Hoffe jemand von euch kann mir weiterhelfen... :cry:

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - nächstes mal bitte die richtigen Tags verwenden - Mfg, SirThornberry[/edit]

[nahpets]

Hallo,

meinst Du sowas?

Delphi-Quellcode:

fname := ExtractFileDir(Paramstr(0))+'test' + IntToStr(Random(15) + 1) + '.mp3';

[sunrise]

Hallo

danke für deine antwort.hm... eigentlich auch nicht schlecht.Aber dein code würde davon ausgehen das sich alle audio dateien in dem ordner befinden. Ich habe sie als resourcen im projekt. :(

[nahpets]

Schön, dann eben so:

Delphi-Quellcode:

rStream := TResourceStream.Create(hInstance, 'test' + IntToStr(Randomize(15) + 1), RT_RCDATA);

Und wofür ist fName in Deinem Quelltext?

[MSSSSM]

Der will das wohl temporäer entpacken.

[sunrise]

jap, fname steht für filename.
Ich bekomme bei deinem Code einen Error "nahpets". Delphi6: too many actual parameters.

[nahpets]

Sorry muss random und nicht randomize heißen.

Aber wenn Du die Recource entpackst, solltet Du nur einen Zufall einbauen:

Delphi-Quellcode:

Var
  sZufall : string;

begin
...
  sZufall := 'test' + IntToStr(Random(15) + 1);
  rStream := TResourceStream.Create(hInstance, sZufall, RT_RCDATA) ;
  fname := ExtractFileDir(Paramstr(0))+sZufall + '.mp3'; 
...

[sunrise]

Vielen dank...

Ich verstehe das nicht, warum bekomme ich nun error,s von wegen , res. not found....

[sirius]

Groß- und Kleinschreibung beachtet?