Delphi 12 CE Aktivierung

[corado]

Hat in letzter Zeit mal jemand die CE Version von Empecardero aktiviert?
Ich bekomme ständig die Meldung, dass der Code ungültig wäre den ich per mail erhalten habe
Da ich mit Freepascal immer scheitere wenn es um Bluetooth oder RS232 geht, wollte ich es jetzt mal mit Delphi testen, sonst verliere ich langsam die Lust am programmieren

[wp_xyz]

Hat in letzter Zeit mal jemand die CE Version von Empecardero aktiviert?

So etwa vor einem halben Jahr. Kann mich nicht entsinnen, dass es Probleme gab. Ich hatte allerdings auch gleich die damals neue Version 12.1 installiert, anstatt die abgelaufene 11-er Version neu zu aktivieren.

[TSchnuckenbock]

Mir ist so dunkel im Hinterkoppe, daß der Code bei der CE-Version immer nur ein Jahr gültig ist. Vielleicht liegt's daran.

[corado]

hat sich erledigt...
Ich hatte ganz vergessen, dass ich wohl schon eine alte Version installiert habe. Nachdem ich alles nochmal deinstalliert habe und neu installiert habe klappte es

[Stevie]

... die für ein Pascal-Forum passendere Frage ist aber doch eher, wo das Problem mit Bluetooth und / oder RS232 liegt. Deine Fragen in anderen Threads konnten scheinbar ja beantwortet werden, oder?

[corado]

soweit wie ich das sehe, wird Bluetooth von Pascal nicht unterstützt:-( Lediglich Seriell funktioniert...was zwar teilweise Bluetooth ermöglicht, aber dann auch nur einen Standard und den auch nur über das Umweg über Windwos und Com Port Emulation, was natürlich ätend ist, da man das dann erst einrichten muss.
Unter python kann man direkt den Bluetoothport ansprechen, das ist natürlich klasse, nur wollte ich kein Python benutzen, da die Programme quälend langsam zu starten sind, in eine .exe umgewandelt

[theo]

Hat jemand das mal ausprobiert?
https://github.com/eriklins/Pascal-Bind ... LE-Library

[af0815]

Bluetooth geht meistens, aber da ist oft eine sehr steile Lernkurve und viel Recherche notwendig.
Ich habe schon GoPro per Bluetooth angebunden, war aber ein Abenteuer.

[corado]

ah ok, ChatGPT meinte zu mir nur, das Freepscal das nicht könnte bzw keine Units dafür vorhanden wären

[af0815]

Chat GPT ist keine Authorität sonder in machen Fällen ein Trott...

[fliegermichl]

Hab da ein einfaches Testding gefunden. Ist zwar nich ganz vollständig, tut aber was es soll.

Code: Alles auswählen

program finddev;

{$APPTYPE CONSOLE}

uses
  SysUtils, crt;

const
  WINBT_DLL               = 'BluetoothApis.dll';
  BLUETOOTH_MAX_NAME_SIZE = 248;


type
  BTH_ADDR = UInt64;
  BOOL = Longbool;

  SYSTEMTIME = record
    wYear          : Word;
    wMonth         : Word;
    wDayOfWeek     : Word;
    wDay           : Word;
    wHour          : Word;
    wMinute        : Word;
    wSecond        : Word;
    wMilliseconds  : Word;
  end;

  BLUETOOTH_ADDRESS = record
    case Integer of
      0: (ullLong: BTH_ADDR);
      1: (rgBytes: array [0..5] of Byte);
  end;

  BLUETOOTH_DEVICE_SEARCH_PARAMS = record
    dwSize               : DWORD;
    fReturnAuthenticated : BOOL;
    fReturnRemembered    : BOOL;
    fReturnUnknown       : BOOL;
    fReturnConnected     : BOOL;
    fIssueInquiry        : BOOL;
    cTimeoutMultiplier   : Byte;
    hRadio               : THandle;
  end;

  BLUETOOTH_DEVICE_INFO = record
    dwSize          : DWORD;
    Address         : BLUETOOTH_ADDRESS;
    ulClassofDevice : DWORD;
    fConnected      : BOOL;
    fRemembered     : BOOL;
    fAuthenticated  : BOOL;
    stLastSeen      : SYSTEMTIME;
    stLastUsed      : SYSTEMTIME;
    szName          : array[0..BLUETOOTH_MAX_NAME_SIZE-1] of WideChar;
  end;

  HBLUETOOTH_DEVICE_FIND = THandle;


function BluetoothFindFirstDevice(const pbtsp: BLUETOOTH_DEVICE_SEARCH_PARAMS; var pbtdi: BLUETOOTH_DEVICE_INFO): HBLUETOOTH_DEVICE_FIND; stdcall; external WINBT_DLL name 'BluetoothFindFirstDevice';
function BluetoothFindNextDevice(hFind: HBLUETOOTH_DEVICE_FIND; var pbtdi: BLUETOOTH_DEVICE_INFO): BOOL; stdcall; external WINBT_DLL name 'BluetoothFindNextDevice';
function BluetoothFindDeviceClose(hFind: HBLUETOOTH_DEVICE_FIND): BOOL; stdcall; external WINBT_DLL name 'BluetoothFindDeviceClose';


var
  DeviceFindHandle   : THandle;
  DeviceInfo         : BLUETOOTH_DEVICE_INFO;
  DeviceSearchParams : BLUETOOTH_DEVICE_SEARCH_PARAMS;
  devcnt             : Integer = 0;
  devnam             : string;


BEGIN

  DeviceInfo.dwSize:=sizeof(DeviceInfo);

  DeviceSearchParams.dwSize := sizeof(DeviceSearchParams);
  DeviceSearchParams.fReturnAuthenticated := False;
  DeviceSearchParams.fReturnRemembered := True;
  DeviceSearchParams.fReturnUnknown := True;
  DeviceSearchParams.fReturnConnected := True;
  DeviceSearchParams.fIssueInquiry := True;
  DeviceSearchParams.cTimeoutMultiplier := 1;

  DeviceFindHandle := BluetoothFindFirstDevice(DeviceSearchParams, DeviceInfo);

  if DeviceFindHandle <> 0 then begin

    repeat
      devnam:=InttoHex(DeviceInfo.Address.ullLong,12);
      devnam:=devnam+' is '+StrPas(DeviceInfo.szName); //UTF16ToUTF8(StrPas(DeviceInfo.szName));
      if DeviceInfo.fConnected then
        devnam:=devnam+'  (Connected)';
      writeln(devnam);
      inc(devcnt);
    until not BluetoothFindNextDevice(DeviceFindHandle, DeviceInfo);

    BluetoothFindDeviceClose(DeviceFindHandle);

  end;

  writeln;
  if devcnt = 0 then
     writeln('No devices found')
  else
     writeln(inttostr(devcnt)+' device(s) found!');

  writeln;
  writeln('Press any key');
  readkey;

END.

]

[corado]

super.
Interessant wäre jetzt noch, ob damit auch alle BT Varianten Funktionieren, wie dieses Nahbereichts BT, wie es z.B. von den Sport Brustgurten verwendet wird etc
Aber wenn er die .dll nutzt, ist das bestimmt nur eine Sacher der entsprechenden PAramter