update providerlist, save logins

Author: landrix

Samples/OpenConnect.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{EB7E0B20-2291-499E-9A3E-A9725074D118}</ProjectGuid>
-        <ProjectVersion>19.2</ProjectVersion>
+        <ProjectVersion>19.4</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <MainSource>OpenConnect.dpr</MainSource>
         <Base>True</Base>
@@ -132,17 +132,17 @@
             <Form>MainForm</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <BuildConfiguration Include="Release">
-            <Key>Cfg_2</Key>
-            <CfgParent>Base</CfgParent>
-        </BuildConfiguration>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_1</Key>
             <CfgParent>Base</CfgParent>
         </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
     </ItemGroup>
     <ProjectExtensions>
         <Borland.Personality>Delphi.Personality.12</Borland.Personality>
@@ -191,6 +191,16 @@
                         <Operation>0</Operation>
                     </Platform>
                 </DeployClass>
+                <DeployClass Name="AndroidClasses">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                </DeployClass>
                 <DeployClass Name="AndroidClassesDexFile">
                     <Platform Name="Android">
                         <RemoteDir>classes</RemoteDir>
@@ -492,6 +502,11 @@
                         <Operation>1</Operation>
                         <Extensions>.framework</Extensions>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
                     <Platform Name="Win32">
                         <Operation>0</Operation>
                     </Platform>
@@ -519,6 +534,11 @@
                         <Operation>1</Operation>
                         <Extensions>.dylib</Extensions>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
                     <Platform Name="Win32">
                         <Operation>0</Operation>
                         <Extensions>.dll;.bpl</Extensions>
@@ -547,6 +567,11 @@
                         <Operation>1</Operation>
                         <Extensions>.dylib</Extensions>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
                     <Platform Name="Win32">
                         <Operation>0</Operation>
                         <Extensions>.bpl</Extensions>
@@ -576,6 +601,10 @@
                         <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
                         <Operation>0</Operation>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
                     <Platform Name="Win32">
                         <Operation>0</Operation>
                     </Platform>
@@ -841,6 +870,10 @@
                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectOSXEntitlements">
                     <Platform Name="OSX32">
@@ -851,6 +884,10 @@
                         <RemoteDir>..\</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectOSXInfoPList">
                     <Platform Name="OSX32">
@@ -861,6 +898,10 @@
                         <RemoteDir>Contents</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectOSXResource">
                     <Platform Name="OSX32">
@@ -871,6 +912,10 @@
                         <RemoteDir>Contents\Resources</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Required="true" Name="ProjectOutput">
                     <Platform Name="Android">
@@ -901,6 +946,10 @@
                         <RemoteDir>Contents\MacOS</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
                     <Platform Name="Win32">
                         <Operation>0</Operation>
                     </Platform>
@@ -939,16 +988,17 @@
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
-                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
             </Deployment>
             <Platforms>
                 <Platform value="Win32">True</Platform>

Samples/OpenConnect.res

@@ -10,11 +10,10 @@ object MainForm: TMainForm
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
-  OldCreateOrder = False
   Position = poScreenCenter
+  OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  PixelsPerInch = 96
   TextHeight = 13
   object ListView1: TListView
     Left = 0
@@ -108,7 +107,7 @@ object MainForm: TMainForm
       Height = 33
       Cursor = crHandPoint
       AutoSize = False
-      Caption = 'https://github.com/ LandrixSoftware/IDSConnect-for-Delphi'
+      Caption = 'https://github.com/LandrixSoftware/ IDSConnect-for-Delphi'
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clBlue
       Font.Height = -11
@@ -176,6 +175,9 @@ object MainForm: TMainForm
     Align = alBottom
     BevelOuter = bvNone
     TabOrder = 2
+    DesignSize = (
+      1286
+      41)
     object Button1: TButton
       Left = 8
       Top = 6
@@ -185,5 +187,24 @@ object MainForm: TMainForm
       TabOrder = 0
       OnClick = Button1Click
     end
+    object Button3: TButton
+      Left = 1196
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Beenden'
+      TabOrder = 1
+      OnClick = Button3Click
+    end
+    object CheckBox1: TCheckBox
+      Left = 1016
+      Top = 10
+      Width = 169
+      Height = 17
+      Anchors = [akTop, akRight]
+      Caption = 'Aenderungen nicht speichern'
+      TabOrder = 2
+    end
   end
 end

Samples/OpenConnectUnit1.dfm

@@ -30,13 +30,17 @@   TMainForm = class(TForm)
     Edit5: TEdit;
     Label9: TLabel;
     Label10: TLabel;
