Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > C++ Builder
Перезагрузить страницу Как забить в Memo содержимое IdUDPServer?
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
DENIS451 DENIS451 вне форума
Member
 
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.04.2004
По умолчанию Как забить в Memo содержимое IdUDPServer? - 29.09.2004, 19:34

Какой код писать в обработчике события "OnUDPRead" обьекта
"IdUDPServer1", что б вывести в "Memo1" строку текста,
которая была отправлена с помощью компонента "IdUDPClient"?

Я пользуюсь Borland C++ Builder 6.0 и обработчик события
выглядит так:

Код:
void __fastcall TForm1::IdUDPServer1UDPRead(TObject *Sender,
      TStream *AData, TIdSocketHandle *ABinding)
{

}
а в Delphi это делается так:

Код:
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: 

TStream; ABinding: TIdSocketHandle);

var

StringFormatedStream: TStringStream;

s: String;

begin

//Инициализация

StringFormatedStream := TStringStream.Create('');

//Копирование из простого потока в строковый.

StringFormatedStream.CopyFrom(AData, AData.Size);

//Вывод полученного сообщения

Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);

//Перенаправление сообщения дальше

ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));

//Освобождение строкового потока. 

StringFormatedStream.Free; 

end;
.
Ответить с цитированием
  (#2 (permalink)) Старый
BOR
Guest
 
Сообщений: n/a
По умолчанию 18.01.2005, 03:20

Код:
TStringList* ST=new TStringList;
ST->LoadFromStream(AData);
Memo1->Lines->Insert(Memo1->Lines->Count-1,ST->Text);
Че-то типа этого.
Ответить с цитированием
  (#3 (permalink)) Старый
Василий2 Василий2 вне форума
Member
 
Сообщений: 64
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 13.10.2005
По умолчанию 09.02.2006, 11:50

Код:
TStringStream *SS = new TStringStream("");
SS->CopyFrom(AData,AData->Size);
AnsiString Message = SS->DataString;
Memo1->Lines->Add(Message);
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
содержимое папки Олекс Любые вопросы от новичков 7 07.04.2012 14:52
Компонент IdUDPServer в RAD Studio 2007 C++ Builder DENIS451 C++ Builder 10 16.10.2007 13:50
содержимое папки Michael-spb Общетематический 1 24.04.2007 03:44
Каретка в Memo и RichEdit Ghostep Delphi 9 28.02.2007 22:04
Компонент IDUDPServer как с ним работать ГС ТОФ Delphi 3 09.02.2007 18:31
Как на memo положить label чтобы label был поверх memo pinpon Delphi 9 13.09.2006 11:34
Как сделать замену в Memo Nastёna Delphi 1 07.05.2006 10:27
Как передавать содержимое MEMO, а не просто текст ФОНАРЬ C++ Builder 7 09.11.2005 14:03
Запись данных в Memo Cheshuya C++ Builder 10 21.07.2005 08:57
Как с помощью SQL вытащить данные из бд и забить и[ в ListBo Lapidos SQL 1 14.06.2005 18:35
Как в ini запихнуть содержимое Memo kos Delphi 2 03.10.2003 21:54



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов