---

Hej gruppe,

Jeg har længe eksperimenteret med at optage lyd vha. Delphi.
(Jeg bruger delphi 5)
Jeg har ikke kunne få det til at lykkes. Er der nogen der kender til nogle
komponenter eller lign. der kan gøre jobbet?
Eller måske en eksempelprogram til det?

Mvh
Thomas

---

Ikke at jeg nogensinde har brugt den, men den medfølgende TMediaPlayer har
da en record-knap - mon ikke denne kan bruges?


"Thomas Damgaard" <foo@fjerritslev-gym.dk> wrote in message
news:3c2f5897$0$94841$edfadb0f@dspool01.news.tele.dk...
> Hej gruppe,
>
> Jeg har længe eksperimenteret med at optage lyd vha. Delphi.
> (Jeg bruger delphi 5)
> Jeg har ikke kunne få det til at lykkes. Er der nogen der kender til nogle
> komponenter eller lign. der kan gøre jobbet?
> Eller måske en eksempelprogram til det?

---

> Ikke at jeg nogensinde har brugt den, men den medfølgende TMediaPlayer har
> da en record-knap - mon ikke denne kan bruges?
>

Nej det kan man ikke...

---

Jo det kan man godt. Jeg har et miniprogram, som virker.
Men vi kan jo ikke vise hele programmer her?? Skal jeg maile direkte og
vedhæftet??

hilsen Niels Aage

"Thomas Damgaard" <foo@fjerritslev-gym.dk> skrev i en meddelelse
news:3c3b090e$0$89065$edfadb0f@dspool01.news.tele.dk...
> > Ikke at jeg nogensinde har brugt den, men den medfølgende TMediaPlayer
har
> > da en record-knap - mon ikke denne kan bruges?
> >
>
> Nej det kan man ikke...
>
>
>
>

---

> Jo det kan man godt. Jeg har et miniprogram, som virker.
> Men vi kan jo ikke vise hele programmer her?? Skal jeg maile direkte og
> vedhæftet??
>

Jatak, men det er stadig ikke så godt, for det kan ikke bruge buffers svjh.
Men mail det gerne.

---

"Niels Aage Schmidt" <nielsaa@mail.dk> skrev i en meddelelse
news:3c3b0b1f$0$240$edfadb0f@dspool01.news.tele.dk...
> Jo det kan man godt. Jeg har et miniprogram, som virker.
> Men vi kan jo ikke vise hele programmer her?? Skal jeg maile direkte og
> vedhæftet??
>
> hilsen Niels Aage

Her er et klip af de enkle procedurer, men selve indstillingen af
TMediaPlayer ses ikke her:

procedure TForm1.Hent1Click(Sender: TObject);
begin
IF OpenDialog1.Execute then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
end;
End;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
With MediaPlayer1 DO IF Filename>'' Then Gauge1.Progress:=100*Position div
Length;
end;

procedure TForm1.Ny1Click(Sender: TObject);
begin
MediaPlayer1.FileName :='tom.Wav';
MediaPlayer1.Open;
end;

procedure TForm1.Gem1Click(Sender: TObject);
begin
IF SaveDiaLog1.Execute Then
Begin
MediaPlayer1.Filename:=SaveDialog1.FileName;
Mediaplayer1.Save;
End;
end;

Håber de kan bruges til noget.

vh Niels Aage

---

Find Hori's DirectX på nettet, og installer dette i Delphi
http://www.yks.ne.jp/~hori/DelphiX-e.html

Det understøtter stort set alt multimedie sjov, incl forcefeedback udstyr.

Der er også et eksempel på hvordan du optager lyd.


"Thomas Damgaard" <foo@fjerritslev-gym.dk> wrote in message
news:3c2f5897$0$94841$edfadb0f@dspool01.news.tele.dk...
> Hej gruppe,
>
> Jeg har længe eksperimenteret med at optage lyd vha. Delphi.
> (Jeg bruger delphi 5)
> Jeg har ikke kunne få det til at lykkes. Er der nogen der kender til nogle
> komponenter eller lign. der kan gøre jobbet?
> Eller måske en eksempelprogram til det?
>
> Mvh
> Thomas
>
>