FTP: как отправить файл, не имея формы?

[Johnson]

Здравствуйте, уважаемые!
Проблема такая: нужно отправить файл по FTP. Но у программы нет формы как таковой (только .dpr файл).

Подскажите пожалуйста, как такое реализовать?
P.S.: На ответ из серии "Для чайников" или на "тычок носом в решение" не обижусь)

Заранее благодарен!

[raxp]

пусть вас не смущает отсутствие формы, создавайте компонент idFTP динамически...

[Johnson]

*ковыряя пальцем стол и смущаясь* Пример можно?..

[raxp]

var IDFTP: tIDFTPclient;
begin
...
  IDFTP:= tIDFTPclient.create(nil);
...
  IDFTP.Host:='111.11.11.11' ;
  IDFTP.Username:= 'Name';
  IDFTP.Password:= 'Pass';
  try
    IDFTP.Connect();
    IDFTP.ChangeDir(каталог на сервере);
    IdFTP.Put(ваш файл, имя файла на сервере);
  finally
    IDFTP.Disconnect
  end;
...
...
IDFTP.free

смысл ясен?

[Johnson]

Да, Вы чуть опередили меня, хотел сказать, что овпрос отменяется... решил так:

var
  SDIAppForm: TSDIAppForm;
  idFTP1: TidFTP;

implementation

{$R *.dfm}

procedure TSDIAppForm.Button1Click(Sender: TObject);
begin
idFTP1:=TidFTP.Create(nil);
idFTP1.Host:='local.ru'; //FTP-сервер
idFTP1.Port:=21; //порт ФТП сервера
idFTP1.Username:='local';
idFTP1.Password:='pass';
idFTP1.Connect;
idFTP1.ChangeDir('123');
IdFTP1.Put('c:\1.bmp','1.bmp' ,true);
idFTP1.Disconnect;
end;

Трай/Файнэли только вот добавлю щас...
Очень благодарен за наведение на мысль и ответы!
Тему, думаю, можно закрыть...

[Johnson]

PS: не обращайте внимания на обработку "по_клику",эт я так проверял для удобства... )