[gelöst] Aufruf Function geht schief

[juelin]

Hallo,
nun habe ich nach viel Arbeit die nötigen Files für mein Programm
zum Steuern eines SDR erstellt.
librtlsdr.dll und rtl_sdr.pas siehe Anhang librtlsdr.zip.
In meinem Programm rufe ich im Ereignis FormActivate
die Funktion rtl_sdr.rtlsdr_get_device_count aus rtl_sdr.pas auf.

Code: Alles auswählen

procedure TForm1.FormActivate(Sender: TObject);
  var h1: Tuint32_t;
begin  
  h1:=rtl_sdr.rtlsdr_get_device_count;
end;  

Wenn ich das Programm starte bekomme ich Fehler (siehe bild1).
Wenn ich den Befehl h1:=rtl_sdr.rtlsdr_get_device_count; auskommentiere läuft das Programm.
Was mache ich falsch?
Danke für die Hilfe und Gruß
Jürgen

[Zvoni]

und du bist dir sicher, dass die "librtlsdr.dll" auch als cdecl erstellt worden ist?

[juelin]

Hallo zvoni,
nein weiss ich nicht ob die dll cdecl ist.
Aber ich hatte ja die dll als anhang dabei.
Mir sagt der Begriff cdecl nix.
Danke und Gruß
Jürgen

[theo]

Mir sagt der Begriff cdecl nix.

Das kann man ändern.
https://de.wikipedia.org/wiki/Aufrufkonvention

https://wiki.freepascal.org/Stdcall/de
https://wiki.freepascal.org/Cdecl/de

[Zvoni]

hmm.... hab mir gerade den C-Quellcode von librtlsdr angeschaut.
Sehe da eigentlich nix verdächtiges. (und ich denke, dass die lib mit cdecl erstellt ist. Hab in den Headern nix gefunden was in eine andere Richtung deutet)

Code: Alles auswählen

uint32_t rtlsdr_get_device_count(void)
{
	int i;
	libusb_context *ctx;
	libusb_device **list;
	uint32_t device_count = 0;
	struct libusb_device_descriptor dd;
	ssize_t cnt;

	libusb_init(&ctx);

	cnt = libusb_get_device_list(ctx, &list);

	for (i = 0; i < cnt; i++) {
		libusb_get_device_descriptor(list[i], &dd);

		if (find_known_device(dd.idVendor, dd.idProduct))
			device_count++;
	}

	libusb_free_device_list(list, 1);

	libusb_exit(ctx);

	return device_count;
}

Heisst: Der Aufruf schlägt bereits fehl.

Welches Lazarus/FPC nutzt du?

EDIT: Wird die lib überhaupt gefunden? Wo liegt die dll?
Funktioniert LoadLibrary?

[juelin]

ich nutze Lazarus 3.8 mit FPC 3.2.2
auf Windows 11 64 Bit

[Zvoni]

ich nutze Lazarus 3.8 mit FPC 3.2.2
auf Windows 11 64 Bit

Und wo liegt die dll?
hat die dll die richtige Target-Bitness?

[juelin]

Hi,
so ich habe mal das komplete Source-Projekt
mit allen Fies gezipt.
Ich hoffe das hilft weiter.
Da braucht man natürlich einen RTL2832SDR sonst bringt es nix.
PS: Habe in Packages den H2PasWizard installiert.
Gruß
Jürgen

[Zvoni]

Sehe gerade was "skurriles" (zumindest nicht vorher so gesehen)

Unbenannt.PNG (16.23 KiB) 766 mal betrachtet

Herkunft "Unix" mit Änderungsdatum 08.06.2025

Hast du die DLL selbst kompiliert? Womöglich auf einem Linux-System?

[af0815]

The “0xc00007b/0xc000007b” error occurs whenever a user attempts to run a game/software and Windows does not find the necessary relevant files. Moreover, it can also occur when you attempt to run a 32-bit game/software on a 64-bit supported platform.

Infos vom CFF Explorer: Die librtlsdr.dll ist eine "Portable Executable 32" und hat in den Abhängigkeiten eine libgcc_s_sjlj-1.dll und die lib-usb-1.0.dll . Die anderen Abhängigkeiten sind am Windows System vorhanden.
Das heisst es funktioniert nur auf 32 Bit und die fehlenden dll's müssen auch herbeigeschaft werden (in 32 Bit)

[Mathias]

Hallo,
nun habe ich nach viel Arbeit die nötigen Files für mein Programm
zum Steuern eines SDR erstellt.
librtlsdr.dll und rtl_sdr.pas siehe Anhang librtlsdr.zip.
In meinem Programm rufe ich im Ereignis FormActivate
die Funktion rtl_sdr.rtlsdr_get_device_count aus rtl_sdr.pas auf.

Ich habe deine DLL geprüft, scheint eine 32Bit zu sein.
Versuche mal dein Programm auf Win 32Bit zu kompilieren.

Du sagtest mal, du hast ein Fremdprogramm, welches , mit deinem SDR läuft.
Also müssen alle benötigten DLL bei dir das sein.

Code: Alles auswählen

file librtlsdr.dll
librtlsdr.dll: PE32 executable (DLL) (console) Intel 80386, for MS Windows, 17 sections

Nachtrag:
Da bekommt man die 64Bit DLL: https://github.com/librtlsdr/librtlsdr/releases
Aber die USB-DLL musst du selbst organisieren.

[juelin]

ja danke Mathias,
genau das war es.
Meine DLL war 32Bit.
Ich habe aber einen 64Bit Rechner.
Also habe ich die DLL von deinem Link runter geladen
und schon lief es.
Also nochmal an alle danke.
Gruß
Jürgen

[Zvoni]

Meine DLL war 32Bit.
Ich habe aber einen 64Bit Rechner.

*seufz*
Dass dein Rechner ein 64-Bit Betriebssystem hat ist absolut egal.......

hat die dll die richtige Target-Bitness?