Aufnehmen mit Mediaplayer

[SkyLord]

Hallo,

bin nicht allzu bewandert im Programmiergeschäft, deshalb für einige Cracks vielleicht eine zu leichte Frage:
Ich suche folgende Befehle für den Mediaplayer in Delphi 5:

1. Einen Befehl wie mit dem ich aufnehmen kann (also Audio durch den Mikrophoneingang z.b.)

2. Einen Befehl wie ich die Audioaufnahme stoppe

3. Wie ich das aufgenommene abspeichere (Format ist mir egal...)

Danke schonmal für eure Hilfe

mfg
SkyLord

[Balu der Bär]

Hallo,

die TMediaPlayer ist wie gesagt nur ein Player, zum Aufnehmen von Sounds daher nicht geeignet.

Overmoon hat aber hier ein Tutorial verfasst, in dem es um das Aufnehmen geht.

[SkyLord]

Hmmm,

sorry bin zu neu im Delphi-programmieren um da durchzublicken.
Aber um es mal kurz auf den Punkt zu bringen:

Ich suche ein Programm mit dem man eine Zeit einprogrammieren kann zu der Audio aufgenommen wird und eine Zeit zu der die Aufnahme wieder abgebrochen wird (wobei letzteres nicht unbedingt notwendig ist).
Also in etwa so wie ein Videorecorder für Audio...

Gibt es so etwas vielleicht irgendwo als Programm?

Wäre nett wenn mir jemand dazu etwas sagen könnte.

Danke schonmal im Vorraus

mfg
SkyLord

[EWeiss]

Zitat von SkyLord:

Hmmm,

sorry bin zu neu im Delphi-programmieren um da durchzublicken.
Aber um es mal kurz auf den Punkt zu bringen:

Ich suche ein Programm mit dem man eine Zeit einprogrammieren kann zu der Audio aufgenommen wird und eine Zeit zu der die Aufnahme wieder abgebrochen wird (wobei letzteres nicht unbedingt notwendig ist).
Also in etwa so wie ein Videorecorder für Audio...

Gibt es so etwas vielleicht irgendwo als Programm?

Wäre nett wenn mir jemand dazu etwas sagen könnte.

Danke schonmal im Vorraus

mfg
SkyLord

Hätte ein kleines Tool was alles aufnimmt was über die Soundkarte geht.
Aber keinen Timer eingebaut welcher zur angegebenen Zeit die Aufnahme startet.

gruß

[EWeiss]

Zitat:

Hätte ein kleines Tool was alles aufnimmt was über die Soundkarte geht.
Aber keinen Timer eingebaut welcher zur angegebenen Zeit die Aufnahme startet.

Hmmm habs mal geändert
Kannst nun Recordstart und Recordstop eingeben.
Ist möglich das du die VB6Runtime Bibliothek installieren mußt das es läuft.
Ansonsten wird kein zusätzlicher Treiber oder ähnliches benötigt.

gruß

[Sunlight7]

Warum sollte der TMediaPlayer nicht aufnehmen können?
Der nutzt doch die MCI Treiber, und der MCI_WAVE kann aufnehmen.
Wozu wäre dann der Record Button da?
Für den Mic brauchst Du nur mit der Lautsärkeregelung den Eingang auf Mikrophon setzen.

Ein Problem bei MCI kann sein, das beim Aufnehmen zuerst in das Temp Dir geschrieben wird, und beim speichern dorthin kopiert wird wo der Nutzer es haben will.

[EWeiss]

Zitat von Sunlight7:

Warum sollte der TMediaPlayer nicht aufnehmen können?
Der nutzt doch die MCI Treiber, und der MCI_WAVE kann aufnehmen.
Wozu wäre dann der Record Button da?
Für den Mic brauchst Du nur mit der Lautsärkeregelung den Eingang auf Mikrophon setzen.

Ein Problem bei MCI kann sein, das beim Aufnehmen zuerst in das Temp Dir geschrieben wird, und beim speichern dorthin kopiert wird wo der Nutzer es haben will.

Ja geht auch.

Nur man weiß nicht was er vor hat. Kommt ja keine Meldung mehr von ihm.
Die sauberste lösung ist die ich ihm angeboten habe.
Direkt über Stereomix vom Device aufnehmen ohne nebengeräusche.
Zeitgesteuert als ACM Wave Datei auf die Platte speichern.

Für's konvertieren ins MP3-Format muss er selber sorgen.

gruß

[Balu der Bär]

Zitat von EWeiss:

Ja geht auch.

Aber wie? Das würde mich jetzt auch mal interessieren.

[EWeiss]

Zitat von Balu der Bär:

Zitat von EWeiss:

Ja geht auch.

Aber wie? Das würde mich jetzt auch mal interessieren.

mciSendString('open new type waveaudio alias capture', RS, 128, CB)
mciSendString('set capture time format ms bitspersample 16 channels 2 samplespersec 44100', RS, 1024, 0)
mciSendString('record capture', RS, 128, CB)


Mehr ist nicht von nöten für die aufnahme.
Microfon sollte aber eingeschaltet sein.

gruß

[Hador]

Warum so kompliziert?
MediaPlayer.StartRecording; Und dann:
MediaPlayer.Stop;