delphi 网络继电器 代码

以下是一个简单的Delphi程序，用于控制网络继电器：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdSSL, IdSSLOpenSSL, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    function SendCommand(const ACommand: string): string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.SendCommand(const ACommand: string): string;
begin
  Result := IdHTTP1.Get('https://your.server.com/cgi-bin/control.cgi?cmd=' + ACommand);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendCommand('on' + Edit1.Text);
  Memo1.Lines.Add('Relay ' + Edit1.Text + ' turned on.');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SendCommand('off' + Edit1.Text);
  Memo1.Lines.Add('Relay ' + Edit1.Text + ' turned off.');
end;

end.

在这个例子中，我们使用了Delphi的 `IdHTTP` 组件来发送HTTP请求，以便与网络继电器进行通信。我们还使用了 `IdSSLIOHandlerSocketOpenSSL` 组件来处理SSL连接。

在 `SendCommand` 函数中，我们将发送一个GET请求到网络继电器的控制CGI脚本，并将命令作为查询参数传递。例如，如果我们想要打开继电器1，我们将调用 `SendCommand('on1')`。

在 `Button1Click` 和 `Button2Click` 事件处理程序中，我们分别调用 `SendCommand` 函数以打开和关闭继电器，并将结果添加到 `Memo1` 中以供显示。