ubittest.pas

西门子Prodave6.0 的Delphi 版本, 需要安装 Prodave60软件,支持以太网通讯

unit uBitTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan,uGlobdata,PubFuns,Prodave60, _GClass, AbLED;

type
  TFrmBitTest = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EditMBNr: TEdit;
    EditBitNr: TEdit;
    EditValue: TEdit;
    Button1: TButton;
    Button2: TButton;
    XPManifest1: TXPManifest;
    AbLED1: TAbLED;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure MBtesterror(var message: TMessage); message CM_COMMSG;
  end;

var
  FrmBitTest: TFrmBitTest;

implementation

{$R *.dfm}
Procedure TFrmBitTest.MBtesterror(var message: TMessage);
var
   Msg:TMessage;
   Wp:integer;
begin
     Msg:=message;
     Wp:=msg.WParam;
     if Wp=MBBitTestERR then begin
       if (Msg.LParam<>0)  then
             Messagebox(AppHWD.Handle,Pchar(GetErrorMessage_ex6(Msg.LParam)),
                        Pchar('错误代码 :0x'+ IntToHex(msg.LParam,4)), MB_OK)
           else begin
               if EditValue.text<>'0' then
                    AbLED1.Checked:=true
                    else
                    AbLED1.Checked:=false;
           end;
      end;
end;
procedure TFrmBitTest.Button1Click(Sender: TObject);

begin
    close;
end;

procedure TFrmBitTest.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
end;

procedure TFrmBitTest.Button2Click(Sender: TObject);
var
    ConFlag:word;
    MbNr:Smallint;
    BitNr:Smallint;
    Value:byte;
begin
    MbNr:=StrToInt(EditMBNr.Text);
    BitNr:=StrToInt(EditBitNr.Text);
    Value:=StrToInt(EditValue.Text);
    ConFlag:=mb_setbit_ex6(MbNr,BitNr,Value);
    PostMessage(AppHWD.Handle, CM_COMMSG, MBBitTestERR, ConFlag);
end;

end.