Delphi/Lazarus und LCD 128x64 Bricklet

[ric5sch]

Printers4LazIDE__Source_Code_Printer_Package__d_files-job_51.pdf

 

Im oben genannten pdf-Dokument wird kein Deviceobjekt für LCD128x64 erzeugt, der interessante Teil sind die Zeilen von 100 bis 110

if deviceIdentifier = BRICKLET_LCD_128X64_DEVICE_IDENTIFIER then
begin
  if not Assigned(LCD_128x64) then
  begin
    WriteLn('LCD_128x64: Create device Object');
    LCD_128x64.Create(LCD_128x64_UID, ipcon);
    if Assigned(LCD_128x64) then 
      WriteLn('LCD_128x64 created');
  end;
end;

Printers4LazIDE__Source_Code_Printer_Package__d_files-job_51.pdfPrinters4LazIDE__Source_Code_Printer_Package__d_files-job_51.pdfPrinters4LazIDE__Source_Code_Printer_Package__d_files-job_51.pdfHabe ich etwas übersehen oder fehlt es in den Bindings?

[ric5sch]

Den Fehler gefunden und behoben nach einer Nacht schlafen.

Das angehängte pdf Dokument das erfolgreiche Programm, es wurde auch etwas vereinfacht.

 

bin_pascal_Tinkerforge_01_robuster_Anstatz_temp_v2_robuster_Ansa-job_52.pdf