Текущий архив: 2004.02.17;
Скачать: CL | DM;

Вниз

UDP   Найти похожие ветки 

← →
XeON ©   (2003-11-11 15:09) [0]

Подскажите как принять\получить текст с помощью UDP.

---

← →
Rouse_ ©   (2003-11-11 22:55) [1]

А чем пользуешся?
Я в смысле код примера чего давать?

Желаю успехов

---

← →
XeON ©   (2003-12-14 13:29) [2]

давай всего, чего есть.

---

← →
able ©   (2003-12-14 14:19) [3]


procedure TForm1.SendMessage(str: String);
var
MyStream: TMemoryStream;
C: String;
begin
C := str;
UDP.ReportLevel := Status_Basic;
MyStream := TMemoryStream.Create;
try
MyStream.Write(C[1], Length(C));
UDP.SendStream(MyStream);
finally
MyStream.Free;
end;
end;

Пользуемся :)

---

← →
XeON ©   (2003-12-14 18:11) [4]

Это отпавить! А принять?

---

← →
Vollter ©   (2003-12-14 19:07) [5]

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;

---

← →
Erik ©   (2003-12-15 12:28) [6]

Для Indy вобще демо есть.

---

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

Текущий архив: 2004.02.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c