bass.dll: Internet radio aufnehmen

[Wishmaster]

Delphi-Quellcode:

URL_FileStream :   TFileStream;
URL_ToFileNeme :   String;


procedure DownloadProc(buffer: Pointer; length: DWORD; user: DWORD); stdcall;
begin
  with AudioPlayer do
   begin
  if (URL_ToFileNeme = '') then
    exit;
  if (URL_FileStream = nil) then
      URL_FileStream:= TFileStream.Create(URL_ToFileNeme, fmCreate); // create the file
  if (buffer = nil) then
      URL_FileStream.Free // finished downloading
   else
      URL_FileStream.Write(buffer^, length);
  end;
end;



// Play

URL_FileStream:= nil;
Channel := THandle(BASS_StreamCreateURL(PChar(URL), 0, Flags, @DOWNLOADPROC, 0));

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. Mfg, Daniel[/edit]