Thema: Delphi WAV File Info?

Einzelnen Beitrag anzeigen

venice2
(Gast)

n/a Beiträge
 
#8

AW: WAV File Info?

  Alt 17. Sep 2022, 03:52
Zitat:
PS: Trotzdem wäre ich neugierig, wieso bei FillChar eine Access Violation erfolgt.
Sorry man sollte schon wissen was man tut.

1. Variable ist falsch
Delphi-Quellcode:
var
  WavInfo: W32Waves.PWaveInformation;
WavInfo ist definitiv nicht initialisiert.
Daher..
Delphi-Quellcode:
var
  WavInfo: W32Waves.TWaveInformation;
2. Aufruf ändern
if W32Waves.GetWaveInformationFromFile(PChar(Trim(Edit.Text)), WavInfo) then
zu
if W32Waves.GetWaveInformationFromFile(PChar(Trim(Edit.Text)), @WavInfo) then

3. Diese Funktion ändern
function GetWaveInformationFromFile(const aFileName: AnsiString; Info: pWaveInformation): Winapi.Windows.Bool;
zu
function GetWaveInformationFromFile(const aFileName: PWideChar; Info: pWaveInformation): Winapi.Windows.Bool;
abschließend
hdmmio := Winapi.MMSystem.mmioOpen(PChar(aFileName), nil, Winapi.MMSystem.MMIO_READ);;
zu
hdmmio := Winapi.MMSystem.mmioOpen(aFileName, nil, Winapi.MMSystem.MMIO_READ);
Zitat:
Oder wieso gibt es hier sonst eine Access Violation?
Weil WavInfo vorher nicht initialisiert wurde.

Fazit:
Ja auch Debuggen ist mit unter eine Kunst!

Geändert von venice2 (17. Sep 2022 um 11:42 Uhr)
  Mit Zitat antworten Zitat