Форум: "Сети";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Вниз

Помогите с UDP   Найти похожие ветки 

← →
z_1   (2002-05-21 21:24) [0]

Мастера, помогите....

нужно переслать строку по UDP черкните примерчик, иль скажите сылочку...

За ранее спасибо!

---

← →
Kasalex   (2002-05-22 08:48) [1]

В смысле через компонент NMUDP? Тогда наверное так:

procedure TForm1.Send(Ip,Mes : String);
var MessageStream : TStringStream;
begin
Try
MessageStream := TStringStream.Create("");
MessageStream.Position:=0;
MessageStream.WriteString(Mes);
UDP.RemoteHost:= Ip;
UDP.SendStream(MessageStream);
MessageStream.Destroy;
Except end;
end;

---

← →
Donal_Graeme   (2002-05-22 10:01) [2]

э... немного подкорректирую :-) если уж использовать try...except, то немного не так :-)


procedure TForm1.Send(Ip,Mes : String);
var MessageStream : TStringStream;
begin
MessageStream := TStringStream.Create("");
Try
MessageStream.Position:=0;
MessageStream.WriteString(Mes);
UDP.RemoteHost:= Ip;
UDP.SendStream(MessageStream);
Except
MessageStream.Free;
end;


---

← →
still   (2002-05-22 12:36) [3]

2Donal_Graeme
Тогда уж так :)))

procedure TForm1.Send(Ip,Mes : String);
var MessageStream : TStringStream;
begin
MessageStream := TStringStream.Create("");
Try
MessageStream.Position:=0;
MessageStream.WriteString(Mes);
UDP.RemoteHost:= Ip;
UDP.SendStream(MessageStream);
Finally
MessageStream.Free;
end;
end;

---

← →
Donal_Graeme   (2002-05-22 15:02) [4]

да, точно :-))

---

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

Форум: "Сети";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.004 c