+    Button3: TButton;
+    CheckBox1: TCheckBox;
     procedure FormCreate(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure Edit3Change(Sender: TObject);
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
     procedure Button2Click(Sender: TObject);
     procedure Label10Click(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure Button3Click(Sender: TObject);
   public
     Suppliers: TOpenConnectBusinessList;
     Configuration : TMemIniFile;
@@ -55,7 +59,12 @@ procedure TMainForm.FormCreate(Sender: TObject);
   Suppliers:= TOpenConnectBusinessList.Create;
   Configuration := TMemIniFile.Create(ExtractFilePath(ExtractFileDir(ExtractFileDir(Application.ExeName)))+'configuration.ini');
   Editable := false;
-  
+
+  Left := 50;
+  Top := 50;
+  Width := Screen.DesktopWidth-100;
+  Height := Screen.DesktopHeight-100;
+
   with ListView1.Columns.Add do
   begin
     Caption := 'Service-Name';
@@ -117,11 +126,25 @@ procedure TMainForm.FormCreate(Sender: TObject);
     Alignment := taLeftJustify;
     Width := 50;
   end;
+  for var i : Integer := 0 to ListView1.Columns.Count-1 do
+    ListView1.Columns[i].Width := Configuration.ReadInteger(ListView1.Name,i.ToString,ListView1.Columns[i].Width);
+end;
+
+procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  for var i : Integer := 0 to ListView1.Columns.Count-1 do
+    Configuration.WriteInteger(ListView1.Name,i.ToString,ListView1.Columns[i].Width);
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
-  if Assigned(Configuration) then begin Configuration.UpdateFile; Configuration.Free; Configuration := nil; end;
+  if Assigned(Configuration) then
+  begin
+    if not CheckBox1.Checked then
+      Configuration.UpdateFile;
+    Configuration.Free;
+    Configuration := nil;
+  end;
   if Assigned( Suppliers) then begin ListView1.Clear; Suppliers.Free;  Suppliers := nil; end;
 end;
 
@@ -153,7 +176,7 @@ procedure TMainForm.Button1Click(Sender: TObject);
     SubItems.Add(Suppliers[i].Supplier[j].Zip);
     SubItems.Add(Suppliers[i].Supplier[j].City);
     SubItems.Add(Suppliers[i].Supplier[j].Country);
-    if Configuration.SectionExists(IntToStr(Suppliers[i].ID)+'-'+IntToStr(Suppliers[i].Supplier[j].ID)) then
+    if Configuration.SectionExists(Suppliers[i].ServiceURL+'-'+IntToStr(Suppliers[i].ID)+'-'+IntToStr(Suppliers[i].Supplier[j].ID)) then
       SubItems.Add('vorhanden')
     else
       SubItems.Add('');
@@ -163,26 +186,35 @@ procedure TMainForm.Button1Click(Sender: TObject);
 procedure TMainForm.Edit3Change(Sender: TObject);
 var
   section : String;
+  i : Integer;
 begin
   if ListView1.Selected = nil then
     exit;
   if not Editable then
     exit;
-  section := ListView1.Selected.SubItems[0]+'-'+ListView1.Selected.SubItems[3];
-  if Trim(Edit1.Text).IsEmpty and Trim(Edit2.Text).IsEmpty and Trim(Edit3.Text).IsEmpty and 
-     Trim(Edit4.Text).IsEmpty and Trim(Edit5.Text).IsEmpty  then
-  begin   
+
+  section := ListView1.Selected.SubItems[1]+'-'+ListView1.Selected.SubItems[0]+'-'+ListView1.Selected.SubItems[3];
+
+  if //Trim(Edit1.Text).IsEmpty and Trim(Edit2.Text).IsEmpty and
+     Trim(Edit3.Text).IsEmpty and Trim(Edit4.Text).IsEmpty and Trim(Edit5.Text).IsEmpty  then
+  begin
     Configuration.EraseSection(section);
-    ListView1.Selected.SubItems[ListView1.Selected.SubItems.Count-1] := '';
   end else
   begin
     Configuration.WriteString(section,'idsconnectprocesses',Edit1.Text);
     Configuration.WriteString(section,'idsconnecturl',Edit2.Text);
     Configuration.WriteString(section,'customerno',Edit3.Text);
     Configuration.WriteString(section,'username',Edit4.Text);
     Configuration.WriteString(section,'password',Edit5.Text);
-    ListView1.Selected.SubItems[ListView1.Selected.SubItems.Count-1] := 'vorhanden';
   end;
+
+  for i := 0 to ListView1.Items.Count-1 do
+  if Configuration.SectionExists(ListView1.Items[i].SubItems[1]+'-'+ListView1.Items[i].SubItems[0]+'-'+ListView1.Items[i].SubItems[3]) then
+    ListView1.Items[i].SubItems[ListView1.Selected.SubItems.Count-1] := 'vorhanden'
+  else
+    ListView1.Items[i].SubItems[ListView1.Selected.SubItems.Count-1] := '';
+
+
 end;
 
 procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
@@ -195,7 +227,7 @@ procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem; Select
     exit;
   Editable := false;
   try
-    section := Item.SubItems[0]+'-'+Item.SubItems[3];
+    section := Item.SubItems[1]+'-'+Item.SubItems[0]+'-'+Item.SubItems[3];
     Edit1.Text := Configuration.ReadString(section,'idsconnectprocesses','');
     Edit2.Text := Configuration.ReadString(section,'idsconnecturl','');
     Edit3.Text := Configuration.ReadString(section,'customerno','');
@@ -244,6 +276,11 @@ procedure TMainForm.Button2Click(Sender: TObject);
   end;
 end;
 
+procedure TMainForm.Button3Click(Sender: TObject);
+begin
+  Close;
+end;
+
 procedure TMainForm.Label10Click(Sender: TObject);
 begin
   ShellExecute(0,'open',PChar('https://github.com/LandrixSoftware/IDSConnect-for-Delphi'),'','',SW_SHOWNORMAL);