Главная страница
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.008 c
3-13548
Wizzard
2002-07-15 12:49
2002.08.05
Как зарегистрировать DAO в системе? У меня программа...


14-13780
id_privin
2002-07-09 11:39
2002.08.05
Где можно взять сломанный DevExpress Quantum Grid?


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


14-13816
111
2002-07-11 18:41
2002.08.05
HiperTerminal


3-13550
studentik
2002-07-09 20:18
2002.08.05
Как перенести прогу, работающую с БД InterBase на