Re: Lazarus+MacOS+sériová linka

Martin Záruba swz na volny.cz
Úterý Březen 3 15:33:11 CET 2020


Já používám zhruba tento postup (snad nic nezapomenu):

Uses

  SynaSer;

Var

   ComPort:string;

   S:string;

   B:byte;

   BlockSer: tBlockSerial;

Begin

......

ComPort:='COM5';

  BlockSer:=tBlockSerial.Create;

  BlockSer.Connect(ComPort);
   if BlockSer.LastError<>0 then // otevření portu se zdařilo

begin

smyčka, ve které je

   B:=BlockSer.RecvByte(5000);
nebo

   BlockSer.SendString(S);

end;

           BlockSer.CloseSocket;
           BlockSer.Purge;


Nefungovalo by Vám to?

Martin Záruba

Dne 3.3.2020 v 14:00 Tomas Martinec napsal(a):
> Díky za nakopnutí. Bohužel se mi stále nedaří dát to dohromady. Musel 
> jsem udělat drobné úpravy v tom zdrojovém textu z fóra, jinak to nešlo 
> přeložit. Moje verze vypadá takto:
>
> Var Attr: TermIOS;
>
> ...
> FHandle := fpopen(FDevice, 0_RDWR or 0_SYNC);
> tcgetattr(FHandle, Attr);
> Attr.c_cflag:= Attr.c_cflag or CREAD or CLOCAL;// --> This is the line 
> that fixed the issue
> //Do fix your other attributes here aswell, like ispeed, ospeed, etc...
> tcsetattr(FHandle, TCSADRAIN, Attr);// Take a look at the 
> documentation of this call to see what constant (TCSADRAIN) you want 
> to use.
> ...
>
> Bohužel to stále zamrzá na tom fpopen, k nastavení atributů se program 
> vůbec nedostane. Pochopil jsem to správně? Co dělám špatně?
>
>
> Dne 03.03.2020 v 10:26 Marián Hubinský napsal(a):
>> Kniznicu SynaSer pouzivam pod Lazarusom vo vela aplikaciach, zatial 
>> funguje.
>> finta je v clocal
>>
>> http://free-pascal-general.1045716.n5.nabble.com/synapser-freezes-on-fopen-FDevice-0-RDWR-or-0-SYNC-on-raspberry-Pi-td5715688.html 
>>
>>
>>
>> -- 
>> Marián Hubinský
>> e-mail: marian.hubinsky na elso.sk
>> mobile: +421 905 652001
>> Elso Philips Service, spol. s r.o.; Jilemnického 2/53; 911 01 
>> Trenčín; Tel: +421 32 6582410, 7431690; Fax: +421 32 6582592; 
>> http://www.elso.sk <http://www.elso.sk/>
>> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
>>
>> Kvalitný obojsmerný zdroj 15kW: 
>> http://www.elso.sk/DeltaElektronika/SM15k// USB osciloskop do 1000V 
>> https://www.elso.sk/PicoScope/4444
>>
>>
>>
>> _______________________________________________
>> HW-list mailing list  -  sponsored by www.HW.cz
>> Hw-list na list.hw.cz
>> http://list.hw.cz/mailman/listinfo/hw-list
>
>
>


Další informace o konferenci Hw-list