| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
UDP [D6, D7, Win95/98, WinXP]
XeON © (2003-11-11 15:09:00)
Подскажите как принять\получить текст с помощью UDP.
Erik (2003-12-15 12:28:00) [1]
Для Indy вобще демо есть.
Vollter (2003-12-14 19:07:00) [2]
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;
XeON (2003-12-14 18:11:00) [3]
Это отпавить! А принять?
able (2003-12-14 14:19:00) [4]
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 13:29:00) [5]
давай всего, чего есть.
Rouse_ (2003-11-11 22:55:00) [6]
А чем пользуешся?
Я в смысле код примера чего давать?
Желаю успехов
| |
