Révision 4 LicensesMercure/UFAgreement.pas
UFAgreement.pas | ||
---|---|---|
117 | 117 |
FieldByName('FinalDate').AsDateTime := FMenu.DateLimite; |
118 | 118 |
FieldByName('SoftwareEnableKey').AsString := FMenu.CompleteKey(FieldByName('LicenseNumber').AsInteger, FieldByName('Version').AsString, FieldByName('FirstName').AsString, FieldByName('LastName').AsString, FieldByName('Company').AsString, FieldByName('VolumeSerialNumber').AsString, DateToStr(FMenu.DateLimite)); |
119 | 119 |
try |
120 |
f := TIniFile.Create(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic');
|
|
120 |
f := TIniFile.Create(TempFolder + '\InraPorc.lic');
|
|
121 | 121 |
f.WriteInteger ('License', 'LicenseType', 2); |
122 | 122 |
f.WriteInteger ('License', 'LicenseNumber', FieldByName('LicenseNumber').AsInteger) ; |
123 | 123 |
f.WriteString ('License', 'Version', FieldByName('Version').AsString); |
... | ... | |
169 | 169 |
Body.AddStrings(StrMessage); |
170 | 170 |
end; |
171 | 171 |
StrMessage.Free; |
172 |
if FileExists(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic')
|
|
172 |
if FileExists(TempFolder + '\InraPorc.lic')
|
|
173 | 173 |
then |
174 |
TIdAttachmentFile.Create(MessageParts, SHARED_DRIVE + SHARED_FOLDER + '\Fichiers\InraPorc.lic')
|
|
174 |
TIdAttachmentFile.Create(MessageParts, TempFolder + '\InraPorc.lic')
|
|
175 | 175 |
else |
176 |
FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be attached !');
|
|
176 |
FMenu.MLog.Lines.Add('File InraPorc.lic could not be attached !'); |
|
177 | 177 |
end; |
178 | 178 |
FMenu.MLog.Lines.Add('SMTP...'); |
179 | 179 |
try |
... | ... | |
197 | 197 |
except |
198 | 198 |
FMenu.MLog.Lines.Add('Message could not be sent !'); |
199 | 199 |
end; |
200 |
if not DeleteFile(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic')
|
|
200 |
if not DeleteFile(TempFolder + '\InraPorc.lic')
|
|
201 | 201 |
then |
202 |
FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be deleted !');
|
|
202 |
FMenu.MLog.Lines.Add('File InraPorc.lic could not be deleted !'); |
|
203 | 203 |
except |
204 |
FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be created !');
|
|
204 |
FMenu.MLog.Lines.Add('File InraPorc.lic could not be created !'); |
|
205 | 205 |
end; |
206 | 206 |
end; |
207 | 207 |
Post; |
Formats disponibles : Unified diff