Fichier DAT mystère.

**Pierre95** · 01/08/2015, 19h38

Bonjour,

Je distribue une application vers environ 1650 utilisateurs.

Deux d'entre eux me relatent le problème suivant:

L'appli à un moment de déroulement télécharge des données météorologiques en fonction de critères comme Date et heure, longitude et latitude, altitude et données à téléchargés (direction, vitesse du vent et température)

Ces données sont enregistrées dans un fichier "Grib.grib2" grib2 est un format de l'administration américaine concernant les données météo.

Ce fichier est ensuite convertit en 9 fichiers csv en fonction du paramètre et de l'altitude.
TEMP pour température
UGRD pour direction du vent
VGRD pour vitesse du vent.
100, 200, 300 pour l'altitude (100, 200 et 300 mb).

Les fichiers .csv sont renomés en .txt pour faciliter leur traitement.

Les fichiers textes sont regroupés en un seul fichier WX.DAT. pour la suite des traitements.

Enfin, les fichiers txt sont effacés car inutiles.

Chez 1648 utilisateurs tout fonctionne parfaitement.

Mes deux utilisateurs obtiennent un message leur indiquant que le fichier WX.DAT ne peut être trouvé pour la bonne raison qu'il n'est pas créé.

Je leur ait envoyé un fichier issue de ma machine pour test, mais celui-ci est effacé chez eux.
Rien dans mon code ne produit cet effacement.

Voici les procédures et fonction utilisées:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
procedure TMainForm.TreatRealWX;
var
   ReqDir, Req :String;
   N: Integer;
begin
  DownloadGrib(WXMaxLon,WXMinLon,WXMaxLat,WXMinLat);
  ReqDir:= extractFilePath(application.exename)+ 'WX\';
  Req :=ReqDir + 'csv.bat ' + IntToStr(N);
  SetCurrentDir(ReqDir);
  RunAndWait(Req);
  MainForm.Renommecsv;
  SetCurrentDir(extractFilePath(application.exename));
  FormatGribData;
  EffaceWX;                                                               
end;
 
function HTTPRequest(sHour, sShiftT, sLgMn, sLgMx, sLtMn, sLtMx,
                     sDate: String):String;
begin
    Result :=   GribWebSource+ '?file=gfs.t'
                             + sHour +'z.pgrb2.1p'
                             + sShiftT
                             + '.anl'
                             + '&lev_100_mb=on&lev_200_mb=on'
                             + '&lev_300_mb=on'//
                             + '&var_TMP=on&var_UGRD=on'
                             + '&var_VGRD=on&subregion=&leftlon='
                             + sLgMn + '&rightlon=' + sLgMx + '&toplat='
                             + sLtMx + '&bottomlat='+ sLtMn + '&dir=%2Fgfs.'
                             + sDate + sHour;
end;
 
procedure DownloadGrib(LonMax, LonMin, LatMax, LatMin: extended);
var  Answer                   : TMemoryStream;
     Hours, ShiftT, Jour, Req0,
     Req                      : String;
     Today                    : TdateTime;
     LgMx, LgMn, LtMx, LtMn,
     Hr                       : Integer;
begin
  Jour:= '';
  SetRoundMode(rmUp);
  LgMx:= Round(LonMax);
  SetRoundMode(rmDown);
  LgMn:= Round(LonMin);
  SetRoundMode(rmUp);
  LtMx:= Round(LatMax);
  SetRoundMode(rmDown);
  LtMn:= Round(LatMin);
  Hours := FormatDateTime('HH',EncodeTime(Hour, Min, Sec, Msec));
  case StrToInt(Hours) of
  00..10: Hours:= '00';
  11..16: Hours:= '06';
  17..21: Hours:= '12';
  22..24: Hours:= '18';
  end;
  case Form3.ComboBox4.ItemIndex of
  0: ShiftT:= '00';
  1: ShiftT:= '03';
  2: ShiftT:= '06';
  3: ShiftT:= '09';
  4: ShiftT:= '12';
  5: ShiftT:= '15';
  6: ShiftT:= '18';
  7: ShiftT:= '21';
  8: ShiftT:= '24';
  end;
  SetRoundMode(rmNearest);
  Jour    := FormatDateTime('yyyymmdd',frmDOF.DateTimePicker1.Date);
  try
    // Grille 1°x 1°
    Req:= HTTPRequest(Hours, ShiftT, IntToStr(LgMn), IntToStr(LgMx),
          IntToStr(LtMn), IntToStr(LtMx), Jour);
    Answer := TMemoryStream.Create;
    MainForm.IdHTTP1.Get(Req, Answer);
    Answer.SaveToFile(extractFilePath(application.exename)+ '\WX\Grib.grb2');
    Answer.Free
  Except
    begin
      Hr:= StrToInt(Hours);
      Dec(Hr, 6);
      Hours:= IntToStr(Hr);
      if Hr < 10 then
        Hours:= Format('%.*d', [2, Hr]);
      Req:= HTTPRequest(Hours, ShiftT, IntToStr(LgMn), IntToStr(LgMx),
            IntToStr(LtMn), IntToStr(LtMx), Jour);
      Answer := TMemoryStream.Create;
      MainForm.idHTTP2.Get(Req, Answer);
      Answer.SaveToFile(extractFilePath(application.exename)+ '\WX\Grib.grb2');
      Answer.Free
    end;
  end;
