Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Idtelnet в отдельном потоке. Как забрать данные из переменной Buffer? 
:(
    Опции темы
ArthurX
Дата 24.9.2010, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Здравствуйте.

В главном потоке данные забираются и обрабатываются без проблем:

Код

procedure Ttest.IdTelnetDataAvailable(Sender: TIdTelnet; const Buffer: String);
  begin
bla bla bla;
  end;


Понадобилось полностью убрать компонент idTelnet, создавать его в потоке и осуществлять работу с ним также в потоке:
Создаю поток. Выполняю свой код в потоке:

Код

procedure TNewThread.Execute;
begin
  Tel := TIdTelnet.Create(nil);
  Tel.Host := 'ip_address';
  Tel.Connect;
   .............
end;


Каким образом теперь мне забирать данные из "IdTelnetDataAvailable" внутри моего потока?
Хотя бы наставьте на путь истинный, а то год к Делфи не прикасался  smile 
Спасибо.

Это сообщение отредактировал(а) ArthurX - 24.9.2010, 16:20
PM MAIL   Вверх
ArthurX
Дата 24.9.2010, 18:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Это сообщение отредактировал(а) ArthurX - 24.9.2010, 18:30
PM MAIL   Вверх
Matematik
Дата 24.9.2010, 20:42 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50
В общем-то так же, тлько IdTelnetDataAvailable надо создать руками и привязать к компоненту.

Код

type
  TTelnetThread = class(TThread)
  private
    procedure IdTelnetDataAvailable(Sender: TIdTelnet; const Buffer: String);    
  end;

{...}

procedure TTelnetThread..Execute;
begin
 Tel := TIdTelnet.Create(nil);
  Tel.OnDataAvailable = IdTelnetDataAvailablee;
end

procedure TTelnetThread.IdTelnetDataAvailablee(Sender: TIdTelnet; const Buffer: String);    
begin
  
end;


Это сообщение отредактировал(а) Matematik - 24.9.2010, 20:43
PM MAIL WWW ICQ   Вверх
ArthurX
Дата 30.9.2010, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Работает  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0616 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.