DGL • Thema anzeigen - Delphi spinnt??

Delphi spinnt??

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

FrenK

Betreff des Beitrags: Delphi spinnt??

Verfasst: Di Jul 21, 2009 18:47

DGL Member

Registriert: Mi Jan 31, 2007 18:32
Beiträge: 150
Programmiersprache: Pascal

Ich benutze Delphi 7 Enterprise jetzt schon einige Zeit, aber sowas ist mir noch nicht unter gekommen...

Hier ist FFileData.DataSource = ADataStorage

Code:

 
procedure TOGG.LoadHeader(ADataStorage: TDataStorage);
begin
  OV_Open_Callbacks(ADataStorage, FFileData, nil, 0, Callbacks);
  if OV_Info(FFileData, -1)^.channels = 1
    then FFormat := sbf_MONO16
    else FFormat := sbf_STEREO16;
end;
 

Das hier wird später aufgerufen

Code:

 
procedure TOGG.UpdateBuffer(ABuffer : TBuffer);
var
  Section: Integer;
  Size: Integer;
  Res: Integer;
begin
  if not (ABuffer is TSoundBuffer) then Exit;
  if FFileData.Offset >= FFileData.End_V then Exit;
  Size := 0;
  while (Size < ABuffer.Size) do
    begin
      Res := OV_Read(FFileData, PByteArray(ABuffer.Data)^[Size], ABuffer.Size - Size, 0, 2, 1, @Section);
      if Res <= 0 then Break;
      Inc(Size, Res)
    end;
  if Size = 0 then Exit;
  TSoundBuffer(ABuffer).Format   := FFormat;
  TSoundBuffer(ABuffer).Frequenz := OV_Info(FFileData, -1)^.Rate;
  ABuffer.Update;
end;
 

Wird nach OV_Open_Callbacks und nach OV_Read ich unterscheide nur zwischen den beiden da sich beim debuggen gezeigt hat das sich nach OV_Read das verhalten der folgenden Methode drastisch verändert...

Code:

 
function Read_Func(var Ptr; Size, nmemb : Cardinal; const Datasource) : Cardinal; cdecl;
begin
  Result := 0;
  if (Size * nmemb = 0) then Exit;
  TDataStorage(Datasource).Read(Ptr, Size * nmemb);
  if (TDataStorage(Datasource).Size - TDataStorage(Datasource).Position) > nmemb 
    then Result := nmemb; 
end;
 

TDataStorage(Datasource).Read führt nicht mehr wie gewoht die Read methode der Klasse TDataStorage aus nein ich lande nach OV_Read in der Klasse TStreamResource.LoadResource....

Ich hoffe auf eure hilfe..

PS: ich habe überprüft bei jedem aufruf von Read_Func ist @Datasource gleich

// Edit

Ich hab das ganze hinbekommen...
Der Klasse ein Feld FDataStorage vom Type TDataStorage gegeben und die Methode so geändert

Code:

 
procedure TOGG.LoadHeader(ADataStorage: TDataStorage);
begin
  FDataStorage := ADataStorage;
  OV_Open_Callbacks(FDataStorage , FFileData, nil, 0, Callbacks);
  if OV_Info(FFileData, -1)^.channels = 1
    then FFormat := sbf_MONO16
    else FFormat := sbf_STEREO16;
end;
 

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 25 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.