Hallo,
ich verwende für die Streamaufnahme (netradio - Beispiel von bass.dll) folgenden Code:
Delphi-Quellcode:
var
FileStream : TFileStream;
FileNeme :
String;
// <= C:\test.mp3
function Get_AppPath :
string;
begin
result:= ExtractFilePath( ParamStr( 0 ) );
end;
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 (FileNeme = '
')
then
exit;
if (FileStream =
nil)
then
FileStream:= TFileStream.Create(FileNeme, fmCreate);
// create the file
if (buffer =
nil)
then
FileStream.Free
// finished downloading
else
FileStream.
Write(buffer^, len);
end;
function OpenURL(
url: PChar): Integer;
var ....
begin
FileNeme:= Get_AppPath + Form1.Filename_Edit.Text;
...
end;
Jetzt würde ich mal wissen wie ich am besten die Aufnahme stoppen kann und wieder Aufnehmen. Hab mit das Stoppen mit
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
FileStream.Free;
end;
versucht, aber das Prog stürzt ab.
