Discussion :

[Ema1714]

salut, j'ai écris un simple programme en delphi pour télécharger un fichier depuis un serveur, voici le code:

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    IdHTTP1: TIdHTTP;
  private
  procedure getFile;
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
// téléchargement du fichier
procedure getFile;
var pathDest: String;
    url:string;
    fs:TFileStream;
begin
  pathDest:='c:\utilisateurs\safa\téléchargements\test.txt';
  url:=edit1.text;
  fs:=TFileStream.Create(pathDest,fmCreate);
  try
    IdHTTP.Get(Url, TStream(Fs));
  finally
  fs.Free;
  IdHTTP.free;
  end;
 
end;
 
end.

j'ai deux erreurs que j'arrive pas à les résoudre:identficateur non déclaré edit1, et identificateur non déclaré Get, je comprends pas! merci pour m'aider à résoudre mon problème.

[tourlourou]

Salut,

Edit1 n'est simplement pas visible de l'intérieur de ta procédure getFile.

Par contre, la variable Form1, de type TForm1 est visible à son niveau, ainsi que la déclaration du type TForm1.

Donc, si tu préfixes Edit1 par Form1 : Form1.Edit1, elle aura le moyen de savoir ce que tu pointes.

Si ta procédure avait été une méthode de TForm1 (comme sa méthode Create, par exemple), elle aurait reconnu directement son propre champ, visible à l'intérieur de la classe.

[Ema1714]

Merci