root / LicensesMercure / UFManual.pas @ 1
Historique | Voir | Annoter | Télécharger (18,104 ko)
| 1 | 1 | avalancogn | unit UFManual;
|
|---|---|---|---|
| 2 | |||
| 3 | interface
|
||
| 4 | |||
| 5 | uses
|
||
| 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
||
| 7 | Dialogs, ComCtrls, StdCtrls, Buttons, Spin, PBSpinEdit, ExtCtrls, IniFiles, |
||
| 8 | IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, |
||
| 9 | IdMessageClient, IdAttachmentFile, IdSMTP, IdSMTPBase, IdIMAP4, IdIOHandler, |
||
| 10 | IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, |
||
| 11 | IdExplicitTLSClientServerBase; |
||
| 12 | |||
| 13 | type
|
||
| 14 | TFManual = class(TForm)
|
||
| 15 | LLicenseNumber: TLabel; |
||
| 16 | GBSource: TGroupBox; |
||
| 17 | RBOrder: TRadioButton; |
||
| 18 | RBINRA: TRadioButton; |
||
| 19 | RBAjinomoto: TRadioButton; |
||
| 20 | POrderNumber: TPanel; |
||
| 21 | LOrderNumber: TLabel; |
||
| 22 | EOrderNumber: TEdit; |
||
| 23 | PAjinomotoNumber: TPanel; |
||
| 24 | LAjinomotoNumber: TLabel; |
||
| 25 | EAjinomotoNumber: TEdit; |
||
| 26 | CBValidity: TCheckBox; |
||
| 27 | PBLicenseNumber: TPBSpinEdit; |
||
| 28 | LCompany: TLabel; |
||
| 29 | LFirstName: TLabel; |
||
| 30 | LLastName: TLabel; |
||
| 31 | ECompany: TEdit; |
||
| 32 | EFirstName: TEdit; |
||
| 33 | ELastName: TEdit; |
||
| 34 | LMail: TLabel; |
||
| 35 | EMail: TEdit; |
||
| 36 | LFinalDate: TLabel; |
||
| 37 | LSoftwareEnableKey: TLabel; |
||
| 38 | ESoftwareEnableKey: TEdit; |
||
| 39 | BBKeyCompute: TBitBtn; |
||
| 40 | DTPFinalDate: TDateTimePicker; |
||
| 41 | BBSend: TBitBtn; |
||
| 42 | BBSave: TBitBtn; |
||
| 43 | PInfo: TPanel; |
||
| 44 | LLicenseNotFound: TLabel; |
||
| 45 | SMTP: TIdSMTP; |
||
| 46 | MKey: TIdMessage; |
||
| 47 | MFile: TMemo; |
||
| 48 | IMAP4: TIdIMAP4; |
||
| 49 | OpenSSL_IMAP4: TIdSSLIOHandlerSocketOpenSSL; |
||
| 50 | OpenSSL_SMTP: TIdSSLIOHandlerSocketOpenSSL; |
||
| 51 | procedure FormCreate(Sender: TObject);
|
||
| 52 | procedure FormShow(Sender: TObject);
|
||
| 53 | procedure PBLicenseNumberChange(Sender: TObject);
|
||
| 54 | procedure BBKeyComputeClick(Sender: TObject);
|
||
| 55 | procedure BBSendClick(Sender: TObject);
|
||
| 56 | procedure BBSaveClick(Sender: TObject);
|
||
| 57 | procedure EInfoChange(Sender: TObject);
|
||
| 58 | private
|
||
| 59 | { D?clarations priv?es }
|
||
| 60 | public
|
||
| 61 | { D?clarations publiques }
|
||
| 62 | end;
|
||
| 63 | |||
| 64 | var
|
||
| 65 | FManual: TFManual; |
||
| 66 | |||
| 67 | implementation
|
||
| 68 | |||
| 69 | uses
|
||
| 70 | UFMenu; |
||
| 71 | |||
| 72 | {$R *.dfm}
|
||
| 73 | |||
| 74 | procedure TFManual.FormCreate(Sender: TObject);
|
||
| 75 | begin
|
||
| 76 | Top := 0;
|
||
| 77 | Left := 0;
|
||
| 78 | with IMAP4 do |
||
| 79 | begin
|
||
| 80 | Host := IMAP_SERVER; |
||
| 81 | // Username := EXCHANGE_USERNAME + '\' + EXCHANGE_SHARED_MAILBOX;
|
||
| 82 | Username := 'INRA\' + FMenu.EUsername.Text + '\' + EXCHANGE_SHARED_MAILBOX; |
||
| 83 | // Password := EXCHANGE_PASSWORD;
|
||
| 84 | Password := FMenu.EPassword.Text; |
||
| 85 | end;
|
||
| 86 | with SMTP do |
||
| 87 | begin
|
||
| 88 | Host := SMTP_SERVER; |
||
| 89 | // Username := EXCHANGE_USERNAME;
|
||
| 90 | Username := 'INRA\' + FMenu.EUsername.Text;
|
||
| 91 | // Password := EXCHANGE_PASSWORD;
|
||
| 92 | Password := FMenu.EPassword.Text; |
||
| 93 | end;
|
||
| 94 | end;
|
||
| 95 | |||
| 96 | procedure TFManual.FormShow(Sender: TObject);
|
||
| 97 | begin
|
||
| 98 | if FMenu.TLicense.RecordCount > 0 |
||
| 99 | then
|
||
| 100 | begin
|
||
| 101 | PBLicenseNumber.MaxValue := FMenu.TLicense.RecordCount; |
||
| 102 | PBLicenseNumber.MinValue := 1;
|
||
| 103 | PBLicenseNumber.Value := PBLicenseNumber.MinValue; |
||
| 104 | // PBLicenseNumberChange(nil);
|
||
| 105 | end
|
||
| 106 | else
|
||
| 107 | PBLicenseNumber.Enabled := FALSE; |
||
| 108 | end;
|
||
| 109 | |||
| 110 | procedure TFManual.PBLicenseNumberChange(Sender: TObject);
|
||
| 111 | begin
|
||
| 112 | if FMenu.TLicense.FindKey([PBLicenseNumber.Value])
|
||
| 113 | then // Affichage des informations |
||
| 114 | begin
|
||
| 115 | PInfo.Visible := TRUE; |
||
| 116 | CBValidity.Visible := TRUE; |
||
| 117 | LLicenseNotFound.Visible := FALSE; |
||
| 118 | with FMenu.TLicense do |
||
| 119 | begin
|
||
| 120 | CBValidity.Checked := FieldByName('Validity').AsBoolean;
|
||
| 121 | RBOrder.Checked := FieldByName('Type').AsInteger = 0; |
||
| 122 | POrderNumber.Visible := RBOrder.Checked; |
||
| 123 | EOrderNumber.Text := FieldByName('Source').AsString;
|
||
| 124 | RBINRA.Checked := FieldByName('Type').AsInteger = 1; |
||
| 125 | RBAjinomoto.Checked := FieldByName('Type').AsInteger = 2; |
||
| 126 | PAjinomotoNumber.Visible := RBAjinomoto.Checked; |
||
| 127 | EAjinomotoNumber.Text := FieldByName('Source').AsString;
|
||
| 128 | EFirstName.Text := FieldByName('FirstName').AsString;
|
||
| 129 | ELastName.Text := FieldByName('LastName').AsString;
|
||
| 130 | ECompany.Text := FieldByName('Company').AsString;
|
||
| 131 | EMail.Text := FieldByName('Mail').AsString;
|
||
| 132 | DTPFinalDate.DateTime := FieldByName('FinalDate').AsDateTime;
|
||
| 133 | ESoftwareEnableKey.Text := FieldByName('SoftwareEnableKey').AsString;
|
||
| 134 | EInfoChange(nil);
|
||
| 135 | end;
|
||
| 136 | end
|
||
| 137 | else
|
||
| 138 | begin
|
||
| 139 | PInfo.Visible := FALSE; |
||
| 140 | CBValidity.Visible := FALSE; |
||
| 141 | LLicenseNotFound.Visible := TRUE; |
||
| 142 | end;
|
||
| 143 | end;
|
||
| 144 | |||
| 145 | procedure TFManual.EInfoChange(Sender: TObject);
|
||
| 146 | begin
|
||
| 147 | if not FMenu.TLicense.FieldByName('Version').IsNull |
||
| 148 | and (Length(EFirstName.Text) > 0) |
||
| 149 | and (Length(ELastName.Text) > 0) |
||
| 150 | and not FMenu.TLicense.FieldByName('VolumeSerialNumber').IsNull |
||
| 151 | and AnsiSameText(ESoftwareEnableKey.Text, FMenu.CompleteKey(PBLicenseNumber.Value, FMenu.TLicense.FieldByName('Version').AsString, EFirstName.Text, ELastName.Text, ECompany.Text, FMenu.TLicense.FieldByName('VolumeSerialNumber').AsString, DateToStr(DTPFinalDate.Date))) |
||
| 152 | then
|
||
| 153 | begin
|
||
| 154 | BBSend.Enabled := TRUE; |
||
| 155 | BBSave.Enabled := TRUE; |
||
| 156 | end
|
||
| 157 | else
|
||
| 158 | begin
|
||
| 159 | BBSend.Enabled := FALSE; |
||
| 160 | BBSave.Enabled := FALSE; |
||
| 161 | end;
|
||
| 162 | if not FMenu.TLicense.FieldByName('Version').IsNull |
||
| 163 | and (Length(EFirstName.Text) > 0) |
||
| 164 | and (Length(ELastName.Text) > 0) |
||
| 165 | and not FMenu.TLicense.FieldByName('VolumeSerialNumber').IsNull |
||
| 166 | and not AnsiSameText(ESoftwareEnableKey.Text, FMenu.CompleteKey(PBLicenseNumber.Value, FMenu.TLicense.FieldByName('Version').AsString, EFirstName.Text, ELastName.Text, ECompany.Text, FMenu.TLicense.FieldByName('VolumeSerialNumber').AsString, DateToStr(DTPFinalDate.Date))) |
||
| 167 | then
|
||
| 168 | BBKeyCompute.Enabled := TRUE |
||
| 169 | else
|
||
| 170 | BBKeyCompute.Enabled := FALSE; |
||
| 171 | end;
|
||
| 172 | |||
| 173 | procedure TFManual.BBKeyComputeClick(Sender: TObject);
|
||
| 174 | begin
|
||
| 175 | ESoftwareEnableKey.Text := FMenu.CompleteKey(PBLicenseNumber.Value, FMenu.TLicense.FieldByName('Version').AsString, EFirstName.Text, ELastName.Text, ECompany.Text, FMenu.TLicense.FieldByName('VolumeSerialNumber').AsString, DateToStr(DTPFinalDate.Date)); |
||
| 176 | EInfoChange(nil);
|
||
| 177 | end;
|
||
| 178 | |||
| 179 | procedure TFManual.BBSendClick(Sender: TObject);
|
||
| 180 | var
|
||
| 181 | f: TIniFile; |
||
| 182 | choix: integer; |
||
| 183 | StrMessage: TStrings; |
||
| 184 | begin
|
||
| 185 | FMenu.MLog.Lines.Add('Updating license...');
|
||
| 186 | with FMenu.TLicense do |
||
| 187 | begin
|
||
| 188 | Edit; |
||
| 189 | FieldByName('FirstName').AsString := EFirstName.Text;
|
||
| 190 | FieldByName('LastName').AsString := ELastName.Text;
|
||
| 191 | FieldByName('Company').AsString := ECompany.Text;
|
||
| 192 | FieldByName('Mail').AsString := EMail.Text;
|
||
| 193 | FieldByName('FinalDate').AsDateTime := DTPFinalDate.DateTime;
|
||
| 194 | FieldByName('SoftwareEnableKey').AsString := ESoftwareEnableKey.Text;
|
||
| 195 | Post; |
||
| 196 | try
|
||
| 197 | f := TIniFile.Create(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic');
|
||
| 198 | f.WriteInteger ('License', 'LicenseType', 2); |
||
| 199 | f.WriteInteger ('License', 'LicenseNumber', FieldByName('LicenseNumber').AsInteger) ; |
||
| 200 | f.WriteString ('License', 'Version', FieldByName('Version').AsString); |
||
| 201 | f.WriteString ('License', 'FirstName', FieldByName('FirstName').AsString); |
||
| 202 | f.WriteString ('License', 'LastName', FieldByName('LastName').AsString); |
||
| 203 | f.WriteString ('License', 'Company', FieldByName('Company').AsString); |
||
| 204 | f.WriteString ('License', 'Address1', FieldByName('Address1').AsString); |
||
| 205 | f.WriteString ('License', 'Address2', FieldByName('Address2').AsString); |
||
| 206 | f.WriteString ('License', 'PostalCode', FieldByName('PostalCode').AsString); |
||
| 207 | f.WriteString ('License', 'City', FieldByName('City').AsString); |
||
| 208 | f.WriteString ('License', 'Country', FieldByName('Country').AsString); |
||
| 209 | f.WriteString ('License', 'Phone', FieldByName('Phone').AsString); |
||
| 210 | f.WriteString ('License', 'Fax', FieldByName('Fax').AsString); |
||
| 211 | f.WriteString ('License', 'Mail', FieldByName('Mail').AsString); |
||
| 212 | f.WriteString ('License', 'VolumeSerialNumber', FieldByName('VolumeSerialNumber').AsString); |
||
| 213 | f.WriteString ('License', 'FinalDate', DateToStr(FieldByName('FinalDate').AsDateTime)); |
||
| 214 | f.WriteString ('License', 'SoftwareEnableKey', FieldByName('SoftwareEnableKey').AsString); |
||
| 215 | f.Free; |
||
| 216 | choix := MessageDlg('Envoyer le fichier de licence' + sLineBreak + '- en tant que pi?ce jointe (Oui)' + sLineBreak + '- int?gr? dans le message (Non)', mtConfirmation, [mbYes, mbNo], 0); |
||
| 217 | FMenu.MLog.Lines.Add('Mailing to ' + EMail.Text + '...'); |
||
| 218 | with MKey do |
||
| 219 | begin
|
||
| 220 | Body.Clear; |
||
| 221 | MessageParts.Clear; |
||
| 222 | From.Name := 'InraPorc';
|
||
| 223 | From.Address := MAIL_INRAPORC; |
||
| 224 | Recipients.EMailAddresses := EMail.Text; |
||
| 225 | StrMessage := TStringList.Create; |
||
| 226 | if FieldByName('Language').AsString = 'FR' |
||
| 227 | then // R?ponse (fran?ais) |
||
| 228 | begin
|
||
| 229 | Subject := Format('[InraPorc] Cl? d''activation pour licence num?ro %d', [PBLicenseNumber.Value]);
|
||
| 230 | if choix = mrYes
|
||
| 231 | then
|
||
| 232 | StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\ManuelAttach?_FR.txt')
|
||
| 233 | else
|
||
| 234 | StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\ManuelInt?gr?_FR.txt');
|
||
| 235 | Body.AddStrings(StrMessage); |
||
| 236 | Body.Add(Format('La cl? d''activation est valable jusqu''au %s.', [DateToStr(DTPFinalDate.Date)]));
|
||
| 237 | Body.Add('Un nouveau fichier de licence vous sera automatiquement envoy? avant la prochaine date d''expiration.');
|
||
| 238 | Body.Add('');
|
||
| 239 | StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Signature_FR.txt');
|
||
| 240 | Body.AddStrings(StrMessage); |
||
| 241 | end
|
||
| 242 | else // Reply (english) |
||
| 243 | begin
|
||
| 244 | Subject := Format('[InraPorc] License activation key for license number %d', [PBLicenseNumber.Value]);
|
||
| 245 | if choix = mrYes
|
||
| 246 | then
|
||
| 247 | StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\ManuelAttach?_EN.txt')
|
||
| 248 | else
|
||
| 249 | StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\ManuelInt?gr?_EN.txt');
|
||
| 250 | Body.AddStrings(StrMessage); |
||
| 251 | Body.Append(Format('The license activation key is valid until %s.', [DateToStr(DTPFinalDate.Date)]));
|
||
| 252 | Body.Append('You will automatically receive a new license file before the next expiration date.');
|
||
| 253 | Body.Add('');
|
||
| 254 | StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Signature_EN.txt');
|
||
| 255 | Body.AddStrings(StrMessage); |
||
| 256 | end;
|
||
| 257 | StrMessage.Free; |
||
| 258 | end;
|
||
| 259 | if FileExists(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic') |
||
| 260 | then
|
||
| 261 | begin
|
||
| 262 | if choix = mrYes
|
||
| 263 | then
|
||
| 264 | TIdAttachmentFile.Create(MKey.MessageParts, SHARED_DRIVE + SHARED_FOLDER + '\Fichiers\InraPorc.lic')
|
||
| 265 | else
|
||
| 266 | begin
|
||
| 267 | MFile.Lines.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic');
|
||
| 268 | MKey.Body.Add('');
|
||
| 269 | MKey.Body.Add('********** InraPorc.lic **********');
|
||
| 270 | if FieldByName('Language').AsString = 'FR' |
||
| 271 | then // R?ponse (fran?ais) |
||
| 272 | MKey.Body.Add('; Copier ? partir de cette ligne')
|
||
| 273 | else // Reply (english) |
||
| 274 | MKey.Body.Add('; Copy from this line');
|
||
| 275 | MKey.Body.Add('');
|
||
| 276 | MKey.Body.AddStrings(MFile.Lines); |
||
| 277 | MKey.Body.Add('');
|
||
| 278 | if FieldByName('Language').AsString = 'FR' |
||
| 279 | then // R?ponse (fran?ais) |
||
| 280 | MKey.Body.Add('; Copier jusqu''? cette ligne')
|
||
| 281 | else // Reply (english) |
||
| 282 | MKey.Body.Add('; Copy until this line');
|
||
| 283 | MKey.Body.Add('********** InraPorc.lic **********');
|
||
| 284 | end;
|
||
| 285 | FMenu.MLog.Lines.Add('SMTP...');
|
||
| 286 | try
|
||
| 287 | SMTP.Connect; |
||
| 288 | try
|
||
| 289 | SMTP.Send(MKey); |
||
| 290 | finally
|
||
| 291 | SMTP.Disconnect; |
||
| 292 | if IMAP4.Connect
|
||
| 293 | then
|
||
| 294 | try
|
||
| 295 | if not IMAP4.AppendMsg('?l?ments envoy?s', MKey, MKey.LastGeneratedHeaders) |
||
| 296 | then
|
||
| 297 | FMenu.MLog.Lines.Add('Message could not be copied in IMAP server !');
|
||
| 298 | finally
|
||
| 299 | IMAP4.Disconnect; |
||
| 300 | end
|
||
| 301 | else
|
||
| 302 | FMenu.MLog.Lines.Add('IMAP server could not be connected !');
|
||
| 303 | end;
|
||
| 304 | except
|
||
| 305 | FMenu.MLog.Lines.Add('Message could not be sent !');
|
||
| 306 | end;
|
||
| 307 | if not DeleteFile(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic') |
||
| 308 | then
|
||
| 309 | FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be deleted !');
|
||
| 310 | end
|
||
| 311 | else
|
||
| 312 | FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be found !');
|
||
| 313 | except
|
||
| 314 | FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be created !');
|
||
| 315 | end;
|
||
| 316 | end;
|
||
| 317 | FMenu.MLog.Lines.Add('Logging record...');
|
||
| 318 | with FMenu.TLicenses do |
||
| 319 | begin
|
||
| 320 | Append; |
||
| 321 | FieldByName('Date').AsDateTime := Now;
|
||
| 322 | FieldByName('Admin').AsString := FMenu.EAdmin.Text;
|
||
| 323 | FieldByName('Key').AsString := '<Manuel>'; |
||
| 324 | FieldByName('Language').AsString := FMenu.TLicense.FieldByName('Language').AsString; |
||
| 325 | FieldByName('LicenseType').AsInteger := 2; |
||
| 326 | FieldByName('LicenseNumber').AsInteger := FMenu.TLicense.FieldByName('LicenseNumber').AsInteger; |
||
| 327 | FieldByName('Version').AsString := FMenu.TLicense.FieldByName('Version').AsString; |
||
| 328 | FieldByName('FirstName').AsString := FMenu.TLicense.FieldByName('FirstName').AsString; |
||
| 329 | FieldByName('LastName').AsString := FMenu.TLicense.FieldByName('LastName').AsString; |
||
| 330 | FieldByName('Company').AsString := FMenu.TLicense.FieldByName('Company').AsString; |
||
| 331 | FieldByName('Address1').AsString := FMenu.TLicense.FieldByName('Address1').AsString; |
||
| 332 | FieldByName('Address2').AsString := FMenu.TLicense.FieldByName('Address2').AsString; |
||
| 333 | FieldByName('PostalCode').AsString := FMenu.TLicense.FieldByName('PostalCode').AsString; |
||
| 334 | FieldByName('City').AsString := FMenu.TLicense.FieldByName('City').AsString; |
||
| 335 | FieldByName('Country').AsString := FMenu.TLicense.FieldByName('Country').AsString; |
||
| 336 | FieldByName('Phone').AsString := FMenu.TLicense.FieldByName('Phone').AsString; |
||
| 337 | FieldByName('Fax').AsString := FMenu.TLicense.FieldByName('Fax').AsString; |
||
| 338 | FieldByName('Mail').AsString := FMenu.TLicense.FieldByName('Mail').AsString; |
||
| 339 | FieldByName('VolumeSerialNumber').AsString := FMenu.TLicense.FieldByName('VolumeSerialNumber').AsString; |
||
| 340 | FieldByName('FinalDate').AsString := DateToStr(FMenu.TLicense.FieldByName('FinalDate').AsDateTime); |
||
| 341 | FieldByName('SoftwareEnableKey').AsString := FMenu.TLicense.FieldByName('SoftwareEnableKey').AsString; |
||
| 342 | Post; |
||
| 343 | end;
|
||
| 344 | Close; |
||
| 345 | end;
|
||
| 346 | |||
| 347 | procedure TFManual.BBSaveClick(Sender: TObject);
|
||
| 348 | var
|
||
| 349 | f: TIniFile; |
||
| 350 | begin
|
||
| 351 | FMenu.MLog.Lines.Add('Updating license...');
|
||
| 352 | with FMenu.TLicense do |
||
| 353 | begin
|
||
| 354 | Edit; |
||
| 355 | FieldByName('FirstName').AsString := EFirstName.Text;
|
||
| 356 | FieldByName('LastName').AsString := ELastName.Text;
|
||
| 357 | FieldByName('Company').AsString := ECompany.Text;
|
||
| 358 | FieldByName('Mail').AsString := EMail.Text;
|
||
| 359 | FieldByName('FinalDate').AsDateTime := DTPFinalDate.DateTime;
|
||
| 360 | FieldByName('SoftwareEnableKey').AsString := ESoftwareEnableKey.Text;
|
||
| 361 | Post; |
||
| 362 | FMenu.MLog.Lines.Add('Saving to Fichiers\InraPorc.lic');
|
||
| 363 | try
|
||
| 364 | f := TIniFile.Create(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic');
|
||
| 365 | f.WriteInteger ('License', 'LicenseType', 2); |
||
| 366 | f.WriteInteger ('License', 'LicenseNumber', FieldByName('LicenseNumber').AsInteger) ; |
||
| 367 | f.WriteString ('License', 'Version', FieldByName('Version').AsString); |
||
| 368 | f.WriteString ('License', 'FirstName', FieldByName('FirstName').AsString); |
||
| 369 | f.WriteString ('License', 'LastName', FieldByName('LastName').AsString); |
||
| 370 | f.WriteString ('License', 'Company', FieldByName('Company').AsString); |
||
| 371 | f.WriteString ('License', 'Address1', FieldByName('Address1').AsString); |
||
| 372 | f.WriteString ('License', 'Address2', FieldByName('Address2').AsString); |
||
| 373 | f.WriteString ('License', 'PostalCode', FieldByName('PostalCode').AsString); |
||
| 374 | f.WriteString ('License', 'City', FieldByName('City').AsString); |
||
| 375 | f.WriteString ('License', 'Country', FieldByName('Country').AsString); |
||
| 376 | f.WriteString ('License', 'Phone', FieldByName('Phone').AsString); |
||
| 377 | f.WriteString ('License', 'Fax', FieldByName('Fax').AsString); |
||
| 378 | f.WriteString ('License', 'Mail', FieldByName('Mail').AsString); |
||
| 379 | f.WriteString ('License', 'VolumeSerialNumber', FieldByName('VolumeSerialNumber').AsString); |
||
| 380 | f.WriteString ('License', 'FinalDate', DateToStr(FieldByName('FinalDate').AsDateTime)); |
||
| 381 | f.WriteString ('License', 'SoftwareEnableKey', FieldByName('SoftwareEnableKey').AsString); |
||
| 382 | f.Free; |
||
| 383 | except
|
||
| 384 | FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be created !');
|
||
| 385 | end;
|
||
| 386 | end;
|
||
| 387 | FMenu.MLog.Lines.Add('Logging record...');
|
||
| 388 | with FMenu.TLicenses do |
||
| 389 | begin
|
||
| 390 | Append; |
||
| 391 | FieldByName('Date').AsDateTime := Now;
|
||
| 392 | FieldByName('Admin').AsString := FMenu.EAdmin.Text;
|
||
| 393 | FieldByName('Key').AsString := '<Manuel>'; |
||
| 394 | FieldByName('Language').AsString := FMenu.TLicense.FieldByName('Language').AsString; |
||
| 395 | FieldByName('LicenseType').AsInteger := 2; |
||
| 396 | FieldByName('LicenseNumber').AsInteger := FMenu.TLicense.FieldByName('LicenseNumber').AsInteger; |
||
| 397 | FieldByName('Version').AsString := FMenu.TLicense.FieldByName('Version').AsString; |
||
| 398 | FieldByName('FirstName').AsString := FMenu.TLicense.FieldByName('FirstName').AsString; |
||
| 399 | FieldByName('LastName').AsString := FMenu.TLicense.FieldByName('LastName').AsString; |
||
| 400 | FieldByName('Company').AsString := FMenu.TLicense.FieldByName('Company').AsString; |
||
| 401 | FieldByName('Address1').AsString := FMenu.TLicense.FieldByName('Address1').AsString; |
||
| 402 | FieldByName('Address2').AsString := FMenu.TLicense.FieldByName('Address2').AsString; |
||
| 403 | FieldByName('PostalCode').AsString := FMenu.TLicense.FieldByName('PostalCode').AsString; |
||
| 404 | FieldByName('City').AsString := FMenu.TLicense.FieldByName('City').AsString; |
||
| 405 | FieldByName('Country').AsString := FMenu.TLicense.FieldByName('Country').AsString; |
||
| 406 | FieldByName('Phone').AsString := FMenu.TLicense.FieldByName('Phone').AsString; |
||
| 407 | FieldByName('Fax').AsString := FMenu.TLicense.FieldByName('Fax').AsString; |
||
| 408 | FieldByName('Mail').AsString := FMenu.TLicense.FieldByName('Mail').AsString; |
||
| 409 | FieldByName('VolumeSerialNumber').AsString := FMenu.TLicense.FieldByName('VolumeSerialNumber').AsString; |
||
| 410 | FieldByName('FinalDate').AsString := DateToStr(FMenu.TLicense.FieldByName('FinalDate').AsDateTime); |
||
| 411 | FieldByName('SoftwareEnableKey').AsString := FMenu.TLicense.FieldByName('SoftwareEnableKey').AsString; |
||
| 412 | Post; |
||
| 413 | end;
|
||
| 414 | Close; |
||
| 415 | end;
|
||
| 416 | |||
| 417 | end. |