![]() |
Модераторы: Snowy, Poseidon, MetalFan |
![]() ![]() ![]() |
|
alisa7 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 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); Сейчас параметры функций изменились. Так не получается передать. Если кто-то сталкивался - помогите, плиз! Найти ничего не удалось... |
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Для 2009 не string, а AnsiString
|
|||
|
||||
alisa7 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 12 Регистрация: 24.2.2010 Репутация: нет Всего: нет |
Ansistring - где?
Добавлено через 1 минуту и 55 секунд изменилось описание функции procedure SendBuffer(const AHost: string; const APort: TIdPort; const ABuffer: TIdBytes); overload; virtual; как теперь передавать - не пойму |
|||
|
||||
salik |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 74 Регистрация: 28.1.2011 Репутация: 1 Всего: 1 |
alisa7 дай взглянуть на процедуры отправки и получения данных
|
|||
|
||||
alisa7 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 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 теперь - не знаю |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Сети" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Сети | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |