uconnex_101.pas

来自「this application for FTP protocol File T」· PAS 代码 · 共 60 行

unit UConnex_101;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls;

type
  TFConnex = class(TForm)
    Bevel1: TBevel;
    Bevel2: TBevel;
    EditServeur: TLabeledEdit;
    EditUtilisateur: TLabeledEdit;
    EditPasse: TLabeledEdit;
    ConnexBtn: TBitBtn;
    AnnulerBtn: TBitBtn;
    procedure ConnexBtnClick(Sender: TObject);
    procedure AnnulerBtnClick(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  FConnex: TFConnex;

implementation

uses UFtp_Louis_101;

{$R *.dfm}

procedure TFConnex.ConnexBtnClick(Sender: TObject);
var
  s: String;
begin
  If TransferringData then FFTP.IDFtp1.Abort;
  if FFTP.IDFtp1.Connected then FFTP.IDFtp1.Disconnect;
    Try
    FFtp.Animate.Active := True;
    ConnexBtn.Enabled := False;
    FFTp.EnableControls(False);
    FFTP.IDFtp1.Host := EditServeur.Text;
    FFTP.IDFtp1.User := EditUtilisateur.Text;
    FFTP.IDFtp1.Password := EditPasse.Text;
    s := EditServeur.Text;
    FFTP.IDFtp1.Connect;
    If FFTP.IDFtp1.Connected Then
    Try
      FFTP.IDFtp1.List(FFtp.ListeDistante.Items);
      FFtp.Animate.Active := False;
    Except;
    End;
  Finally
    FFtp.EnableControls(True);
    FFtp.ConnectBtn.Enabled := True;
    FFtp.PopupMenu2.AutoPopup := True;
    FFtp.StatusBar1.Panels[0].Text :='Connecter