Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
14. Mai 2018
Danke Emil, das erspart mir ein WaveIn : HWAVEIN; usw. gedönse :thumb:
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
14. Mai 2018
Kannst Du mir ein konkretes Beispiel nennen was Du damit meinst?
Was ich Dir da gegeben habe ist eine Möglichkeit ein Wave in hoher Qualität aufzuzeichnen wo Du per Knopf Start/Stop bestimmst wann Du was machen willst, bei Stop wird gespeichert.
Da es nur ein quicky ist habe ich da noch keine Fehlerkontrolle eingebaut etc.
...Null Kontrolle ob "MySound" überhaupt existiert.
Kopf Start sollte...
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
14. Mai 2018
Hier ein komplett lauffähiges Beispiel mit MCI-Aufnahme
procedure TForm1.FormCreate(Sender: TObject);
var
op: TMCI_Open_Parms;
rp: TMCI_Record_Parms;
sp: TMCI_SaveParms;
begin
// Open