Sound-Aufnahme speichern-Weiss das denn niemand?

[PigfaceJoe]

Also ich will eigentlich nur eine Voice-Aufnahme starten, was auch klappt. Beim beenden soll die datei gespeichert werden:

Delphi-Quellcode:

mciSendString('STOP mySound',nil,0,Handle);
mciSendString('SAVE mySound ',PCHar(ExtractFilePath(Paramstr(0))+'\'+'Aufnahmen\'+edit1.text+'.wav'),0,Handle);

mciSendString('CLOSE mySound',nil,0,Handle);

Das lässt sich compilieren , klappt aber nicht.In edit1.text steht der name, den der Benutzer eingeben kann, ansonsten soll die datei dann in das Programmverzeichnis gespeichert werden.
Weiss jm wieso das nicht klappt?
Hab vorher noch nie damit gearbeitet, deswegen kanns sein das der Fehler ziemlich blöd ist!

[Klaus01]

Hallo,

vielleicht hilft Dir die Lektüre dieses Threads etwas weiter - > http://www.delphipraxis.net/internal...ct.php?t=32223

Grüße
Klaus

[PigfaceJoe]

Ne , leider lässt sichs compilieren, speichert aber nix in meinen Ordner:

Delphi-Quellcode:

var f:string;
begin
f:='SAVE mySound '+ExtractFilePath(Paramstr(0))+'\'+'Aufnahmen\'+edit1.text+'.wav'+'"' ;//ExtractFilePath(Paramstr(0))+'\'+'Aufnahmen\'+edit1.text+'.wav';
mciSendString('STOP mySound',nil,0,Handle);
mciSendString(Pchar(f), nil, 0, Handle); //mciSendString('SAVE mySound ',f, nil, 0, Handle,nil,0,Handle);//mciSendString(f, nil, 0, Handle);
mciSendString('CLOSE mySound',nil,0,Handle);

Wieso klaptts nicht??? Ich versths beim besten willen nicht!

[inherited]

Es klappt wahrscheinlich nicht, weil ExtractFilePath schon ein "\" anhängt.

[Christian Seehase]

Moin Joe,

Du hast da ein " vergessen:

Code:

f:='SAVE mySound [color=red][b]"[/b][/color]'+ExtractFilePath(Paramstr(0))+'\'+'Aufnahmen\'+edit1.text+'.wav'+'"'

@Nicolai:

Zitat von inherited:

Es klappt wahrscheinlich nicht, weil ExtractFilePath schon ein "\" anhängt.

Das interessiert Windows eigentlich nicht. Pfadtrenner (\ und /) kannst Du in beliebiger Anzahl und Kombination hintereinander schreiben (solange MAX_PATH) nicht überschritten wird). Windows sieht dass dann als ein Zeichen an.

[PigfaceJoe]

Ich habs wie folgt geändert:Keine datei im Verzeichnis Aufnahmen!!Ich bin am Verzweifeln!

Delphi-Quellcode:

f:='SAVE mySound "'+ExtractFilePath(Paramstr(0))+'\'+'Aufnahmen\'+edit1.text+'.wav'+'"' 

mciSendString('STOP mySound',nil,0,Handle);
mciSendString(PChar('SAVE mysound ' + f +edit1.text+'.wav'), nil, 0, Handle);
mciSendString('CLOSE mySound',nil,0,Handle);

Kann ja eigentlich net so schwer sein ^^
OHHH DUMMER FEHLER:
So muss es sein:

Delphi-Quellcode:

f:='SAVE mySound "'+ExtractFilePath(Paramstr(0))+'\'+'Aufnahmen\'+edit1.text+'.wav'+'"'   ;

mciSendString('STOP mySound',nil,0,Handle);
mciSendString(PChar(f), nil, 0, Handle);
mciSendString('CLOSE mySound',nil,0,Handle);

Vielen Dank für eure Hilfe!!

[Christian Seehase]

Moin Joe,

was mir übrigens noch auffällt:
mciSendString ist eine Funktion, die als Rückgabewert einen Fehlercode liefert.
Den solltest Du auch mal auswerten