uunload.pas

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

unit uUnload;

interface

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

type
  TFrmUnload = class(TForm)
    Label1: TLabel;
    ButtonUnload: TButton;
    XPMenu1: TXPMenu;
    VLEConnr: TValueListEditor;
    procedure FormCreate(Sender: TObject);
    procedure ButtonUnloadClick(Sender: TObject);
    procedure VLEConnrSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmUnload: TFrmUnload;
  ValueNO:integer;
implementation
 uses Pubfuns,UglobData,Prodave60, UMain;
{$R *.dfm}
Function UpdateValueLisit(AVLEConnr:TValueListEditor):Boolean;
Var
  i,n:Integer;
begin
   n:=0;
   AVLEConnr.strings.Clear;
   for i:= 0 to 63 do  begin
      if LoadCon[i].Connr=true then begin
          n:=n+1;
          AVLEConnr.InsertRow(IntTostr(n),IntTostr(i),True);
      end;
   end;
   if n=0 then
     Result:=false
   else
     Result:=true;
end;

procedure TFrmUnload.FormCreate(Sender: TObject); 
begin
  ButtonUnload.Enabled:=UpdateValueLisit(VLEConNr);
end;

procedure TFrmUnload.ButtonUnloadClick(Sender: TObject);
var
 Ret,i:integer;
 CheckRet:integer;
begin  
         CheckRet:=UnloadConnection_ex6(ValueNO);
         if (CheckRet=0)or (CheckRet=$7030)  then begin
            LoadCon[ValueNO].Connr:=false;
            if (CurConNumber=ValueNo) then
                  PostMessage(PmainForm.Handle, CM_COMMSG, ConDelete,CheckRet);
         end
         else
           begin
             Messagebox(AppHWD.handle,Pchar(GetErrorMessage_ex6(CheckRet)),
                   Pchar('错误代码 :0x'+ IntToHex(CheckRet,4)),
                   MB_OK);
            end;
        ButtonUnload.Enabled:=UpdateValueLisit(VLEConNr);   
end;
procedure TFrmUnload.VLEConnrSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
       if VLEConnr.Cells[Acol,ARow]='' then begin
          exit;
       end;
       ValueNO:=StrToint(Copy(VLEConnr.Strings[ARow-1],3,2));
end;

end.