| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

IdUDPServer вопрос [D7, NT4]

IronWit ©   (2003-02-06 15:21:00) 

очень глупый но...

IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);

как получить данные?

adata.readbuffer(buf,adata.Size);
выпадает с ошибкой.

Понятно, что какая то мелочь, но какая?

---

neodiX   (2003-02-07 12:24:00) [1]

попробуй так:
procedure TClient.UDPServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
DataStringStream: TStringStream;
s:string;
begin
try
DataStringStream := TStringStream.Create("");
DataStringStream.CopyFrom(AData, AData.Size);
s:=DataStringStream.DataString;
finally
DataStringStream.Free;
end;
end;
у меня работает...

---

Наверх