Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi brauche eure Hilfe mit der Wavpack.dll (https://www.delphipraxis.net/134875-brauche-eure-hilfe-mit-der-wavpack-dll.html)

Wishmaster 31. Mai 2009 08:16


brauche eure Hilfe mit der Wavpack.dll
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hi

ich brauche eure Hilfe mit der Wavpack.dll + bass.dll, ich versuch die Wavpack.dll in mein Programm zu Implementieren. Das Problem ist ich habe keine Plan wie ich den Frame-Size
updaten soll.

Alles funktioniert wunderbar wen die Datei Länge bekannt ist, wen du aber von der Soundkarte
aufnehmen willst? :gruebel: ??

ich jage das ganze durch en DSP, man kann das aber auch direkt mit dem RecordProc Machen

Delphi-Quellcode:
Procedure Encoder_DSP_WV(handle: HDSP; channel: DWORD; buffer: Pointer; length: DWORD; user: Pointer); stdcall;
begin
 if (buffer <> nil) and (length <> 0) then
  FWVEncoder.Encoder_Write(buffer, length);
end;


FWVEncoder.Filename:= 'Filename.wv';
FWVEncoder.Encoder_Create();

(* Set Encoding DSP Channel *)
FEncDSP_WV:= BASS_ChannelSetDSP(FMixChann, @Encoder_DSP_WV, nil, 1);


(* Stop Encoder *)
if BASS_ChannelRemoveDSP(FMixChann, FEncDSP_WV) then
 FWVEncoder.Encoder_Stop();

in der Bass_Enc_WV.pas unter der Funktion
Delphi-Quellcode:
 Function TWVEncoder.Encoder_Create() : Boolean;

  // Error (FInput.Size)
  if not FEncoder.Init({FInput.Size} div (fChannels * ((FBitsPerSample + 7) shr 3))) then
   raise EEncException.CreateFmt('Wavpack file Init failed! (error: "%s")', [Fencoder.LastError]);
liegt das Problem




ich habe ähnliches mit der lame_enc.dll (mp3) gemacht und es funzt 100%.



Thx.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:25 Uhr.

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