delphi串口通信怎么編寫

小億
184
2023-10-28 02:49:20
欄目: 編程語言

在Delphi中實(shí)現(xiàn)串口通信，可以使用Windows API函數(shù)來進(jìn)行操作。

  1. 首先，在程序的uses部分，添加Windows單元。
uses
  Windows;
  1. 聲明一些常量和變量，用于存儲(chǔ)串口參數(shù)。
const
  ReadBufferSize = 1024;

var
  hComm: THandle;       // 串口句柄
  CommPort: string;     // 串口號(hào)
  BaudRate: DWORD;      // 波特率
  DataBits: DWORD;      // 數(shù)據(jù)位
  Parity: DWORD;        // 校驗(yàn)位
  StopBits: DWORD;      // 停止位
  ReadBuffer: array[0..ReadBufferSize] of Byte;   // 讀取緩沖區(qū)
  1. 編寫初始化串口的函數(shù)。
function InitSerialPort: Boolean;
var
  DCB: TDCB;
  Timeouts: TCommTimeouts;
begin
  Result := False;
  
  hComm := CreateFile(PChar(CommPort), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if hComm = INVALID_HANDLE_VALUE then
    Exit;
      
  if not GetCommState(hComm, DCB) then
    Exit;
  
  DCB.BaudRate := BaudRate;
  DCB.ByteSize := DataBits;
  DCB.Parity := Parity;
  DCB.StopBits := StopBits;
  
  if not SetCommState(hComm, DCB) then
    Exit;
  
  if not GetCommTimeouts(hComm, Timeouts) then
    Exit;
  
  Timeouts.ReadIntervalTimeout := MAXDWORD;
  Timeouts.ReadTotalTimeoutMultiplier := 0;
  Timeouts.ReadTotalTimeoutConstant := 0;
  Timeouts.WriteTotalTimeoutMultiplier := 0;
  Timeouts.WriteTotalTimeoutConstant := 0;
  
  if not SetCommTimeouts(hComm, Timeouts) then
    Exit;
  
  Result := True;
end;
  1. 編寫讀取串口數(shù)據(jù)的函數(shù)。
function ReadSerialPort(var Buffer: array of Byte; Count: Integer): Integer;
begin
  Result := 0;
  
  if not ReadFile(hComm, Buffer, Count, DWORD(Result), nil) then
    Result := 0;
end;
  1. 編寫發(fā)送串口數(shù)據(jù)的函數(shù)。
function WriteSerialPort(const Buffer: array of Byte; Count: Integer): Boolean;
var
  BytesWritten: DWORD;
begin
  Result := False;
  
  if not WriteFile(hComm, Buffer, Count, BytesWritten, nil) then
    Exit;
  
  Result := BytesWritten = DWORD(Count);
end;
  1. 在程序中調(diào)用以上函數(shù)進(jìn)行串口通信操作。
procedure TForm1.Button1Click(Sender: TObject);
var
  ReadCount: Integer;
begin
  if not InitSerialPort then
    ShowMessage('Failed to initialize serial port!')
  else
  begin
    ReadCount := ReadSerialPort(ReadBuffer, ReadBufferSize);
    if ReadCount > 0 then
    begin
      // 處理讀取到的數(shù)據(jù)
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  DataToSend: array[0..3] of Byte;   // 要發(fā)送的數(shù)據(jù)
begin
  DataToSend[0] := 0;   // 設(shè)置發(fā)送數(shù)據(jù)內(nèi)容
  
  if not WriteSerialPort(DataToSend, SizeOf(DataToSend)) then
    ShowMessage('Failed to send data!');
end;

以上是一個(gè)簡單的Delphi串口通信示例，你可以根據(jù)實(shí)際需求進(jìn)行修改和完善。

0 踩