Audio Frequenz bestimmen: Ungültige Gleitkommedarstellung

[FelixA]

Hallo Leute,
ich habe ein OpenSource Delphi Projekt gefunden. Es bestimmt die Frequenz der Signale am Audio-LineIn Eingang und ordnet dieser dann folgende Werte zu:
1 Hz = 1 mV
1kHz = 1V

Ihr findet es unter:
http://www.schule-bw.de/unterricht/f...e/ufsounds.zip
Es arbeitet mit dem TAudio Packeten


Wenn ich das Programm als .Exe starte, erhalte ich bei meiner Messungen folgenden Fehler:
Ungültige Gleichkomma Darstellung

Wenn ich das Programm in Delphi starte kommt folgender Fehler:
Project ufsounds_p.exe raied exeption class EInvalidOp with message 'Invalid floating point operation'.
Process stopped. Use Step or Run to continue.

Dann springt es in die AudioIO Datei in Zeile 1155. Dort steht:
Result: = FOnBufferFilled(B, N);

zu den Deklarationen:
B: lpstr
N: Integer


Zu den Warnings:
[Warning] AudioIO.pas(148) Constant expression violates subrange bounds
[Warning] AudioIO.pas(185) Property declaration references ancestor private 'TAudioIO.FPaused'
[Warning] AudioIO.pas(379) Constant expression violates subrange bounds


Ich würde dieses OpenSource Projekt sehr gerne nutzten. Könnt ihr mir vielleicht weiterhelfen, wo darin der Fehler liegt? Kommt bei euch überhaupt dieser Fehler? Ich testete es unter Win98 mit Delphi6 und den TAudio Packeten.




Danke.

Felix

[FelixA]

Hmm. Ich habe das Programm auf einem anderen PC ausprobiert mit nur einer Soundkarte. Es funktioniert. Keine Fehlermeldung!

Der Fehler tritt bei mir auf, da ich an meinem Notebook eine Externe Soundkarte habe und die Aufnahme anscheinend nicht einwandfrei funktioniert.

Könnt ihr mir sagen, wie ich es schaffe der Aufnahmen-Steuerung klar zu machen, dass die LineIn Aufnahme von einer ganz speziellen Soundkarte (USB Sound von Xear) mit maximalen Pegel erfolgen soll? Über die normale Einstellung will es nicht klappen. Wiedergabe funktioniert jedoch einwandfrei und das UFSounds greift auch auf die USB Soundkarte zu (led blinkt), nur die Windows Aufnahme nutzt weiterhin die Laptop Soundkarte. ;-( Wäre toll wenn ihr einen Tipp hättet. Toll wäre wenn es einen Delphi Code gibt, der den PC zwingt eine ganz spezielle Soundkarte zu nutzten. Diesen würde ich dann nur noch in UFSounds kiopieren.

Danke schon mal.

[omata]

Moin,

hast du mal versucht deine USB-Soundkarte als primäre Soundkarte festzulegen (über die Systemsteuerung)?
Wenn das dann geht, kannst du mal hier schauen, wie du das über Delphi umschalten kannst.

MfG
Thorsten