Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.05;
Скачать: CL | DM;

Вниз

Помогите с 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-13601
msk
2002-07-23 18:58
2002.08.05
Закрытие всех приложений


1-13694
Victor12345
2002-07-24 00:02
2002.08.05
Элементы одной формы управляют элементами другой.


3-13556
SkyR
2002-07-16 04:20
2002.08.05
Сохранение данных в TDBGrid


1-13614
Freeze
2002-07-25 07:08
2002.08.05
Масштаб картинки TImage


14-13812
conr
2002-07-11 15:02
2002.08.05
Проблемы с dsgnintf.dcu