Discussion :

[michel71]

Bonjour,

J'ai un problème avec le bout de code suivant.
Si j'execute ce code au lancement de l'appli le fichier est bien copié dans le bon répertoire.
Par contre si j'exécute ce code avec avoir utilisé une boite de dialogue "open" le fichier est copié dans le répertoire ouvert avec la boite de dialogue.

Comment forcer la copie dans le bon répertoire

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
 
 
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;
//=====================================================================
 
function DetectionConnexion: Boolean;
// ---------verification de la connection ------------------
var
  dwFlags: DWord;
begin
  dwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwFlags, 0);
end;
//====================================================
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)+ fichier_texte;
  FileOnNet:='http://www."---------"/admi/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;

[guillemouze]

Cela est du au CurrentDirectory de ton processus. Le OpenDialog (entre autres) modifie ce chemin.
Donc 2 possibilités:
- Mettre le chemin complet de ton fichier quand tu veux y acceder (la propriete Application.Exename pourra t'etre utile)
- Restaurer le dossier courant au moment adequat, grace aux fonctions Get[Set]CurrentDir (ou CurrDir, ou CurrentDirectory, ... je sais plus trop)