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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> idUDPClient в Delphi 2009, Проблема с отправкой сообщений  
:(
    Опции темы
alisa7
Дата 3.2.2011, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Доброго времени суток!
Есть проблема при переходе с Delphi 7 на 2009.
Мне нужно передать структуру данных по UDP.
  type
  k_rec = packed record
    id    : integer;
    fio   : string[150];
    short_fio   : string[100];
    dev   : integer;
    res   : string[10];
    namres: string[100];
  end;

В 7 все было просто 
отправила
  UDPClient.SendBuffer(a,sizeof(a));
получила
  Adata.Read(b, SizeOf(b)*2);

Сейчас параметры функций изменились. Так не получается передать. Если кто-то сталкивался - помогите, плиз!
Найти ничего не удалось...

PM MAIL   Вверх
Snowy
Дата 3.2.2011, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Для 2009 не string, а AnsiString
PM MAIL   Вверх
alisa7
Дата 3.2.2011, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Ansistring - где?

Добавлено через 1 минуту и 55 секунд
изменилось описание функции 
    procedure SendBuffer(const AHost: string; const APort: TIdPort; const ABuffer: TIdBytes); overload; virtual;
как теперь передавать - не пойму
PM MAIL   Вверх
salik
Дата 3.2.2011, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



alisa7 дай взглянуть на процедуры отправки и получения данных
PM MAIL   Вверх
alisa7
Дата 3.2.2011, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



отправляла так
procedure TMainForm.SendBtnClick(Sender: TObject);
begin
  a.fio := SendEdit.Text;
  a.short_fio := '';
  a.dev := 0;
  a.res := '';
  a.namres := '';
  UDPClient.SendBuffer(a,sizeof(a));
  SendEdit.Clear;
end;
принимала так
procedure TMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
begin
  Adata.Read(b, SizeOf(b)*2);
  Memo.Lines.Add('Ответ сервера ' + ABinding.PeerIP + ': ' + b.fio);
end;

Добавлено через 1 минуту и 37 секунд
а теперь 
    procedure SendBuffer(const AHost: string; const APort: TIdPort; const ABuffer: TIdBytes); overload; virtual;

  procedure TForm4.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);

 и как с  TIdBytes теперь - не знаю
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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