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:

unit Unit1;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdExplicitTLSClientServerBase,
  IdFTP;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;


procedure transfertest; //Hauptprogramm

  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure transfertest;
begin

IdFTP1.Connect;

//if(Form1.IdFTP1.Connected=true)
//then begin
//Form1.Edit1.Text:='verbunden';
//end;

Form1.IdFTP1.Put('C:\Program Files\Borland\Delphi7\Projects\Quelle\bsp.txt','C:\Program Files\FileZilla Server\Ziel',false);

IdFTP.Disconnect(true);

end;

begin

transfertest;

end.

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:

unit myUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure transfertest;
begin

Form1.IdFTP1.Connect;

Form1.IdFTP1.Put('C:\Program Files\Borland\Delphi7\Projects\Quelle\bsp.txt','C:\Program Files\FileZilla Server\Ziel',false);

Form1.IdFTP1.Disconnect(true);

end;

begin

transfertest;

end.

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:

unit myUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, StdCtrls;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    Button1: TButton;
    procedure transfertest(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.transfertest(Sender: TObject);
begin
Form1.IdFTP1.Connect;

Form1.IdFTP1.Put('C:\Program Files\Borland\Delphi7\Projects\Quelle\bsp.bmp','C:\Program Files\FileZilla Server\Ziel',false);

Form1.IdFTP1.Disconnect(true);
end;

end.

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 myUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, StdCtrls;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    Button1: TButton;
    Textfeld: TEdit;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;

    procedure transfertest(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.transfertest(Sender: TObject);
begin
Form1.IdFTP1.Connect;

Form1.IdFTP1.Put('C:\Documents and Settings\Administrator\Desktop\Quelle\blabla.txt','',false);

IdFTP1.ListResult.Clear;
IdFTP1.List('*',false);
Textfeld.Text:='';

Form1.IdFTP1.Disconnect(true);

end;

end.

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:

Aufbau einer gesicherten Session

              Client                                 Server
     control          data                   data               control
   ====================================================================

                                                                socket()
                                                                bind()
     socket()
     connect()  ----------------------------------------------> accept()
               <----------------------------------------------  220
     AUTH TLS   ---------------------------------------------->  
               <----------------------------------------------  234
     TLSneg()  <----------------------------------------------> TLSneg()


     PBSZ 0     ---------------------------------------------->          //optio
               <----------------------------------------------  200
     PROT P     ---------------------------------------------->          //nal
               <----------------------------------------------  200
     
     USER fred  ---------------------------------------------->
               <----------------------------------------------  331
     PASS pass  ---------------------------------------------->
               <----------------------------------------------  230

        [b]DATENTRANSFERS?[/b]
      kommt hier für jeden neuen Datentransfer eine eigene
               Aushandlung der Verschlüsselung sowie Authentifizierung    
                        von Client und Server? (siehe nächsten Auszug)

     CCC      ---------------------------------------------->  
               <----------------------------------------------  200  
                       
                      
     TLSshutdown()  <-------------------------------------> TLSshutdown ()

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

              Client                                 Server
     control          data                   data               control
   ====================================================================

                      socket()
                      bind()
     PORT w,x,y,z,a,b -------------------------------------------->
         <-------------------------------------------------------- 200
     STOR file --------------------------------------------------->
                                             socket()
                                             bind()
         <-------------------------------------------------------- 150
                      accept()  <----------  connect()
                      TLSneg()  <----------> TLSneg()
                      TLSwrite() ----------> TLSread()
                      TLSshutdown() -------> TLSshutdown()
                      close()    ----------> close()
         <-------------------------------------------------------- 226