VPF::Обработчик команд в TIdFTPServer - Форум программистов

SerGreY

Дата 14.4.2006, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет

Пишу обработчик команды:

Код


procedure TfrmDial.IdFTPServer1TIdCommandHandler0Command(
  ASender: TIdCommand);
var S:TMemoryStream;
begin
  S:=TMemoryStream.Create;
  ASender.Thread.Connection.ReadStream(S);
  ...
end;

Как только идет любое обращение к объекту ASender.Thread.Connection, программа останавливается, на выполнении этой команды, т.е. не выдает ошибку, не вылетает, не зависает.
Также пробовал использовать ReadBuffer(Buffer, sizeof(Buffer)), эффект тот же.

Я передаю данные командой Put(Stream, StreamLength)
Обработчик пишу для команды "STOU".

Как можно прочитать передаваемый поток?

Это сообщение отредактировал(а) Girder - 14.4.2006, 14:52

Snowy

Дата 14.4.2006, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Просто брось на форму антифриз.

SerGreY

Дата 14.4.2006, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет

Цитата(Snowy @ 14.4.2006, 15:03)

Просто брось на форму антифриз.

Он уже есть на форме и включен.

Дело явно не антифризе. Тут именно что-то ни так при чтении.

Мне нужен доступ к рабочему потоку сервера. В TIdCommand.Thread точно хранится то, что нужно?

Это сообщение отредактировал(а) SerGreY - 14.4.2006, 15:21

Snowy

Дата 14.4.2006, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(SerGreY @ 14.4.2006, 14:45

)

procedure TfrmDial.IdFTPServer1TIdCommandHandler0Command(
ASender: TIdCommand);
var S:TMemoryStream;
begin
S:=TMemoryStream.Create;
ASender.Thread.Connection.ReadStream(S);

Так ты что-то пытаешься читать из коннекшена. Причем неизвестной длины.
Вот и вешается.
А за тебя все уже давно прочитано и лежит тут: ASender.Params

SerGreY

Дата 14.4.2006, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет

Я пробовал читать и с определенной длиной.

var i:integer;
S:TMemoryStream;
ASender.Thread.Connection.ReadStream(S, sizeof(i), false);

Все то же.

Params содержит строки.
А что будет в Params, если я передам какую-то record, а не строку?
Добавлено @ 16:29
Проще говоря, как передать произвольный набор данных (какой-то объект) через TIdFTP - TIdFTPServer ?

Snowy

Дата 14.4.2006, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Тогда тебе нужен не обработчик комманд, а OnExecute.
Обработчик комманд только для текста.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »