Révision 4 LicensesMercure/UFAgreement.pas

Voir les différences:

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