| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TKOLFTP [Delphi6, WinXP]

Maloric ©   (2006-03-11 18:51:00) 

Добрый вечер. У меня не получается скачка и закачка файла на ftp.
На ftp сервере есть папка 'www'.

procedure TForm1.Button1Click(Sender: PObj);
begin
    FTP1.Connect;
    FTP1.Login;
end;
procedure TForm1.Button2Click(Sender: PObj);
begin
    FTP1.SavePath:= GetStartDir;
    FTP1.Get('\WWW/Data.txt');
end;
procedure TForm1.FTP1FTPLogger(Sender: PObj; Msg: String);
begin
    Memo1.Add(Msg+#13#10);
    Memo1.Perform( EM_LINESCROLL, 0, 32767 );
end;

procedure TForm1.Button3Click(Sender: PObj);
begin
    FTP1.SavePath:='\WWW/';
    FTP1.Get('Data2.txt');
end;

Настройки соединения вбиты в инспекторе.
Server='****.h15.ru'.
Соединение проходит отлично.
Закачака пишет что файл найден, но в папке с программой
никакой файл не появляеться.
При отправке помоему он вообще ничего не находит.
p.s. Один раз в папке появился этот файл, я его стер и больше он не скачивается =(
Помогите решить проблему.
Пробовал KolSimpleFtp.pas by Thaddy, там соединение даже не происходит, появляеться error.

---

Centronix   (2006-03-12 02:24:00) [1]

Взгляни на это http://www.ararat.cz/synapse/
Старые версии неплохо адаптировались под КОЛ...

---

Maloric   (2006-03-12 00:46:00) [2]

Доброй ночи! =)
Сделал dll c компонентом idFTP(Indy VCL),в Uses только idFTP, в ней две процедуры загрузки файла и выгрузки на сервер. Но она сжатая все равно занимает 73кб.
И можно легко вызвать в KOL приложении.
Но размер все равно великоват 73(.dll)+40(.exe), но это намного лучше,
чем 460 кб на чистом VCL.

---

Maloric   (2006-03-11 22:44:00) [3]

В Indy VCL получается все отлично, но файл огромный =)
Indy для Kol, ftp компонент не доделан.
Неужели никто не поможет.

---

Maloric   (2006-03-11 21:50:00) [4]

Плиз, не получается закачать файл на сервер фтп, помогите.
Или подскажите какие компоненты лучше юзать

---

Maloric   (2006-03-11 19:19:00) [5]

Ошибся

procedure TForm1.Button3Click(Sender: PObj);
begin
   FTP1.SavePath:='\WWW/';
   FTP1.Put('Data2.txt');        а не GET('Data2.txt')
end;


---

Наверх