İndy Ftp ChangeDir hatası

[fox]

benim yapmak istediğim İndy ile Ftp ChangeDir ama dosya yoksa hata veriyo ben dosya yoksa dosya oluşturup içine girmek istiyorum EIdProtocolReplyError hatası alıyorum

Kod: Tümünü seç

try
  form1.IdFTP1.ChangeDir(sUserName);
except
  on E : EIdProtocolReplyError do
  begin
       form1.IdFTP1.MakeDir(sUserName);
    end;
  end;
end;

Hata da bu napabilirim

Kod: Tümünü seç

  [Error] Unit1.pas(62): Undeclared identifier: 'EIdProtocolReplyError'

[undefined]

EIdProtocolReplyError u bulmuyor. Çünkü tanımlı olduğu unit'i uses'a eklememişsiniz. Indyinin helpinde aratırsanız tanımlı olduğu unit'e ulaşabilirsiniz.

[fox]

Kod: Tümünü seç

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdFTP, Shellapi, IdHTTP, IdMessage;

Kod: Tümünü seç

type
  TForm1 = class(TForm)
  IdFTP1: TIdFTP;

Kod: Tümünü seç

form1.IdFTP1.Connect;
try
  form1.IdFTP1.ChangeDir(sUserName);
except
  on E : EIdProtocolReplyError do
  begin
       form1.IdFTP1.MakeDir(sUserName);
    end;
  end;
end;

Malesef problem ondan kaynaklanmıyor uses kısmında IdFtp yi zaten otomatik Ekleme Yapıyor Ben Delphi 7 Enterprise kullanıyorum Ftp olarak indy clientten idFtpyi ekledim problem bunlarda olabilirmi