Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.02.2008, 17:30   #1
Mitron
Форумчанин
 
Аватар для Mitron
 
Регистрация: 10.05.2007
Сообщений: 117
Восклицание Передача файла на FTP

Всем привет, у меня такая проблема: когда передаю файл на FTP сервер, то приложение виснет, до тех пор пока файл не отправится полностью.
использую indy, метод put.
Задачи на заказ

Блажен тот, кто ничего не знает: он не рискует быть не понятым.
Mitron вне форума
Старый 14.02.2008, 19:46   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Обрабатывайте события:
Onworkbegin
OnWork
OnWorkEnd
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума
Старый 14.02.2008, 21:54   #3
Mitron
Форумчанин
 
Аватар для Mitron
 
Регистрация: 10.05.2007
Сообщений: 117
По умолчанию

сорри, а по точнее можно. что нужно обрабатывать?
Задачи на заказ

Блажен тот, кто ничего не знает: он не рискует быть не понятым.
Mitron вне форума
Старый 20.02.2008, 20:58   #4
Prototype
Пользователь
 
Регистрация: 25.07.2007
Сообщений: 24
По умолчанию

Вот пример
Вложения
Тип файла: rar primer.rar (2.8 Кб, 213 просмотров)
Prototype вне форума
Старый 30.11.2008, 23:00   #5
}{oт@бь)ч
Форумчанин
 
Аватар для }{oт@бь)ч
 
Регистрация: 16.10.2008
Сообщений: 104
Вопрос

Цитата:
Сообщение от Prototype Посмотреть сообщение
Вот пример
Зделал по вашему примеру но всерогно неработает!
Цитата:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
ProgressBar1: TProgressBar;
Button1: TButton;
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure FormCreate(Sender: TObject);
procedure IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
procedure IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTP1.Host := 'moy_xost.freehostia.com';
IdFTP1.Username := 'login';
IdFTP1.Password := '*****';
IdFTP1.Connect(true);
end;

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
end;

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
MessageDlg('Передача закончена!',mtInformation,[mbok],0);
end;

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

end;

end.
Вот зделал по примеру но выскакивает во эта ошибка!

В чом проблема?
Помогите плиз)))
}{oт@бь)ч вне форума
Старый 01.12.2008, 09:33   #6
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

ключевая фраза "Permission denied"
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума
Старый 01.12.2008, 17:37   #7
}{oт@бь)ч
Форумчанин
 
Аватар для }{oт@бь)ч
 
Регистрация: 16.10.2008
Сообщений: 104
По умолчанию

А пооподробнее можно что не так можете сказать просто нуб!
Токо учусь!
}{oт@бь)ч вне форума
Старый 01.12.2008, 18:17   #8
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

У Вас прав нет.
_Engine_ вне форума
Старый 01.12.2008, 18:33   #9
DOLBY
Форумчанин
 
Аватар для DOLBY
 
Регистрация: 12.12.2007
Сообщений: 121
По умолчанию

Эта ошибка значит, что доступ закрыт. Скорее всего сервер не разрешает вам передавать ему файлы.
Компьютеры - вещь слишком сложная, чтобы работать в принципе. Поэтому то, что они работают хоть как-то, уже чудо.
DOLBY вне форума
Старый 01.12.2008, 18:33   #10
hkdkest
Заблокирован
 
Регистрация: 28.11.2008
Сообщений: 6
По умолчанию

Поставь антифриз
hkdkest вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Передача файла на сервер eldar Работа с сетью в Delphi 4 03.09.2008 22:09
Передача текста файла.... prizrak1390 Общие вопросы Delphi 1 23.06.2008 10:58
передача файла от idtcpclient к idtcpserver SeЯgey Работа с сетью в Delphi 1 13.05.2008 11:21
Передача файла через TServerSocket и TClientSocket Vanya Работа с сетью в Delphi 10 08.04.2008 18:12
Передача файла с одного компа на другой Kocapb Фриланс 4 18.11.2007 18:37