frmconnect.pas

DelphiOPCClien delphi 编写的opc客户端 源程序代码

unit frmConnect;

interface

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

type
  TFrmConnServer = class(TForm)
    lbServers: TListBox;
    Label1: TLabel;
    edtComputerName: TEdit;
    btnRefresh: TButton;
    Label2: TLabel;
    btnOK: TButton;
    btnCancel: TButton;
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lbServersDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    strServer: string;
    strMachine: string;
  end;

var
  FrmConnServer: TFrmConnServer;

implementation

{$R *.dfm}

uses
  HFOPCClient;

procedure TFrmConnServer.btnOKClick(Sender: TObject);
begin
  if lbServers.ItemIndex >= 0 then
    strServer := lbServers.Items[lbServers.ItemIndex]
  else
    strServer := '';
  strMachine := edtComputerName.Text;
  ModalResult := mrOK;
end;

procedure TFrmConnServer.FormCreate(Sender: TObject);
var
  Count: Integer;
  I: Integer;
  Buf: array[0..255] of char;
begin
  Count := GetServerCount(nil);
  if Count > 0 then
  begin
    for I := 0 to Count - 1 do
    begin
      if GetServerName(I, Buf, 255) then
        lbServers.AddItem(Buf, nil);
    end;
  end;
end;

procedure TFrmConnServer.lbServersDblClick(Sender: TObject);
begin
  btnOKClick(btnOK);
end;

end.