sysmocom
/
openblt
11
0
Fork 0
Code Issues Pull Requests Releases Activity

Refs #335. Added XCP Connection Mode configuration setting to all MicroBoot communication interfaces. 

git-svn-id: https://svn.code.sf.net/p/openblt/code/trunk@365 5dc33758-31d5-4daf-9ae8-b24bf3d40d73
This commit is contained in:
Frank Voorburg 2017-09-18 21:01:21 +00:00
parent d241bab208
commit 75c8698a55
30 changed files with 81 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Host/Source/MicroBoot/interfaces/XcpLoader.pas
View File

@ -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;

BIN
Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.dfm
View File

Binary file not shown.

12
Host/Source/MicroBoot/interfaces/can/kvaser/XcpSettings.pas
View File

@ -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;

BIN
Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.dfm
View File

Binary file not shown.

12
Host/Source/MicroBoot/interfaces/can/lawicel/XcpSettings.pas
View File

@ -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;

4
Host/Source/MicroBoot/interfaces/can/lawicel/openblt_can_lawicel.dproj
View File

@ -7,7 +7,7 @@
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>18.1</ProjectVersion>
<ProjectVersion>18.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@ -70,7 +70,7 @@
<DCC_Optimize>false</DCC_Optimize>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<Debugger_HostApplication>C:\Work\software\OpenBLT\Host\MicroBoot.exe</Debugger_HostApplication>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>

BIN
Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.dfm
View File

Binary file not shown.

12
Host/Source/MicroBoot/interfaces/can/peak/XcpSettings.pas
View File

@ -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;

4
Host/Source/MicroBoot/interfaces/can/peak/openblt_can_peak.dproj
View File

@ -7,7 +7,7 @@
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>18.1</ProjectVersion>
<ProjectVersion>18.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@ -70,7 +70,7 @@
<DCC_Optimize>false</DCC_Optimize>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<Debugger_HostApplication>C:\Work\software\OpenBLT\Host\MicroBoot.exe</Debugger_HostApplication>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>

BIN
Host/Source/MicroBoot/interfaces/net/XcpSettings.dfm
View File

Binary file not shown.

8
Host/Source/MicroBoot/interfaces/net/XcpSettings.pas
View File

@ -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;

4
Host/Source/MicroBoot/interfaces/net/openblt_net.dproj
View File

@ -7,7 +7,7 @@
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>18.1</ProjectVersion>
<ProjectVersion>18.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@ -70,7 +70,7 @@
<DCC_Optimize>false</DCC_Optimize>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<Manifest_File>(None)</Manifest_File>
<VerInfo_Locale>1033</VerInfo_Locale>

BIN
Host/Source/MicroBoot/interfaces/uart/XcpSettings.dfm
View File

Binary file not shown.

8
Host/Source/MicroBoot/interfaces/uart/XcpSettings.pas
View File

@ -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;

4
Host/Source/MicroBoot/interfaces/uart/openblt_uart.dproj
View File

@ -7,7 +7,7 @@
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>18.1</ProjectVersion>
<ProjectVersion>18.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@ -71,7 +71,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Debugger_HostApplication>C:\Work\software\OpenBLT\Host\MicroBoot.exe</Debugger_HostApplication>
<Manifest_File>(None)</Manifest_File>

BIN
Host/Source/MicroBoot/interfaces/usb/XcpSettings.dfm
View File

Binary file not shown.

11
Host/Source/MicroBoot/interfaces/usb/XcpSettings.pas
View File

@ -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;

4
Host/Source/MicroBoot/interfaces/usb/openblt_usb.dproj
View File

@ -7,7 +7,7 @@
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>18.1</ProjectVersion>
<ProjectVersion>18.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@ -71,7 +71,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.0.0;Comments=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.1.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>C:\Work\software\OpenBLT\Host\MicroBoot.exe</Debugger_HostApplication>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>(None)</Manifest_File>

BIN
Host/openblt_can_kvaser.dll
View File

Binary file not shown.

1
Host/openblt_can_kvaser.ini
View File

@ -13,3 +13,4 @@ t4=10000
t5=1000
t7=2000
tconnect=20
connectmode=0

BIN
Host/openblt_can_lawicel.dll
View File

Binary file not shown.

1
Host/openblt_can_lawicel.ini
View File

@ -13,3 +13,4 @@ t4=10000
t5=1000
t7=2000
tconnect=20
connectmode=0

BIN
Host/openblt_can_peak.dll
View File

Binary file not shown.

1
Host/openblt_can_peak.ini
View File

@ -13,3 +13,4 @@ t4=10000
t5=1000
t7=2000
tconnect=20
connectmode=0

BIN
Host/openblt_net.dll
View File

Binary file not shown.

1
Host/openblt_net.ini
View File

@ -9,3 +9,4 @@ t4=10000
t5=1000
t7=2000
tconnect=300
connectmode=0

BIN
Host/openblt_uart.dll
View File

Binary file not shown.

1
Host/openblt_uart.ini
View File

@ -9,3 +9,4 @@ t4=10000
t5=1000
t7=2000
tconnect=20
connectmode=0

BIN
Host/openblt_usb.dll
View File

Binary file not shown.

1
Host/openblt_usb.ini
View File

@ -6,3 +6,4 @@ t4=10000
t5=1000
t7=2000
tconnect=20
connectmode=0