Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi bass.dll netradio beispiel mit wma? (https://www.delphipraxis.net/141232-bass-dll-netradio-beispiel-mit-wma.html)

Wishmaster 10. Okt 2009 22:20

Re: bass.dll netradio beispiel mit wma?
 
Hi


es kommt darauf an wie du basswma lädst, der einfachste weg ist
anhand der netradio Demo, füge nur BASS_PluginLoad ein und das ist es auch.

Delphi-Quellcode:
   BASS_PluginLoad(PChar('basswma.dll'), BASS_UNICODE); //D2010

  if (not BASS_Init(-1, 44100, 0, Handle, nil)) then
  begin
    Error('Can''t initialize device');
    Halt;
  end;

wen du aber basswma voll in dein Projekt integrieren willst dann musst du auch alles manuell machen!

Zitat:

Creates a sample stream from a WMA file or URL
BASS_WMA_StreamCreateFile, BASS_WMA_StreamCreateFileAuth

BASS_StreamGetFilePosition(..., BASS_FILEPOS_WMA_BUFFER)
BASS_SetConfig(BASS_CONFIG_WMA_PREBUF, 0)


Tipp.
Wen du das manuell machen willst, benutze BASS_WMA_StreamCreateFile als erstes
da basswma auch mp3 abspielen kann. e.g


Delphi-Quellcode:
*    chan := BASS_WMA_StreamCreateFile()
*  if (chan = 0) then
*   chan := BASS_StreamCreateURL();
*  if (chan = 0) then
*   begin
     // Error
    end;

AlexII 11. Okt 2009 13:59

Re: bass.dll netradio beispiel mit wma?
 
Ich bin das so ein:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
BASS_PluginLoad('basswma.dll', 0);
...


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:53 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz