Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Сен

Работа с RS232 в DELPHI

Posted by obzor under Delphi

Если у кого информация по работе с 232 интерфейсом? Как (своей программой) считать или послать данные? Может кто разбирался с железом ?

raxp

в любом help-е (delphi-world, DRKB, dFAQ от Михалыча) есть примеры работы с COM портом

Код:

function SetCommTiming: Boolean;
var Timeouts: TCommTimeOuts;
begin
 with TimeOuts do begin
  ReadIntervalTimeout := 1;
  ReadTotalTimeoutMultiplier := 0;
  ReadTotalTimeoutConstant := 1;
  WriteTotalTimeoutMultiplier := 2;
  WriteTotalTimeoutConstant := 2;
 end;
 Result:= SetCommTimeouts(Com,Timeouts)
end;

function SetCommBuffer(InQueue, OutQueue: LongInt): Boolean;
begin
 Result:= SetupComm(Com, InQueue, OutQueue)
end;

function SetCommStatus(Baud: Integer): Boolean;
var DCB: TDCB;
begin
 with DCB do begin
  DCBlength:=SizeOf(Tdcb);
  BaudRate := Baud;
  Flags:=12305;
  wReserved:=0;
  XonLim:=600;
  XoffLim:=150;
  ByteSize:=8;
  Parity:=0;
  StopBits:=0;
  XonChar:=#17;
  XoffChar:=#19;
  ErrorChar:=#0;
  EofChar:=#0;
  EvtChar:=#0;
  wReserved1:=65;
 end;
 Result:= SetCommState(Com, DCB)
end;

function opencom(comPort:string; InQueue,OutQueue,Baud: LongInt): Boolean;
begin
 comport:= uppercase(comport);
 if Com > 0 then closecom;
 Com:= CreateFile(PChar(comPort),
  GENERIC_READ or GENERIC_WRITE,
  0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 Result:= (Com > 0) and SetCommTiming and
 SetCommBuffer(InQueue,OutQueue) and
 SetCommStatus(Baud)
end;

procedure sendcom(s: string);
var TempArray: array[1..255] of Byte;
    Count    : Integer;
    TX_Count : cardinal;
begin
 for Count:= 1 to Length(S) do TempArray[Count]:= Ord(S[Count]);
 WriteFile(Com, TempArray,Length(S),TX_Count,nil)
end;

function readcom: string;
var RX_Count : cardinal;
    TempArray: array[1..255] of Byte;
    Count    : Integer;
begin
 result:= '';
 ReadFile(Com, TempArray, 255, RX_Count, nil);
 for Count:= 1 to RX_Count do result:= result + Chr(TempArray[Count])
end;

procedure closecom;
begin
 CloseHandle(Com) //Com:= -1
end;