end;
 
function RunAndWait(const FileName: String): DWORD;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  Result := STILL_ACTIVE;
  GetStartupInfo(StartupInfo);
  if CreateProcess(nil, PChar(FileName), nil, nil, IsConsole,
    CREATE_NO_WINDOW +NORMAL_PRIORITY_CLASS, nil, nil,
    StartupInfo, ProcessInfo) then
  try
    if WaitForSingleObject(ProcessInfo.hProcess, INFINITE) = WAIT_OBJECT_0
then
      GetExitCodeProcess(ProcessInfo.hProcess, Result);
  finally
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess);
  end;
end;
 
Procedure TMainForm.Renommecsv;
var
   ReqDir, NewFile      : String;
   SearchResult: TSearchRec;
begin
  ReqDir:= extractFilePath(application.exename)+ 'WX\';
  SetCurrentDir(ReqDir);
  if (FindFirst(ReqDir + '*.txt', faAnyFile, SearchResult)) =0 then
  begin
    DeleteFile(SearchResult.Name);
    while FindNext(SearchResult) = 0 do
    begin
      DeleteFile(SearchResult.Name);
    end;
  end;
  if (FindFirst(ReqDir + '*.csv', faAnyFile, SearchResult)) =0 then
  begin
    NewFile:= ChangeFileExt(SearchResult.Name,'.txt');
    RenameFile(SearchResult.Name, NewFile);
    while FindNext(SearchResult) = 0 do
    begin
      NewFile:= ChangeFileExt(SearchResult.Name,'.txt');
      RenameFile(SearchResult.Name, NewFile);
    end;
  end;
  FindClose(SearchResult);
  SetCurrentDir(extractFilePath(application.exename));
end;
 
procedure FormatGribData;
var
   slFormatted, slAlist1,
   slAList2, slAList3,
   slAList4, slAList5,
   slAList6, slAList7,
   slAList8, slAList9   : TStringList;
   i                    : Integer;
   Strb, Stra           : String;
