用Delphi中的comport开发一个rs485程序

以下是一个使用Delphi编写的简单的RS485程序示例：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
ComPortHandle: THandle;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Data: array[0..255] of Byte;
BytesRead: DWORD;
i: Integer;
begin
// 打开串口
ComPortHandle := CreateFile('COM1', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if ComPortHandle = INVALID_HANDLE_VALUE then
begin
ShowMessage('无法打开串口');
Exit;
end;

// 设置串口参数
DCB.dcbLength := SizeOf(DCB);
GetCommState(ComPortHandle, DCB);
DCB.BaudRate := 9600;
DCB.Parity := NOPARITY;
DCB.ByteSize := 8;
DCB.StopBits := ONESTOPBIT;
SetCommState(ComPortHandle, DCB);

// 发送数据
Data[0] := $01; // 设备地址
Data[1] := $03; // 功能码
Data[2] := $00; // 寄存器地址高位
Data[3] := $00; // 寄存器地址低位
Data[4] := $00; // 寄存器数量高位
Data[5] := $01; // 寄存器数量低位
WriteFile(ComPortHandle, Data, 6, BytesRead, nil);

// 读取响应数据
Sleep(100); // 等待一段时间，确保数据已经准备好
ReadFile(ComPortHandle, Data, 255, BytesRead, nil);
for i := 0 to BytesRead - 1 do
Memo1.Lines.Add(IntToHex(Data[i], 2));

// 关闭串口
CloseHandle(ComPortHandle);
end;

end.

在上面的代码中，我们使用了Windows API函数CreateFile、GetCommState、SetCommState、WriteFile和ReadFile来访问串口。在实际应用中，我们需要根据实际情况修改串口的参数和发送的数据，以及处理接收到的响应数据。需要注意的是，在使用串口时，我们需要先打开串口，设置串口参数，发送数据，然后再读取响应数据，最后关闭串口。