Работа с файлами на удалённом сервере

[KORN]

ну что бы все файлы из папки закинуть на сервер для этого нужно:
1) создать список файлов... для этого нужно юзать TSearchRec (ищи на форуме поиск файлов) и засунуть в переменную типа tstrings;
2) подключиться к ftp
http://programmersforum.ru/showthrea...&highlight=ftp
сиди и разбирайся в коде
3) в цикле заливаешь каждый файл
4) отключаешься

вот скажи что так сложно пользоваться тегами для выделения кода и правкой что бы не плодить сообщения?

[DenisVoronov]

Зашем ругаешься, насяльника?
буду знать!

[DenisVoronov]

Подскажите плз:
Есля напишу кроме самого хоста еще и каталог, можно так?

procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTP1.Host := 'qwerty.asd.by\www\index\';
IdFTP1.Username := 'login';
IdFTP1.Password := '*****';
IdFTP1.Connect(true);
end;

а вместо файа укажу каталог:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Put('c:\index\',true);

end;

или как надо прописать?

[KORN]

хост это блин url сайта к которому подключаешься...
put это файл а не папка... тебе нужно поочередно файлы заливать... я тебе же все разжевал...

[DenisVoronov]

Файлы поочерёдно научился заливать, но немного по-своему...
Хочется чтобы программка весь каталог заливала.
Вот что я сделал:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
File_to_upload: string;
TMP_FILE: string;
soob: string;
begin
File_to_upload:= 'D:\test.zxr'; // файл который копируется
TMP_FILE:='test.zxr'; // файл результат на ФТП
try
try
 IdFTP1.Connect;
 IdFTP1.ChangeDir('/public_html/');
 IdFTP1.Put(File_to_upload,TMP_FILE,false);

finally;
begin
File_to_upload:= 'D:\googleee.zxr'; // файл который копируется
TMP_FILE:='googleee.zxr'; // файл результат на ФТП
try
     IdFTP1.Put(File_to_upload,TMP_FILE,false);
      soob:='Данные успешно обновлены!';
 MessageDlg(soob,mtinformation,[mbOk],0);
except
 on E:Exception do
  MessageDlg('Ошибка при работе с ФТП сервером: ' + E.message,mtError,[mbOk],0);

end;
 if IdFTP1.Connected then
  IdFTP1.Disconnect;
end;
end;
       finally;
end;
end;
end.

Это пример с другого сйта для 1 файла, а я сделал для 2.
Так можно много, но получается громадьё и надо прописывать имена файлов...

[KORN]

а ты прочитай что я тебе писал... есть процедура поиска файлов в папке и подпапках... на форуме не раз обсуждалось это...
http://programmersforum.ru/showthrea...ght=TSearchRec

пиши все отдельными процедурами и будет проще вызывать, а то что кода много эт норм

[DenisVoronov]

Спасибо))) Я просто туть недавно, не разобрался толком где и что искать.
Вот есть ещё один вопрос:
на форме есть два Edit-a
при нажатии на "Обновить" должно происходить следующее:
Текст из Эдит1 пишется в файл 1, а из Эдит2 пишется в файл 2, потом эти два файла льются на фтп.
Так вот, в чем проблема:
как сделать чтобы если эдит1 заполнен, а эдит2 нет, то и заливать надо файл 1 на фтп а 2 нет?

[KORN]

if edit1.text<>'' then
//заливаешь файл

далее по аналогии, по поводу записи юзай tstrings;

[DenisVoronov]

if edit1.test<>'' then

Может text? Не придираюсь, просто сам в себе не уверен...

[KORN]

да, просто очепятка...