Dotaz: Lazarus a seriovy port / UART

[ok2zar]

Zdravim,

asi se budu ptat fakt hloupe, ale jak jednoduse uchodit cteni dat z UARTu v Lazarusu? Googlil jsem, pouzil DataPort a hodi mi to SIGSEGV jakmile se snazim otevrit port. Pravama to asi nebude, protoze kdyz si pod tim samym userem spustim "cat /dev/ttyUSB0", tak mi to data na terminal plive.

S nejvetsi pravdepodobnosti bude chyba nekde v kodu, pac to "drzim v rukach" po vice jak dvaceti letech. Proste potrebuju precist data ze seriaku a bezdradne se v tom placam. Prozatim to delam na laptopu, ale vysledek pofrci na maline.

Takze diky predem, za pripadne rady.

---

---

Odpovědi

[MarV]

Bez kódu to asi nepůjde ...

Pokud stačí blokující přístup, tak je možná jednodušší přímo Synaser, který je v DataPort použit interně.

[ok2zar]

No on zadny kod neni. Jsou to jen tyto dva radky. Definice promenne a pokus otevrit port. A na tom to vzdy chcipne.

SerialPort : TDataPortUART;

SerialPort.Open('/dev/ttyUSB0,9600,8,N,1,0,0');

Me je uplne jedno, pres co to pojede, hlavne aby to jelo

[X]

uses DataPortSerial
...
SerialPort : TDataPortSerial;
SerialPort.Open('/dev/ttyUSB0');

[MarV]

SerialPort : TDataPortUART;

Je pouze prázdný pointer do kterého je potřeba přiřadit nově vytvořený objekt třídy TDataPortUART, což tam chybí, a proto to spadne na neplatný přístup do paměti.

Obecně tam toho chybí mnohem víc a nerad bych se vysiloval radit nějaké řešení, které je třeba pro danou aplikaci zcela nevhodné. Co to má dělat? Bude to mít grafické rozhraní nebo jen konzolovka?

[ok2zar]

Jo, ma to graficke rozhranni. Potrebuju pres UART chytnout data a poslat to do mysql. Vse ostatni mam hotove a ted jen potrebuju chytnout data tim UARTem. To je vlastne posledni, co mi chybi.

Uses DataPort, DataPortUART;

Type SerialPort : TDataPortUART;

// a pak v kodu mam pokus o otevreni portu

SerialPort.Open('/dev/ttyUSB0,9600,8,N,1,0,0');

Vic toho neni a diky za rady, ale urcite budu potrebovat poradit vic :-/

[X]

https://github.com/serbod/dataport/tree/master/demo

[ok2zar]

Asi to bude sokujici, ale taky jsem to videl, nez jsem vznesl dotaz, a pokud se nepletu, tak je tam jen priklad na TCP spojeni. A pokud je tam priklad, ktery resi muj problem, tak jsem ho nevidel.

[MarV]

Otázka zní, jak jsi komponentu TDataPortUART dostal do projektu?
A) Instalace přes měnu Package->Online package manager a potom jsi z palety vložil komponentu TDataPortUART na formulář?
B) Stahoval/kopíroval ručně a jen jsi do kódu napsal zmíněné řádky? Pokud ano, je nějaký důvod nepoužít variantu A?

Jinak u tohoto typu komponenty se připrav, že čtení nemáš pod kontrolou - tj. bude se automaticky volat událost kdykoliv přijde nějaký cucek dat:

TDataPortUART = class(TDataPort)
  .....
  { Triggered when data appeared (not thread-safe, called from inner thread!) }
  property OnDataAppearUnsafe: TNotifyEvent read FOnDataAppearUnsafe write FOnDataAppearUnsafe;
end;

Vytahovat z bufferu a řešit kde začínají a končí si musíš nějak sám. Plus je tam poznámka že to není thread safe ...

[ok2zar]

Instaloval jsem to variantou B a variantu A jsem nepouzil, protoze nevim, ze to tak jde nebo je to doporucene. Moje posledni zkusenost byla BorlandPascalem na DOSu 6.22, takze nevim, jak se na lopate sedi.

[MarV]

No pak doporučuji použít variantu A (předtím se zbavit všech souborů po variantě B). Pro variantu B je potřeba mít správně cesty, ručně vytvořit objekt, přiřadit parametry a události.

BTW: FPC/Lazarus jsem na ARMu nikdy nezkoušel. Každopádně Lazarus IDE pro ARM neexistuje, pokud je mi známo, a budeš muset zprovoznit cross compiller. Možná bych očekával i nějaké potíže s kompatibilitou knihoven ...

[ok2zar]

Ucinil jsem podle rady, nainstaloval, Lazarus chrochtal a cosi si compiloval a pak se restartoval. Pridal jsem si komponentu a pak jsem dostal toto:

terminal.pas(10,3) Fatal: Nelze najít DataPortFTDI užito terminal, nekompatibilní ppu=/home/petr/.lazarus/onlinepackagemanager/packages/DataPort/lib/x86_64-linux/DataPortFTDI.ppu, balíček DataPortLasarus

Prve jsem zkusil DataPortSerial, ale se stejnym vysledkem.

[MarV]

Nový čistý projekt, TDataPortSerial vložen na formulář a píše to tohle?

[ok2zar]

To jeste zkusim. Ja to vlozil do stavajiciho mini projektu. Ale v mezicase jsem pres ten online manager nainstaloval LazSerial a uz mi to cte. Dle toho, co jsem cetl na wiki i forech by ten DataPort mel byt vyhodnejsi. Tak jako tak to rad prozkoumam.

[MarV]

Tak hotovo. LazSerial v pohode resi celou situaci a aplikace je hotova. Takze diky za rady i co se tyce instalace online balicku. To mi pomohlo taky dost.

[.]

Když to děláš "ručně", tak definuješ proměnnou a pak na ní zavoláš .Create, abys vytvořil ten objekt a pak můžeš použít .Open atd. To "type" tady nemá co dělat.

Když nevíš, co děláš, tak to nedělej a "normálně" to naklikej. Vlož tu komponentu na formulář a pak použij serialPort1.Open... (nebo co za název to vygeneruje).

[D]

Vzdy jsem pro tento ucel pouzival TBlockSerial z unitu Synaser knihovny Synapse.

https://wiki.freepascal.org/Hardware_Access#Serial_Communication