发现一 BUG。就是在
if ZytApplication.IsService('ZYTModbusToSiemensPLCgate') then
begin
ZytApplication.ServiceName:='ZYTModbusToSiemensPLCgate';
ZytApplication.DisplayName:='Modbus Server V1.0.0';
ZytApplication.Description:='Modbus 到Siemens PLC网关转换 支持 OPC V1.00~V3.0';
ZytApplication.initialize;
ZytApplication.CreateForm(TfrmServerMain, frmServerMain);
ZytApplication.Run;
end else begin
Application.Initialize;
Application.CreateForm(TfrmServerMain, frmServerMain);
//Application.CreateForm(TfrmServerMain, frmServerMain); 重复了一次， 请删掉即可
frmServerMain.Initialize(False);
Application.Run;
end; |