begin
   if not fileExists(extractFilePath(application.exename)
                                  + '\WX\TEMP_100.txt') then
     Exit;
   slFormatted := TStringList.Create;
   slAlist1    := TStringList.Create;
   slAlist2    := TStringList.Create;
   slAlist3    := TStringList.Create;
   slAlist4    := TStringList.Create;
   slAlist5    := TStringList.Create;
   slAlist6    := TStringList.Create;
   slAlist7    := TStringList.Create;
   slAlist8    := TStringList.Create;
   slAlist9    := TStringList.Create;
   slFormatted.StrictDelimiter:= True;
   slFormatted.Delimiter:= ',';
   slAlist1.StrictDelimiter:= True;
   slAlist1.Delimiter:= ',';
   slAlist2.StrictDelimiter:= True;
   slAlist2.Delimiter:= ',';
   slAlist3.StrictDelimiter:= True;
   slAlist3.Delimiter:= ',';
   slAlist4.StrictDelimiter:= True;
   slAlist4.Delimiter:= ',';
   slAlist5.StrictDelimiter:= True;
   slAlist5.Delimiter:= ',';
   slAlist6.StrictDelimiter:= True;
   slAlist6.Delimiter:= ',';
   slAlist7.StrictDelimiter:= True;
   slAlist7.Delimiter:= ',';
   slAlist8.StrictDelimiter:= True;
   slAlist8.Delimiter:= ',';
   slAlist9.StrictDelimiter:= True;
   slAlist9.Delimiter:= ',';
 
   slFormatted.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\TEMP_100.txt');
   slAlist1.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\TEMP_200.txt');
   slAlist2.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\TEMP_300.txt');
   slAlist3.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\UGRD_100.txt');
   slAlist4.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\UGRD_200.txt');
   slAlist5.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\UGRD_300.txt');
   slAlist6.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\VGRD_100.txt');
   slAlist7.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\VGRD_200.txt');
   slAlist8.LoadFromFile(extractFilePath(application.exename)
                                  + '\WX\VGRD_300.txt');
   for i := 1 to slFormatted.Count-1 do
   begin
     Strb:= slAlist1[i];
     Stra:= StringReplace(Strb,' ', '',[rfReplaceAll, rfIgnoreCase]);
     slAlist1[i]:= Stra;
     Strb:= slAlist2[i];
     Stra:= StringReplace(Strb,' ', '',[rfReplaceAll, rfIgnoreCase]);
     slAlist2[i]:= Stra;
     Strb:= slAlist3[i];
     Stra:= StringReplace(Strb,' ', '',[rfReplaceAll, rfIgnoreCase]);
     slAlist3[i]:= Stra;
     Strb:= slAlist4[i];
     Stra:= StringReplace(Strb,' ', '',[rfReplaceAll, rfIgnoreCase]);
     slAlist4[i]:= Stra;
     Strb:= slAlist5[i];
     Stra:= StringReplace(Strb,' ', '',[rfReplaceAll, rfIgnoreCase]);
     slAlist5[i]:= Stra;
     Strb:= slAlist6[i];
     Stra:= StringReplace(Strb,' ', '',[rfReplaceAll, rfIgnoreCase]);
     slAlist6[i]:= Stra;
     Strb:= slAlist7[i];
     Stra:= StringReplace(Strb,' ', '',[rfReplaceAll, rfIgnoreCase]);
     slAlist7[i]:= Stra;
     Strb:= slAlist8[i];
     Stra:= StringReplace(Strb,' ', '',[rfReplaceAll, rfIgnoreCase]);
     slAlist8[i]:= Stra;
     slFormatted[i]:= slFormatted[i] + ','+ copy(slAlist1[i], PosEx(',',
                                            slAlist1[i],22) + 1,
                                            length(slAlist1[i])) + ',' +
                                            copy(slAlist2[i], PosEx(',',
                                            slAlist2[i],22) + 1,
                                            length(slAlist2[i])) + ',' +
                                            copy(slAlist3[i], PosEx(',',
                                            slAlist3[i],22) + 1,
                                            length(slAlist3[i])) + ',' +
                                            copy(slAlist4[i], PosEx(',',
                                            slAlist4[i],22) + 1,
                                            length(slAlist4[i])) + ',' +
                                            copy(slAlist5[i], PosEx(',',
                                            slAlist5[i],22) + 1,
                                            length(slAlist5[i])) + ',' +
                                            copy(slAlist6[i], PosEx(',',
                                            slAlist6[i],22) + 1,
                                            length(slAlist6[i])) + ',' +
                                            copy(slAlist7[i], PosEx(',',
                                            slAlist7[i],22) + 1,
                                            length(slAlist7[i])) + ',' +
                                            copy(slAlist8[i], PosEx(',',
                                            slAlist8[i],22) + 1,
                                            length(slAlist8[i]));
   end;
   slFormatted.SaveToFile((extractFilePath(application.exename)
                                  + '\WX\WX.txt'));
   slFormatted.Free;
   slAlist1.Free;
   slAlist2.Free;
   slAlist3.Free;
   slAlist4.Free;
   slAlist5.Free;
   slAlist6.Free;
   slAlist7.Free;
   slAlist8.Free;
   slAlist9.Free;
end;
 
Procedure TMainForm.EffaceWX;
var
   ReqDir      : String;
   SearchResult: TSearchRec;
begin
  ReqDir:= extractFilePath(application.exename)+ 'WX\';
  SetCurrentDir(ReqDir);
  if (FindFirst(ReqDir + '*_*.txt', faAnyFile, SearchResult)) =0 then
  begin
    DeleteFile(SearchResult.Name);
    while FindNext(SearchResult) = 0 do
      DeleteFile(SearchResult.Name);
  end;
  FindClose(SearchResult);
  SetCurrentDir(extractFilePath(application.exename));
end;

Pourriez vous m'aider à éclaircir ce mystère.

Merci beaucoup

Cordialement
Pierre

**sgmsg** · 02/08/2015, 19h04

Le problème ne serait-il pas au niveau des droits de la machine?

Les fichiers DAT seraient-elle réservés par un autre programme sur les machines fautives?

Avec une autre extension , est-ce que le problème perdure?

**Pierre95** · 03/08/2015, 09h13

Bonjour,

Merci de cette réponse.

Au fil des tests, j'ai remarqué que le coupable semble être l'utilisation de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RunAndWait(Req);

Sur ceratines machine sous XP et Vista.

J'ai changé cette ligne par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ShellExecute(Application.Handle, NIL, PChar(Req), '', '', 0);
  Sleep(600);

Le fichier est bien généré et les fichiers de travail biens effacés.(Au moins chez mon utilisateur de XP)

Qu'en pensez vous?

Amicalement
Pierre

**guillemouze** · 03/08/2015, 09h15

Si ton programme se trouve dans Program Files, il est très peu conseillé d'écrire mettre des fichiers à coté, les droits windows sont souvent très restrictifs dans ces dossier.
Sinon, peut être un anti-virus qui te supprime tes fichiers.

**Pierre95** · 03/08/2015, 10h02

Merci Guillemouze,

J'avais fait réinstallé le programme ailleurs que Program Files sans succès.

Amicalement
Pierre

Fichier DAT mystère.

Langage Delphi

Discussions similaires

Partager

Partager