Discussion :

[alex01pernot]

bonjours a tous
j'ai un problème il faut que j'envoye un fichier texte depuis un endroit sur le disque que je connait sur un ftp (que je possède)
pouvez vous me les codes pour y parvenir svp
merci beaucoup de votre aide

[evarisnea]

tu peux utiliser un compo Indy:
dépose un TIdFtp et un bouton sur ta form et puis tu mets ce 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
45
46
47
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdFTP;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    IdFTP1: TIdFTP;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
	self.IdFTP1.Host := 'mon_ftp';
  self.IdFTP1.Port := 21;
	self.IdFTP1.User := 'mon_login';
	self.IdFTP1.Password := 'mon_pwd';
  try
	  try
		  self.IdFTP1.Connect();
  		self.IdFTP1.Put( 'fichier_source', 'fichier_cible' );
	  except
    	on e:exception do
      	showmessage( e.Message );
  	end;
  finally
  	self.IdFTP1.Disconnect;
  end;
end;
 
end.

[alex01pernot]

merci je vais essayer sa par contre je ne pourrai pas te dire si sa marche avant demain mais en tout cas merci beaucoup pour tout je ne savais vraiment pas comment faire

[alex01pernot]

merci beaucoup sa marche !!!!!!!!!!!!!!!!!!!!!!!!