Deutsches Lazarusforum

OK, akzeptiert. Hast Recht. Schlechtes Beispiel mit Enums. Ist jetzt schon 3-4 Jahre her, dass ich irgendwas in Richtung C-Bindings gemacht habe
Mit den enums kann man sich streiten wie man es macht.
Macht man ein echtes Pascal enum, dann hat man eine saubere Typenprüfung, aber sobald man ...

Wen dir dies nicht passt, kannst du praktisch alle Bindungen welche bei Lazarus dabei sind wegwerfen, inklusive GLIB2 und GTK2.
Dies ist gang und gäbe, das c-Enums in Pascal als Konstante abgebildet werden. ausser du hast Freude, wen man alles casten muss.
OK, akzeptiert. Hast Recht. Schlechtes ...

OK, ich hab mal in Jürgens rtlsdr.pas reingeschaut.....

Ich schmeiss mich weg vor lachen.....


type
Tuint8_t = uint8;
Puint8_t = Tuint8_t;
Tuint16_t = uint16;
Puint16_t = Tuint16_t;
Tuint32_t = uint32;
Puint32_t = Tuint32_t;

Trtlsdr_dev_t = record end;

Prtlsdr_dev_t = ^Trtlsdr_dev_t ...

Soweit mir bekannt ist, darf die Callback Prozedur (rtlsdr_callback) keine Methode sein, sondern muss eine normale Prozedur ausserhalb der Klasse sein. Ggf kann man in ctx einen Zeiger auf eine Referenz mitgeben (z.B. ein Objekt).
Weiter habe ich es jetzt nicht angeschaut.


Danke, theo.
Genau da ...

1)

type
Trtlsdr_read_async_cb_t = procedure(buf: pbyte; len: Tuint32_t; ctx: pointer); cdecl;
// wird zu, da du den Callback als Methode deiner Form nutzen willst

Trtlsdr_read_async_cb_t = procedure(buf: pbyte; len: Tuint32_t; ctx: pointer) of object; cdecl;

2)

h1:=rtlsdr_read_async ...

rtlsdr_open(dev: PPrtlsdr_dev_t; index: Tuint32_t)

rtlsdr_dev_t ist ein Typedef für rtlsdr_dev, was eine Struktur ist (Pascal = Record)

prtlsdr_dev_t ist ein Zeiger auf diese Struktur,
pprtlsdr_dev_t ist ein Zeiger auf den Zeiger dieser Struktur, entspricht in der Regel einem Array

"dev" ist ein ...

juelin hat geschrieben: Di 10. Jun 2025, 20:32 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?

Sehe gerade was "skurriles" (zumindest nicht vorher so gesehen)
Herkunft "Unix" mit Änderungsdatum 08.06.2025

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

juelin hat geschrieben: Di 10. Jun 2025, 14:09 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?

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)


uint32_t rtlsdr_get_device_count(void)
{
int i;
libusb_context *ctx ...

Integer als Beträge sind gar nicht so ungewöhnlich. Der Datentyp Currency macht von sowas genaugenommen gebrauch. Wenn zum Beispiel festgelegt ist, das Berechnungen immer mit 4 Nachkommastellen ohne Rundung bearbeitet werden, ist ein Ganzahltyp die beste Wahl und man verschiebt einfach das Komma ...

Eb hat geschrieben: Mo 9. Jun 2025, 22:14 und was genau war letztendlich die Lösung des Problems?

zu 99,99999% das hier:

theo hat geschrieben: So 8. Jun 2025, 17:31 Und "SkipLibraryVersionCheck" auf True.

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

Wieso benutzt du nicht eine computed column?
https://www.firebirdsql.org/file/documentation/html/en/refdocs/fblangref50/firebird-50-language-reference.html#fblangref50-ddl-table
https://stackoverflow.com/questions/64147298/firebird-computed-calculated-field-on-server-side

IMO, der Vorteil ist, dass ...

Wenn man in den Quellcode schaut:

function TPDFDocument.AddFont(AFontFile: String; AName: String): Integer;
var
F: TPDFFont;
i: integer;
lFName: string;
begin
{ reuse existing font definition if it exists }
Result:=Fonts.FindFont(AName);
if Result>=0 then exit;
F := Fonts.AddFontDef;
if ...