Kylix ꥢ̿ݡͥ



LinuxǻȤ륷ꥢ̿ݡͥȤǤ DelphiǤ褯ȤTCommʤɤƱ
褦˻Ȥ褦ˤȻפäƤޤ󥿡եƱˤĤ
Ϥޤ

ޤŪ˽񤤤ǡۤȤɤεǽ̤Ǥ (ñ˷ᤦΥѥ᡼
̿򤹤롢Ȥʳ)



<URL:http://www.hi-ho.ne.jp/a-enomoto/kylix-memo/serial/hmcomm-0.1.tgz>

󥹥ȡ

̾ΥݡͥȤƱͤǤHmComm.dcrHmComm.pasƱǥ쥯ȥˤ
֤ [ݡͥ|ݡͥȤΥ󥹥ȡ]˥塼ӡ[˥åȥ
̾]HmComm.pasꤷ[OK]ܥ򲡤ޤå˽äƥѥ
뤹ȡݡͥȥѥåȤ[Samples]ڡɲäޤ

饹̾THmCommǤ

ˡ

ץѥƥ

Device: string;
    ꥢݡȤΥǥХեꤷޤǥեͤ /dev/ttyS0Ǥ
    㤨С/dev/ttyUSB0ˤUSBꥢ륢ץ̿Ǥ뤫⤷ޤ
    
   
Active: boolean;
    ¹ԻΤ߻Ȥޤ(public)ɤ߽ФȤǥݡȤƤ뤫ɤĴ
    ޤ񤭹ɬפ˱Open/Close᥽åɤƤӽФޤ
   

᥽å

procedure Open;
    ݡȤ򳫤ޤߤμǤϡԤƤɸ२顼Ϥ˥顼å
    ФǤΤޤäƤޤǽŪˤ㳰ꤲ褦ˤͽꡣ
   
procedure Close;
    ݡȤĤޤݡȤȤ᤽ȤޤԤƤʤˤⵯ
    ޤ
   
function Read(var buff; size: Integer): Integer;
    buff˺ĹsizeΥǡɤ߽Фޤñread(2)ƤǤʤΤ
    sizeλˤäƤϥ֥å뤫⤷ޤ󡣥֥åʤˤ
    OnReceive٥ȥϥɥΤ줿Ĺɤ߽Фޤ
   
procedure ReadStr(var buff: string);
    ʸȤƥǡɤ߽ФޤǥХåեΥǡĹå
    Τǥ֥åޤ(֤)ˡɤפΥǡʸȤ
    ޤ
   
function Write(const buff; size: Integer);
    buffΥǡsize񤭹()ޤñwrite(2)ƤǤ
    Τǡ̤ΥǡϤȥ֥å뤫⤷ޤͤñwrite(2)
    ֤ͤʤΤǽ񤭹ޤ줿ĹΤϤǤ塢񤭹ʤä鼫Υ
    åեݤ褦ˤȻפޤ
   
procedure WriteStr(const buff: string);
    ʸѿbuffΥǡ񤭹ߤޤWrite᥽åɤΥåѡǡLength
    (buff)ưŪ˸Ƥ֤ǤǤ write(2)̵֤ͤ뤷ޤ
   

٥

OnReceive: THmRxEvent = procedure(Sender: THmComm; nchars: Integer) of object;
    ꥢݡȤǡϤ졢ReadǼФȤȯޤ
    ncharssizeȤRead᥽åɤƤӽФ Readϥ֥åޤ
   



  ߤΤȤꥢݡȤ 19,200bpsǡĹ8bitΥѥƥ
    ȥåץӥå1bitθǤץѥƥǤ褦ˤͽǤ
  ߤΤȤեȥXON/XOFFǤץѥƥǤ
    褦ˤͽǤ

ץ

testǥ쥯ȥ겼TestCommץȤϴñʥꥢ륿ߥʥǤ¹Ԥ
[open]ܥ򲡤ȥݡȤ򳫤Ϥ¦MemoݡͥȤɽޤ
MemoݡͥȤؤΥϤϤΤޤޤ

饤󥹾

ǽŪˤLGPLȤޤߤΤȤɬפʥեcopyrightɽϤޤ
(ޤƥȥɤΤߤʤΤ)Τ褦˰äƤȤ꤬Ǥ

: Top page
Ayumu ENOMOTO / a-enomoto@hi-ho.ne.jp ʿ13ǯ74
