udbnumber.pas

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

unit uDBnumber;

interface

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

type
  TFrmDBCount = class(TForm)
    Button1: TButton;
    Button2: TButton;
    XPManifest1: TXPManifest;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure DBCounterror(var message: TMessage); message CM_COMMSG;
  end;

var
  FrmDBCount: TFrmDBCount;

implementation

{$R *.dfm}
uses
  Prodave60;
Procedure TfrmDBcount.DBcounterror(var message: TMessage);
var
   Msg:TMessage;
   Wp:integer;
begin
     Msg:=message;
     Wp:=msg.WParam;
     if (Wp=DBCountERR) then begin
       Messagebox(AppHWD.Handle,Pchar(GetErrorMessage_ex6(msg.LParam)),
                   Pchar('错误代码 :0x'+ IntToHex(msg.LParam,4)),
                   MB_OK);
      end;
end;

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

procedure TFrmDBCount.Button2Click(Sender: TObject);
begin
   close;
end;

procedure TFrmDBCount.Button1Click(Sender: TObject);
var
   BufferLen,i:integer;
   DataLen,Conflag:integer;
   BuchBuffer:array[1..512] of word;
begin
     BufferLen:=512;
     for i :=1 to 512 do
             BuchBuffer[i]:=0;
     DataLen:=0;
     Edit1.Text:='0';
     Memo1.Lines.BeginUpdate;
     Memo1.Clear;
     Button1.Enabled:=false;
     Conflag:=db_buch_ex6(BufferLen,@BuchBuffer,@DataLen); // DataLen:代表返回的字节数
     if ConFlag=0 then begin
         for i :=1  to (DataLen div 2) do begin
            Memo1.Lines.Add('DB '+IntToStr(BuchBuffer[i]));
         end;
     end;    
     Edit1.Text:=IntToStr(DataLen div 2);
     Memo1.Lines.EndUpdate;
     if ConFlag<>0 then begin
        PostMessage(AppHWD.Handle, CM_COMMSG, DBCountERR, ConFlag);
     end;
     Button1.Enabled:=true;
end;
procedure TFrmDBCount.FormCreate(Sender: TObject);
begin
     Button1.Enabled:=true;
end;

end.