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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> INDY отправка и получение пакетов (TCP) 
:(
    Опции темы
sharman
Дата 21.10.2007, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здраствуйте нужна ваша помощь!!!
Сразу скажу что никогда не работал с TCP/IP протоколом, а тут друг попросил помочь программкой.
Немного прочитав про этот протокол я понял что он работает приблизительно следующим способом:

//соединение
Client "Привет" -> Server
Server "Привет" -> Client

//отправка данных
Client "Отправляю данные" -> Server
Client "Данные" -> Server
Server "Данные получил" -> Client

//разъединение
Client "Пока" -> Server
Server "Пока" -> Client

Задача предельно проста как "мне кажется";). Необходимо реализовать отправку и получение пакетов при помощи Indy компонентов, если не сложно подскажите как это сделать?

Пример оригинального пакета WinPcap
---------------------------------------------------------------------------------------------------
0000   00 30 88 00 66 39 00 d0 d0 86 75 26 88 64 11 00  .0..f9....u&.d..
0010   2e 11 00 53 00 21 45 00 00 51 69 58 40 00 80 06  ...S.!E..QiX@...
0020   ae 6c 55 8d 56 e5 58 d4 dd 9b c0 22 13 ba 17 98  .lU.V.X...."....
0030   c4 59 28 10 4e 2c 50 18 00 43 da 9c 00 00 30 30  .Y(.N,P..C....00
0040   32 34 30 30 30 31 30 30 30 30 30 30 36 39 30 30  2400010000006900
0050   30 31 30 30 30 30 30 30 30 33 30 30 30 31 30 30  0100000003000100
0060   30 30 30 30 30 30 00                                               000000.
---------------------------------------------------------------------------------------------------
Я попробовал реализовать при помощи IdTCPClient
Код

  IdTCPClient1.Host := 'XXX.XXX.XXX.XXX';
  IdTCPClient1.Port := XXXX;
  try
    IdTCPClient1.Connect;
    IdTCPClient1.SendCmd('0024000100000069000100000003000100000000'#13#10);
  finally
    IdTCPClient1.Disconnect;
  end;

Соединение происходит нормально но при попытке выполнить SendCmd программа безнадежно повисает ;(.
PM MAIL   Вверх
dumb
Дата 21.10.2007, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

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



Цитата(sharman @  21.10.2007,  19:37 Найти цитируемый пост)
при попытке выполнить SendCmd программа безнадежно повисает
SendCmd ждет от сервера ответ определенного вида. в справке по клиенту и серверу(IdTCPServer) все достаточно подробно описано.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




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


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

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