diff --git a/Host/Source/MicroBoot/interfaces/XcpLoader.pas b/Host/Source/MicroBoot/interfaces/XcpLoader.pas index c250f3f8..b051b3a0 100644 --- a/Host/Source/MicroBoot/interfaces/XcpLoader.pas +++ b/Host/Source/MicroBoot/interfaces/XcpLoader.pas @@ -114,6 +114,7 @@ type FIsConnected : Boolean; FTimerInterval : array[1..7] of Word; FConnectCmdTimer : Word; + FConnectMode : Byte; FIsIntel : Boolean; FCtoPacketLen : Byte; FCtoPGMPacketLen : Byte; @@ -128,7 +129,7 @@ type procedure SetOrderedLong(value: LongWord; data : PByteArray); function SendSynchedPacket(timeMs : Word; useMta : Boolean) : Boolean; function CmdSynch(useMta : Boolean) : Boolean; - function CmdConnect : Boolean; + function CmdConnect(mode: Byte) : Boolean; function CmdDisconnect : Boolean; function CmdProgramStart : Boolean; function CmdGetStatus : Boolean; @@ -202,6 +203,8 @@ begin // timeout is important for the OpenBLT timed backdoor feature. The backdoor time should // be at least 2.5 times the length of this timeout value. FConnectCmdTimer := 20; // 20 ms - connect command + // set default connection mode + FConnectMode := 0; // create instance of XCP transport layer object comDriver := TXcpTransport.Create; @@ -374,6 +377,7 @@ begin FTimerInterval[5] := settingsIni.ReadInteger('xcp', 't5', 1000); FTimerInterval[7] := settingsIni.ReadInteger('xcp', 't7', 2000); FConnectCmdTimer := settingsIni.ReadInteger('xcp', 'tconnect', 20); + FConnectMode := settingsIni.ReadInteger('xcp', 'connectmode', 0); // release ini file object settingsIni.Free; @@ -553,19 +557,19 @@ end; //*** end of CmdSynch *** //*************************************************************************************** // NAME: CmdConnect -// PARAMETER: none +// PARAMETER: mode Connection mode. // RETURN VALUE: True is successful, False otherwise // DESCRIPTION: Connects the XCP slave to start the XCP session // //*************************************************************************************** -function TXcpLoader.CmdConnect : Boolean; +function TXcpLoader.CmdConnect(mode: Byte) : Boolean; begin // init return value Result := false; // prepare the connect command packet comDriver.packetData[0] := kCmdCONNECT; - comDriver.packetData[1] := 0; // normal mode + comDriver.packetData[1] := mode; // normal mode comDriver.packetLen := 2; // send out the command with 20ms timeout. note that this timeout is not required at @@ -1076,7 +1080,7 @@ end; //*** end of CmdProgramClear *** //*************************************************************************************** // NAME: StartProgrammingSession -// PARAMETER: none +// PARAMETER: none. // RETURN VALUE: kProgSessionStarted if successful, kProgSessionUnlockError in case // the PGM resource could not be unlocked or kProgSessionGenericError. // DESCRIPTION: Starts the programming session using the following XCP command @@ -1098,7 +1102,7 @@ var keyLen : byte; begin // send the CONNECT command - if not CmdConnect then + if not CmdConnect(FConnectMode) then begin result := kProgSessionGenericError; Exit; diff --git a/Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.dfm b/Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.dfm index 5a8a5a05..1fae1ce1 100644 Binary files a/Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.dfm and b/Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.dfm differ diff --git a/Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.pas b/Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.pas index 8714a838..a1459d78 100644 --- a/Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.pas +++ b/Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.pas @@ -83,6 +83,11 @@ type edtTconnect: TEdit; lblTconnect: TLabel; cmbBaudrate: TComboBox; + tabSession: TTabSheet; + iconXcp3: TImage; + lblXcpSession: TLabel; + lblConnectMode: TLabel; + cmbConnectMode: TComboBox; procedure btnOKClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure btnBrowseClick(Sender: TObject); @@ -414,13 +419,14 @@ begin FSettingsForm.edtReceiveId.Text := Format('%x',[settingsIni.ReadInteger('can', 'rxid', $7e1)]); // XCP related elements - FSettingsForm.edtSeedKey.Text := settingsIni.ReadString('xcp', 'seedkey', ''); + FSettingsForm.edtSeedKey.Text := settingsIni.ReadString('xcp', 'seedkey', ExtractFilePath(ParamStr(0))+''); FSettingsForm.edtT1.Text := IntToStr(settingsIni.ReadInteger('xcp', 't1', 1000)); FSettingsForm.edtT3.Text := IntToStr(settingsIni.ReadInteger('xcp', 't3', 2000)); FSettingsForm.edtT4.Text := IntToStr(settingsIni.ReadInteger('xcp', 't4', 10000)); FSettingsForm.edtT5.Text := IntToStr(settingsIni.ReadInteger('xcp', 't5', 1000)); FSettingsForm.edtT7.Text := IntToStr(settingsIni.ReadInteger('xcp', 't7', 2000)); FSettingsForm.edtTconnect.Text := IntToStr(settingsIni.ReadInteger('xcp', 'tconnect', 20)); + FSettingsForm.cmbConnectMode.ItemIndex := settingsIni.ReadInteger('xcp', 'connectmode', 0); // release ini file object settingsIni.Free; @@ -438,13 +444,14 @@ begin FSettingsForm.edtReceiveId.Text := Format('%x',[$7e1]); // XCP related elements - FSettingsForm.edtSeedKey.Text := ''; + FSettingsForm.edtSeedKey.Text := ExtractFilePath(ParamStr(0))+''; FSettingsForm.edtT1.Text := IntToStr(1000); FSettingsForm.edtT3.Text := IntToStr(2000); FSettingsForm.edtT4.Text := IntToStr(10000); FSettingsForm.edtT5.Text := IntToStr(1000); FSettingsForm.edtT7.Text := IntToStr(2000); FSettingsForm.edtTconnect.Text := IntToStr(20); + FSettingsForm.cmbConnectMode.ItemIndex := 0; end; // show the form as modal so we can get the result here @@ -471,6 +478,7 @@ begin settingsIni.WriteInteger('xcp', 't5', StrToInt(FSettingsForm.edtT5.Text)); settingsIni.WriteInteger('xcp', 't7', StrToInt(FSettingsForm.edtT7.Text)); settingsIni.WriteInteger('xcp', 'tconnect', StrToInt(FSettingsForm.edtTconnect.Text)); + settingsIni.WriteInteger('xcp', 'connectmode', FSettingsForm.cmbConnectMode.ItemIndex); // release ini file object settingsIni.Free; diff --git a/Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.dfm b/Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.dfm index 86c8c2b4..8c0a0c74 100644 Binary files a/Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.dfm and b/Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.dfm differ diff --git a/Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.pas b/Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.pas index 2b4ce334..95d3986f 100644 --- a/Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.pas +++ b/Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.pas @@ -83,6 +83,11 @@ type edtTconnect: TEdit; lblTconnect: TLabel; cmbBaudrate: TComboBox; + tabSession: TTabSheet; + iconXcp3: TImage; + lblXcpSession: TLabel; + lblConnectMode: TLabel; + cmbConnectMode: TComboBox; procedure btnOKClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure btnBrowseClick(Sender: TObject); @@ -396,13 +401,14 @@ begin FSettingsForm.edtReceiveId.Text := Format('%x',[settingsIni.ReadInteger('can', 'rxid', $7e1)]); // XCP related elements - FSettingsForm.edtSeedKey.Text := settingsIni.ReadString('xcp', 'seedkey', ''); + FSettingsForm.edtSeedKey.Text := settingsIni.ReadString('xcp', 'seedkey', ExtractFilePath(ParamStr(0))+''); FSettingsForm.edtT1.Text := IntToStr(settingsIni.ReadInteger('xcp', 't1', 1000)); FSettingsForm.edtT3.Text := IntToStr(settingsIni.ReadInteger('xcp', 't3', 2000)); FSettingsForm.edtT4.Text := IntToStr(settingsIni.ReadInteger('xcp', 't4', 10000)); FSettingsForm.edtT5.Text := IntToStr(settingsIni.ReadInteger('xcp', 't5', 1000)); FSettingsForm.edtT7.Text := IntToStr(settingsIni.ReadInteger('xcp', 't7', 2000)); FSettingsForm.edtTconnect.Text := IntToStr(settingsIni.ReadInteger('xcp', 'tconnect', 20)); + FSettingsForm.cmbConnectMode.ItemIndex := settingsIni.ReadInteger('xcp', 'connectmode', 0); // release ini file object settingsIni.Free; @@ -420,13 +426,14 @@ begin FSettingsForm.edtReceiveId.Text := Format('%x',[$7e1]); // XCP related elements - FSettingsForm.edtSeedKey.Text := ''; + FSettingsForm.edtSeedKey.Text := ExtractFilePath(ParamStr(0))+''; FSettingsForm.edtT1.Text := IntToStr(1000); FSettingsForm.edtT3.Text := IntToStr(2000); FSettingsForm.edtT4.Text := IntToStr(10000); FSettingsForm.edtT5.Text := IntToStr(1000); FSettingsForm.edtT7.Text := IntToStr(2000); FSettingsForm.edtTconnect.Text := IntToStr(20); + FSettingsForm.cmbConnectMode.ItemIndex := 0; end; // show the form as modal so we can get the result here @@ -453,6 +460,7 @@ begin settingsIni.WriteInteger('xcp', 't5', StrToInt(FSettingsForm.edtT5.Text)); settingsIni.WriteInteger('xcp', 't7', StrToInt(FSettingsForm.edtT7.Text)); settingsIni.WriteInteger('xcp', 'tconnect', StrToInt(FSettingsForm.edtTconnect.Text)); + settingsIni.WriteInteger('xcp', 'connectmode', FSettingsForm.cmbConnectMode.ItemIndex); // release ini file object settingsIni.Free; diff --git a/Host/Source/MicroBoot/interfaces/can/lawicel/openblt_can_lawicel.dproj b/Host/Source/MicroBoot/interfaces/can/lawicel/openblt_can_lawicel.dproj index 9bf27d80..786f7ce8 100644 --- a/Host/Source/MicroBoot/interfaces/can/lawicel/openblt_can_lawicel.dproj +++ b/Host/Source/MicroBoot/interfaces/can/lawicel/openblt_can_lawicel.dproj @@ -7,7 +7,7 @@ 1 Library VCL - 18.1 + 18.2 Win32 @@ -70,7 +70,7 @@ false - CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments= + CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) 1 C:\Work\software\OpenBLT\Host\MicroBoot.exe true diff --git a/Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.dfm b/Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.dfm index 22d0b1cc..4c88fb1b 100644 Binary files a/Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.dfm and b/Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.dfm differ diff --git a/Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.pas b/Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.pas index 7e312609..6a8729a7 100644 --- a/Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.pas +++ b/Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.pas @@ -83,6 +83,11 @@ type edtTconnect: TEdit; lblTconnect: TLabel; cmbBaudrate: TComboBox; + tabSession: TTabSheet; + iconXcp3: TImage; + lblXcpSession: TLabel; + lblConnectMode: TLabel; + cmbConnectMode: TComboBox; procedure btnOKClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure btnBrowseClick(Sender: TObject); @@ -418,13 +423,14 @@ begin FSettingsForm.edtReceiveId.Text := Format('%x',[settingsIni.ReadInteger('can', 'rxid', $7e1)]); // XCP related elements - FSettingsForm.edtSeedKey.Text := settingsIni.ReadString('xcp', 'seedkey', ''); + FSettingsForm.edtSeedKey.Text := settingsIni.ReadString('xcp', 'seedkey', ExtractFilePath(ParamStr(0))+''); FSettingsForm.edtT1.Text := IntToStr(settingsIni.ReadInteger('xcp', 't1', 1000)); FSettingsForm.edtT3.Text := IntToStr(settingsIni.ReadInteger('xcp', 't3', 2000)); FSettingsForm.edtT4.Text := IntToStr(settingsIni.ReadInteger('xcp', 't4', 10000)); FSettingsForm.edtT5.Text := IntToStr(settingsIni.ReadInteger('xcp', 't5', 1000)); FSettingsForm.edtT7.Text := IntToStr(settingsIni.ReadInteger('xcp', 't7', 2000)); FSettingsForm.edtTconnect.Text := IntToStr(settingsIni.ReadInteger('xcp', 'tconnect', 20)); + FSettingsForm.cmbConnectMode.ItemIndex := settingsIni.ReadInteger('xcp', 'connectmode', 0); // release ini file object settingsIni.Free; @@ -442,13 +448,14 @@ begin FSettingsForm.edtReceiveId.Text := Format('%x',[$7e1]); // XCP related elements - FSettingsForm.edtSeedKey.Text := ''; + FSettingsForm.edtSeedKey.Text := ExtractFilePath(ParamStr(0))+''; FSettingsForm.edtT1.Text := IntToStr(1000); FSettingsForm.edtT3.Text := IntToStr(2000); FSettingsForm.edtT4.Text := IntToStr(10000); FSettingsForm.edtT5.Text := IntToStr(1000); FSettingsForm.edtT7.Text := IntToStr(2000); FSettingsForm.edtTconnect.Text := IntToStr(20); + FSettingsForm.cmbConnectMode.ItemIndex := 0; end; // show the form as modal so we can get the result here @@ -475,6 +482,7 @@ begin settingsIni.WriteInteger('xcp', 't5', StrToInt(FSettingsForm.edtT5.Text)); settingsIni.WriteInteger('xcp', 't7', StrToInt(FSettingsForm.edtT7.Text)); settingsIni.WriteInteger('xcp', 'tconnect', StrToInt(FSettingsForm.edtTconnect.Text)); + settingsIni.WriteInteger('xcp', 'connectmode', FSettingsForm.cmbConnectMode.ItemIndex); // release ini file object settingsIni.Free; diff --git a/Host/Source/MicroBoot/interfaces/can/peak/openblt_can_peak.dproj b/Host/Source/MicroBoot/interfaces/can/peak/openblt_can_peak.dproj index 76da7a50..2f51eb84 100644 --- a/Host/Source/MicroBoot/interfaces/can/peak/openblt_can_peak.dproj +++ b/Host/Source/MicroBoot/interfaces/can/peak/openblt_can_peak.dproj @@ -7,7 +7,7 @@ 1 Library VCL - 18.1 + 18.2 Win32 @@ -70,7 +70,7 @@ false - CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments= + CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) 1 C:\Work\software\OpenBLT\Host\MicroBoot.exe true diff --git a/Host/Source/MicroBoot/interfaces/net/XcpSettings.dfm b/Host/Source/MicroBoot/interfaces/net/XcpSettings.dfm index b35a68d2..1d9d91c6 100644 Binary files a/Host/Source/MicroBoot/interfaces/net/XcpSettings.dfm and b/Host/Source/MicroBoot/interfaces/net/XcpSettings.dfm differ diff --git a/Host/Source/MicroBoot/interfaces/net/XcpSettings.pas b/Host/Source/MicroBoot/interfaces/net/XcpSettings.pas index ea11d0a0..15b41053 100644 --- a/Host/Source/MicroBoot/interfaces/net/XcpSettings.pas +++ b/Host/Source/MicroBoot/interfaces/net/XcpSettings.pas @@ -76,6 +76,11 @@ type edtPort: TEdit; edtTconnect: TEdit; lblTconnect: TLabel; + tabSession: TTabSheet; + iconXcp3: TImage; + lblXcpSession: TLabel; + lblConnectMode: TLabel; + cmbConnectMode: TComboBox; procedure btnOKClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure btnBrowseClick(Sender: TObject); @@ -211,6 +216,7 @@ begin FSettingsForm.edtT5.Text := IntToStr(settingsIni.ReadInteger('xcp', 't5', 1000)); FSettingsForm.edtT7.Text := IntToStr(settingsIni.ReadInteger('xcp', 't7', 2000)); FSettingsForm.edtTconnect.Text := IntToStr(settingsIni.ReadInteger('xcp', 'tconnect', 300)); + FSettingsForm.cmbConnectMode.ItemIndex := settingsIni.ReadInteger('xcp', 'connectmode', 0); // release ini file object settingsIni.Free; @@ -230,6 +236,7 @@ begin FSettingsForm.edtT5.Text := IntToStr(1000); FSettingsForm.edtT7.Text := IntToStr(2000); FSettingsForm.edtTconnect.Text := IntToStr(300); + FSettingsForm.cmbConnectMode.ItemIndex := 0; end; // show the form as modal so we can get the result here @@ -252,6 +259,7 @@ begin settingsIni.WriteInteger('xcp', 't5', StrToInt(FSettingsForm.edtT5.Text)); settingsIni.WriteInteger('xcp', 't7', StrToInt(FSettingsForm.edtT7.Text)); settingsIni.WriteInteger('xcp', 'tconnect', StrToInt(FSettingsForm.edtTconnect.Text)); + settingsIni.WriteInteger('xcp', 'connectmode', FSettingsForm.cmbConnectMode.ItemIndex); // release ini file object settingsIni.Free; diff --git a/Host/Source/MicroBoot/interfaces/net/openblt_net.dproj b/Host/Source/MicroBoot/interfaces/net/openblt_net.dproj index 707c705a..ea98e2d8 100644 --- a/Host/Source/MicroBoot/interfaces/net/openblt_net.dproj +++ b/Host/Source/MicroBoot/interfaces/net/openblt_net.dproj @@ -7,7 +7,7 @@ 1 Library VCL - 18.1 + 18.2 Win32 @@ -70,7 +70,7 @@ false - CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments= + CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) 1 (None) 1033 diff --git a/Host/Source/MicroBoot/interfaces/uart/XcpSettings.dfm b/Host/Source/MicroBoot/interfaces/uart/XcpSettings.dfm index 67620e7d..28d45f21 100644 Binary files a/Host/Source/MicroBoot/interfaces/uart/XcpSettings.dfm and b/Host/Source/MicroBoot/interfaces/uart/XcpSettings.dfm differ diff --git a/Host/Source/MicroBoot/interfaces/uart/XcpSettings.pas b/Host/Source/MicroBoot/interfaces/uart/XcpSettings.pas index f2d34ab6..548fa338 100644 --- a/Host/Source/MicroBoot/interfaces/uart/XcpSettings.pas +++ b/Host/Source/MicroBoot/interfaces/uart/XcpSettings.pas @@ -76,6 +76,11 @@ type openDialog: TOpenDialog; edtTconnect: TEdit; lblTconnect: TLabel; + tabSession: TTabSheet; + iconXcp3: TImage; + lblXcpSession: TLabel; + lblConnectMode: TLabel; + cmbConnectMode: TComboBox; procedure btnOKClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure btnBrowseClick(Sender: TObject); @@ -211,6 +216,7 @@ begin FSettingsForm.edtT5.Text := IntToStr(settingsIni.ReadInteger('xcp', 't5', 1000)); FSettingsForm.edtT7.Text := IntToStr(settingsIni.ReadInteger('xcp', 't7', 2000)); FSettingsForm.edtTconnect.Text := IntToStr(settingsIni.ReadInteger('xcp', 'tconnect', 20)); + FSettingsForm.cmbConnectMode.ItemIndex := settingsIni.ReadInteger('xcp', 'connectmode', 0); // release ini file object settingsIni.Free; @@ -230,6 +236,7 @@ begin FSettingsForm.edtT5.Text := IntToStr(1000); FSettingsForm.edtT7.Text := IntToStr(2000); FSettingsForm.edtTconnect.Text := IntToStr(20); + FSettingsForm.cmbConnectMode.ItemIndex := 0; end; // show the form as modal so we can get the result here @@ -252,6 +259,7 @@ begin settingsIni.WriteInteger('xcp', 't5', StrToInt(FSettingsForm.edtT5.Text)); settingsIni.WriteInteger('xcp', 't7', StrToInt(FSettingsForm.edtT7.Text)); settingsIni.WriteInteger('xcp', 'tconnect', StrToInt(FSettingsForm.edtTconnect.Text)); + settingsIni.WriteInteger('xcp', 'connectmode', FSettingsForm.cmbConnectMode.ItemIndex); // release ini file object settingsIni.Free; diff --git a/Host/Source/MicroBoot/interfaces/uart/openblt_uart.dproj b/Host/Source/MicroBoot/interfaces/uart/openblt_uart.dproj index fbccc625..c3fe0b58 100644 --- a/Host/Source/MicroBoot/interfaces/uart/openblt_uart.dproj +++ b/Host/Source/MicroBoot/interfaces/uart/openblt_uart.dproj @@ -7,7 +7,7 @@ 1 Library VCL - 18.1 + 18.2 Win32 @@ -71,7 +71,7 @@ 1 - CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments= + CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) 1033 C:\Work\software\OpenBLT\Host\MicroBoot.exe (None) diff --git a/Host/Source/MicroBoot/interfaces/usb/XcpSettings.dfm b/Host/Source/MicroBoot/interfaces/usb/XcpSettings.dfm index 585cc2ee..cdca8cc4 100644 Binary files a/Host/Source/MicroBoot/interfaces/usb/XcpSettings.dfm and b/Host/Source/MicroBoot/interfaces/usb/XcpSettings.dfm differ diff --git a/Host/Source/MicroBoot/interfaces/usb/XcpSettings.pas b/Host/Source/MicroBoot/interfaces/usb/XcpSettings.pas index f18a6271..0a73093d 100644 --- a/Host/Source/MicroBoot/interfaces/usb/XcpSettings.pas +++ b/Host/Source/MicroBoot/interfaces/usb/XcpSettings.pas @@ -69,6 +69,11 @@ type openDialog: TOpenDialog; edtTconnect: TEdit; lblTconnect: TLabel; + tabSession: TTabSheet; + iconXcp3: TImage; + lblXcpSession: TLabel; + lblConnectMode: TLabel; + cmbConnectMode: TComboBox; procedure btnOKClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure btnBrowseClick(Sender: TObject); @@ -102,8 +107,7 @@ implementation procedure TXcpSettingsForm.btnOKClick(Sender: TObject); begin ModalResult := mrOK; -end; -//*** end of btnOKClick *** +end; //*** end of btnOKClick *** //*************************************************************************************** @@ -201,6 +205,7 @@ begin FSettingsForm.edtT5.Text := IntToStr(settingsIni.ReadInteger('xcp', 't5', 1000)); FSettingsForm.edtT7.Text := IntToStr(settingsIni.ReadInteger('xcp', 't7', 2000)); FSettingsForm.edtTconnect.Text := IntToStr(settingsIni.ReadInteger('xcp', 'tconnect', 20)); + FSettingsForm.cmbConnectMode.ItemIndex := settingsIni.ReadInteger('xcp', 'connectmode', 0); // release ini file object settingsIni.Free; @@ -216,6 +221,7 @@ begin FSettingsForm.edtT5.Text := IntToStr(1000); FSettingsForm.edtT7.Text := IntToStr(2000); FSettingsForm.edtTconnect.Text := IntToStr(20); + FSettingsForm.cmbConnectMode.ItemIndex := 0; end; // show the form as modal so we can get the result here @@ -234,6 +240,7 @@ begin settingsIni.WriteInteger('xcp', 't5', StrToInt(FSettingsForm.edtT5.Text)); settingsIni.WriteInteger('xcp', 't7', StrToInt(FSettingsForm.edtT7.Text)); settingsIni.WriteInteger('xcp', 'tconnect', StrToInt(FSettingsForm.edtTconnect.Text)); + settingsIni.WriteInteger('xcp', 'connectmode', FSettingsForm.cmbConnectMode.ItemIndex); // release ini file object settingsIni.Free; diff --git a/Host/Source/MicroBoot/interfaces/usb/openblt_usb.dproj b/Host/Source/MicroBoot/interfaces/usb/openblt_usb.dproj index 50877238..4a8d109e 100644 --- a/Host/Source/MicroBoot/interfaces/usb/openblt_usb.dproj +++ b/Host/Source/MicroBoot/interfaces/usb/openblt_usb.dproj @@ -7,7 +7,7 @@ 1 Library VCL - 18.1 + 18.2 Win32 @@ -71,7 +71,7 @@ 1 - CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments= + CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) C:\Work\software\OpenBLT\Host\MicroBoot.exe 1033 (None) diff --git a/Host/openblt_can_kvaser.dll b/Host/openblt_can_kvaser.dll index 94538dce..e52cfa55 100644 Binary files a/Host/openblt_can_kvaser.dll and b/Host/openblt_can_kvaser.dll differ diff --git a/Host/openblt_can_kvaser.ini b/Host/openblt_can_kvaser.ini index 8f268943..5ffbd149 100644 --- a/Host/openblt_can_kvaser.ini +++ b/Host/openblt_can_kvaser.ini @@ -13,3 +13,4 @@ t4=10000 t5=1000 t7=2000 tconnect=20 +connectmode=0 diff --git a/Host/openblt_can_lawicel.dll b/Host/openblt_can_lawicel.dll index 5eb5a82c..8795cb23 100644 Binary files a/Host/openblt_can_lawicel.dll and b/Host/openblt_can_lawicel.dll differ diff --git a/Host/openblt_can_lawicel.ini b/Host/openblt_can_lawicel.ini index a0c9bdec..f2158ff6 100644 --- a/Host/openblt_can_lawicel.ini +++ b/Host/openblt_can_lawicel.ini @@ -13,3 +13,4 @@ t4=10000 t5=1000 t7=2000 tconnect=20 +connectmode=0 diff --git a/Host/openblt_can_peak.dll b/Host/openblt_can_peak.dll index 6d4836a5..7b10514f 100644 Binary files a/Host/openblt_can_peak.dll and b/Host/openblt_can_peak.dll differ diff --git a/Host/openblt_can_peak.ini b/Host/openblt_can_peak.ini index a0c9bdec..f2158ff6 100644 --- a/Host/openblt_can_peak.ini +++ b/Host/openblt_can_peak.ini @@ -13,3 +13,4 @@ t4=10000 t5=1000 t7=2000 tconnect=20 +connectmode=0 diff --git a/Host/openblt_net.dll b/Host/openblt_net.dll index e8fb0a02..f73d78ca 100644 Binary files a/Host/openblt_net.dll and b/Host/openblt_net.dll differ diff --git a/Host/openblt_net.ini b/Host/openblt_net.ini index f3c77908..fb3cba4d 100644 --- a/Host/openblt_net.ini +++ b/Host/openblt_net.ini @@ -9,3 +9,4 @@ t4=10000 t5=1000 t7=2000 tconnect=300 +connectmode=0 diff --git a/Host/openblt_uart.dll b/Host/openblt_uart.dll index b485ef68..bab6170d 100644 Binary files a/Host/openblt_uart.dll and b/Host/openblt_uart.dll differ diff --git a/Host/openblt_uart.ini b/Host/openblt_uart.ini index cafafe98..afb91d48 100644 --- a/Host/openblt_uart.ini +++ b/Host/openblt_uart.ini @@ -9,3 +9,4 @@ t4=10000 t5=1000 t7=2000 tconnect=20 +connectmode=0 diff --git a/Host/openblt_usb.dll b/Host/openblt_usb.dll index 164c7c70..ca837301 100644 Binary files a/Host/openblt_usb.dll and b/Host/openblt_usb.dll differ diff --git a/Host/openblt_usb.ini b/Host/openblt_usb.ini index 16d7f206..c54f9f20 100644 --- a/Host/openblt_usb.ini +++ b/Host/openblt_usb.ini @@ -6,3 +6,4 @@ t4=10000 t5=1000 t7=2000 tconnect=20 +connectmode=0