Скачать: CL | DM;

IdUDPServer вопрос   Найти похожие ветки 

← →
IronWit ©   (2003-02-06 15:21) [0]

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

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

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

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

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

---

← →
neodiX ©   (2003-02-07 12:24) [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;
у меня работает...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: -0.988 c