Lazarus - i2c sběrnice

[BigSandy]

Zdravím Vás.
Nějak nemohu přijit na to, jak přes lazarus zjistit, zda je na určite adrese nejake zařizení.

Jsem to zkusil vypsat přes fpsystem.
fpsystem však vraci integer, takže to vypisuje v obou připadech tu první 0.
Label1.caption := IntToStr(c('sudo i2cdetect -y 1 0x22 0x22'));
Label2.caption := IntToStr(fpsystem('sudo i2cdetect -y 1 0x23 0x23')); 

[Reklama]

[IDontCare]

No fuj. Radeji wrapper, nebo knihovnu:

https://wiki.freepascal.org/Lazarus_on_Raspberry_Pi

[BigSandy]

Tam vidim par funkcí pro nastavovaní  i2c expanderu.

funkce i2c_bus_write (baseadr, reg: word; var data: databuf_t; lgt: byte; testnr: integer): integer;
funkce i2c_bus_read (baseadr, reg: word; var data: databuf_t; lgt: byte; testnr: integer): integer;
funkce i2c_string_read (baseadr, reg: word; var data: databuf_t; lgt: byte; testnr: integer): string;
funkce i2c_string_write (baseadr, reg: word; s: string; testnr: integer): integer;

Nevidim tam však řešení, jak zjistit jestli na te adrese ten expander je.

[Martin Dráb]

Co si pamatuju, u I2C neexistuje žádná obecná možnost, jak zjistit, že na nějaké adrese poslouchá zařízení či ne. Protože ale zařízení mají celkem napevno přiřazené adresy, tak prostě pro danou adresu zkusíte komunikovat, jako by tam dané zařízení bylo... a pokud správně odpovídá, tak tam je.

[Jakub Štech]

I2C slave odpoví na START se svojí adresou ACKem, podle toho jde obecně určit, jestli tam něco je. i2cdetect to dělá právě takto...

Ta pascalová i2c_bus_read vypadá, že by mohla vracet záporné číslo, když slave nepotvrdí adresu, což by mohlo být ono.

[Reklama]

[BigSandy]

Dik moc ale už mám vyřešene.
To co radil Martin Dráb.

Jsem našel funkci
StavExpanderu('i2cget -y 1 0x22 0x12');
Když ji zavolam, mi vrati stav pinu třeba 0x7e.
Když tam expander není, vrati prazdy řetězec