ubitread.pas

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

unit uBitRead;

interface

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

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

var
  FrmBitRead: TFrmBitRead;
      Value:byte;
implementation

{$R *.dfm}
Procedure TFrmBitRead.MBBitReaderror(var message: TMessage);
var
   Msg:TMessage;
   Wp:integer;
begin
     Msg:=message;
     Wp:=msg.WParam;
     if Wp=MBBitReadERR 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 Value<>0 then
                    AbLED1.Checked:=true
                    else
                    AbLED1.Checked:=false;
           end;
      end;
end;

procedure TFrmBitRead.Button1Click(Sender: TObject);
begin
     close;
end;

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

procedure TFrmBitRead.Button2Click(Sender: TObject);
var
    ConFlag:word;
    MbNr:Smallint;
    BitNr:Smallint;

begin
    MbNr:=StrToInt(EditMBNr.Text);
    BitNr:=StrToInt(EditBitNr.Text);
    Value:=StrToInt(EditValue.Text);

    ConFlag:=mb_bittest_ex6(MbNr,BitNr,@Value);
    PostMessage(AppHWD.Handle, CM_COMMSG, MBBitReadERR, ConFlag);
end;

end.