Dateinamen variabel angeben bei mcisendstring

[clarity]

Hi zusammen!
Hab folgendes Problem: HAb des Source von overmoon aus dem Tutorial verwendet, um Sounds aufzunehmen.

Das sieht dann für das speichern bei mir so aus

Code:

procedure TSpectrumForm.Button5Click(Sender: TObject);

begin
mciSendString('STOP mySound',nil,0,Handle);
mciSendString('SAVE mySound "c:\datei.wav"',nil,0,Handle);
mciSendString('CLOSE mySound',nil,0,Handle);
 end;

Das funzt gut :P

wie kann ich es nun erreichen, das ich einen beliebigen Dateinamen, bzw einen durch eine Schleife nummerierten Dateinamen (datei1.wav,datei2.wav,datei3.wav...) zum speichern angeben kann. HAbs so versucht, geht aber net

Code:

 
procedure TSpectrumForm.Button5Click(Sender: TObject);
var f: string;

begin
mciSendString('STOP mySound',nil,0,Handle);

   F := 'SAVE mySound '+'"'+'c:\datei'+inttostr(durchl)+'.wav'+'"' ;
   LAbel1.caption:= f;
mciSendString('''+ f +''',nil,0,Handle);
     mciSendString('CLOSE mySound',nil,0,Handle);
    inc(durchl);//'durchl' bereits als integer angegeben
end;

KAnn mir jemand helfen :wall:

THX@all

[dizzy]

Versuch mal PChar(f)

\\edit:

Öööööhm:

Zitat:

Delphi-Quellcode:

mciSendString('''+ f +''',nil,0,Handle);

Du übergibst hier den String '+ f +'. Das kann net klappen :) -> Du hast ein paar ' zu viel (oder 2 zu wenig, je nach dem wie mans sieht ;))

Probier mal:

Delphi-Quellcode:

mciSendString(f, nil, 0, Handle);

gruss,
dizzy

[clarity]

Danke, Klappt super!! :thumb: