Forum: Multimedia
Delphi
by OrNEC,
14. Nov 2009
Hier wird gleich in .mp3 geschrieben, die Bitrate der Aufnahme und andere Parameter sind die des Senders. Bei der Aufnahme wird also der abgespielter Stream nicht verloren gegangen sondern in die mp3-Datei geschrieben.
Forum: Multimedia
Delphi
by OrNEC,
14. Nov 2009
var
FileStream : TFileStream;
FileName : String; // <= C:\test.mp3
procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
if (buffer <> nil) and (len = 0) then
SendMessage(win, WM_INFO_UPDATE, 8, DWORD(PChar(buffer)));
if (FileName = '') then
Forum: Multimedia
Delphi
by OrNEC,
13. Nov 2009
So habe ich das bei meiner Freeware "Christian Computer Radio" gemacht...
var
FileStream : TFileStream;
FileNeme : String; // <= C:\test.mp3
function Get_AppPath : string;
begin