Discussion :

[michel71]

Bonjour,

Je voudrais modifier cette fonction pour imposer ce chemin pour l'enregistrement du fichier

LocalFileName:=ExtractFilePath(Application.ExeName);

si quelqu'un pouvait m'aider car j'avoue que je patauge fortement.

Le problème se pose lorsqu'une boite de dialogue "open" à été utilisée (dans ce cas le fichier est enregistré dans le dossier ouvert par la boite de dialogue)

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
 
function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
 
 Result:=False;
 sAppName := ExtractFileName(Application.ExeName);
 hSession := InternetOpen(PChar(sAppName),
                INTERNET_OPEN_TYPE_PRECONFIG,
               nil, nil, 0);
 try
  hURL := InternetOpenURL(hSession,
            PChar(fileURL),
            nil,0,INTERNET_FLAG_NO_CACHE_WRITE or INTERNET_FLAG_RELOAD,0);
  try
 
   AssignFile(f, fichier_texte);
   Rewrite(f,1);
   repeat
    InternetReadFile(hURL, @Buffer,
                     SizeOf(Buffer), BufferLen);
    BlockWrite(f, Buffer, BufferLen)
   until BufferLen = 0;
   CloseFile(f);
   Result:=True;
  finally
   InternetCloseHandle(hURL)
  end
 finally
  InternetCloseHandle(hSession)
 end
end;

[Aka Guymelef]

Bonjour, je n'ai pas bien compris ce que vous vouliez faire, est-ce que vous pourriez ré-expliquer ?

[Kaféine]

Salut,

c'est pas plutôt :

Code :

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

1
2
 
AssignFile(f, FileName);

au lieu de

Code :

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

1
2
 
AssignFile(f, fichier_texte);

???

[michel71]

Cette appli gére des collections de timbres et cette fonction est appelée par cette procédure qui permet de télécharger depuis mon site internet un fichier txt qui contient tous les éléments pour la création des collections

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
procedure Taffiche.Importationdunenouvellebase1Click(Sender: TObject);
var
  FileOnNet, LocalFileName: string;
  SomeTxtFile : TextFile;
  buffer : string;
begin
 
 if DetectionConnexion=false then
  begin
  ShowMessage('Pas de connection internet');
  exit;
  end;
 //-----------récupération du fichier--------------------
  fichier_texte:='base_collec_complet.txt';
  LocalFileName:=ExtractFilePath(Application.ExeName);
  FileOnNet:='http://www.timbres-de-france.com/xx/Fic_texte/'+fichier_texte;
  Label104.Visible:=true;
  Label104.Caption := 'Transfert en Cours ...';
  Label104.Refresh;
  if GetInetFile(FileOnNet, LocalFileName)=True then
   begin
    Label104.Visible:=false;
    ShowMessage('Transfert terminé');
    end
  else
    ShowMessage('Une erreur c"est produite pendant le transfert');
 
end;

Si l'appli est simplement lancée sans qu'une collection ne soit ouverte le fichier est bien téléchargé dans le dossier de l'appli.

Par contre si la boite de dialogue à été appelée pour ouvrir une collection c'est le chemin de cette boite qui est utilisé pour le stockage du fichier.

Donc mon problème c'est de "forcer" le chemin même lorsqu'une collection est ouverte

[Aka Guymelef]

Vu. C'est dû au fait que vous stockez le nom du fichier dans la variable fichier_texte qui doit être globale et c'est cette variable qui est utilisée ensuite GetInetFile. Sauf que tel quel, ce chemin est relatif et donc dépendant du "répertoire par défaut" qui est justement modifié par une boite de dialogue justement.

L'idée aurait été d'utiliser LocalFileName qui est aussi passé en paramètre de GetInetFile mais ce paramètre n'est pas du tout utilisé dans la méthode comme le remarquait à juste titre Kaféine.

Voici ce que ça donnes une fois corrigé :

Code :

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

1
2
fichier_texte:='base_collec_complet.txt';
  LocalFileName:=ExtractFilePath(Application.ExeName) + '/' + fichier_texte;

Et dans GetInetFile :

Code :

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

AssignFile(f, FileName);

[michel71]

Un grand merci à vous, problème résolu