Discussion :

[michel71]

Bonjour,

J'ai une procédure qui me permet de récupérer un fichier text sur un site internet. Tout ça fonctionne mais mon problème c'est le mettre un message du genre "transfert en cours..." dès le lancement du transfert. J'ai essayé avec un label mais il s'affiche à la fin donc il ne sert à rien. Qu'est ce que je pourrai utiliser pour afficher ce message ?

Merci

[ShaiLeTroll]

tu peux faire un Refresh sur le Label pour forcer son dessin, ou un application.processmessages ...

ou encore crée une fenêtre, faire un show (non modal bien sur) ... principe même de la petite fenêtre de patience ...

[Rayek]

Peux tu nous montrer ton code et nous indiquer les composants que tu utilises pour le transfert de ton fichier.

[michel71]

ce sont des codes qui m'ont été proposés sur le forum et que j'ai adaptés

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
 
//===================================================================
 
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;
//======================================================================
procedure Taffiche.Importationdunenouvellebase1Click(Sender: TObject);
var
  FileOnNet, LocalFileName: string;
  SomeTxtFile : TextFile;
  buffer : string;
begin
  fichier_texte:='donne_collec.txt';
  LocalFileName:=ExtractFilePath(Application.ExeName)+fichier_texte;
  FileOnNet:='http://www.machin.com/admi/'+fichier_texte;
 
  if GetInetFile(FileOnNet, LocalFileName)=True then
    ShowMessage('Transfert terminé')
 
  else
    ShowMessage('Une erreur c"est produite pendant le transfert');
 
end;
//===============================================================================

[ShaiLeTroll]

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
procedure Taffiche.Importationdunenouvellebase1Click(Sender: TObject);
var
  FileOnNet, LocalFileName: string;
  SomeTxtFile : TextFile;
  buffer : string;
begin
  fichier_texte:='donne_collec.txt';
  LocalFileName:=ExtractFilePath(Application.ExeName)+fichier_texte;
  FileOnNet:='http://www.machin.com/admi/'+fichier_texte;
 
  Label.Caption := 'Transfert en Cours ...';
  Label.Refresh; // si cela suffit pas, Application.ProcessMessages();
  if GetInetFile(FileOnNet, LocalFileName) then
    ShowMessage('Transfert terminé') 
  else
    ShowMessage('Une erreur c"est produite pendant le transfert');
end;

tu peux même modifier le code de GetInetFile, pour gérer une progression ...

sinon le "= True" ne sert à rien lorsque l'on manipule un booleen