---

Hej

Jeg har en form med mediaplayer. Jeg spiller ind en lyd, lagrer den som
en wav fil og kommer så tilbage til min form med mediaplayer igen. Min
lyd ligger fortsat der når jeg klikker på Play.

Det ønsker jeg ikke; for jeg vil gerne have at mediaplayer skulle være
klar til at optage en helt ny lyd. Så hvordan kan jeg få min første lyd
væk fra hukommelsen? Jeg håber at nogen af dere mere erfarne kan hjælpe
mig med dette.

Jeg regner med at der skal ligge noget her som opfylder mit ønske:

procedure TForm1.Button1Click(Sender: TObject);
begin
SaveDialog1.DefaultExt := 'WAV';
SaveDialog1.Filename := '*.wav';
if SaveDialog1.Execute then
MediaPlayer1.Filename := SaveDialog1.Filename;
// MediaPlayer1.KillMySoundPlease ;

end;


--
Med venlig hilsen
Arne

«...Put knot yore trust inn spel chequers »

---

Kan man sætte den til nil?

Mediaplayer1.filname := NIL;

Eller ingen ting baare

Mediaplayer1.filename := '';

Det sidste du gør i din kode er jo egentlig at sætte mediaplayer = Din
savede fil

Hvorfor gør du det ? - det betyder jo netop at din fil vil stå i din
mediaplayer


Arné <nix@127.0.0.1> skrev i en
nyhedsmeddelelse:MPG.14cabe27c0713d279896e6@news.cybercity.dk...
> Hej
>
> Jeg har en form med mediaplayer. Jeg spiller ind en lyd, lagrer den som
> en wav fil og kommer så tilbage til min form med mediaplayer igen. Min
> lyd ligger fortsat der når jeg klikker på Play.
>
> Det ønsker jeg ikke; for jeg vil gerne have at mediaplayer skulle være
> klar til at optage en helt ny lyd. Så hvordan kan jeg få min første lyd
> væk fra hukommelsen? Jeg håber at nogen af dere mere erfarne kan hjælpe
> mig med dette.
>
> Jeg regner med at der skal ligge noget her som opfylder mit ønske:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> SaveDialog1.DefaultExt := 'WAV';
> SaveDialog1.Filename := '*.wav';
> if SaveDialog1.Execute then
> MediaPlayer1.Filename := SaveDialog1.Filename;
> // MediaPlayer1.KillMySoundPlease ;
>
> end;
>
>
> --
> Med venlig hilsen
> Arne
>
> «...Put knot yore trust inn spel chequers »

---

In articleID <946dlk$at1$1@news.inet.tele.dk>,
«Ulrik Vadstrup» says...
> Kan man sætte den til nil?
>
> Mediaplayer1.filname := NIL;

Hej,

Jeg forklarer mig dårlig, sorry. Jeg indspiller (halooo) - lagrer den som
fil 1.wav. Går tilbage og indspiller (Arne) og lagrer som 2.wav. Når jeg
da trykker på play så får jeg "Halooo Arne" Altså den første indspilling
hænger der fortsat slik at den andre indspilling bliver adderet til den
første (append). Det er det jeg håber du ved hvordan jeg kan undgå.

Med venlig hilsen
Arne

---

Nu har jeg ikke lige ved hånden så jeg kan lave et forsøg - men måske noget
alla:


procedure TForm1.Button1Click(Sender: TObject);
begin
SaveDialog1.DefaultExt := 'WAV';
SaveDialog1.Filename := '*.wav';
If savedialog1.Execute then
Begin
MediaPlayer1.FileName := Savedialog1.FileName;
MediaPlayer1.Save;
MediaPlayer1.Close;
Mediaplayer1.FileName := '';
MediaPlayer1.Open;
end;
end;

Arné <nix@127.0.0.1> skrev i en
nyhedsmeddelelse:MPG.14d120c016040d199896ed@news.cybercity.dk...
> In articleID <946dlk$at1$1@news.inet.tele.dk>,
> «Ulrik Vadstrup» says...
> > Kan man sætte den til nil?
> >
> > Mediaplayer1.filname := NIL;
>
> Hej,
>
> Jeg forklarer mig dårlig, sorry. Jeg indspiller (halooo) - lagrer den som
> fil 1.wav. Går tilbage og indspiller (Arne) og lagrer som 2.wav. Når jeg
> da trykker på play så får jeg "Halooo Arne" Altså den første indspilling
> hænger der fortsat slik at den andre indspilling bliver adderet til den
> første (append). Det er det jeg håber du ved hvordan jeg kan undgå.
>
> Med venlig hilsen
> Arne

---

In articleID <949241$pnv$1@news.inet.tele.dk>,
«Ulrik Vadstrup» says...
> Nu har jeg ikke lige ved hånden så jeg kan lave et forsøg - men måske noget
> alla:

Tusind tak. Det hjalp mig i gang igen. Lige hvad jeg gerne øsnkede.

--
Med venlig hilsen
Arne