Главная страница
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.015 c
7-13825
pwlusa
2002-05-20 09:22
2002.08.05
Как запустить приложение?


1-13716
GydruS
2002-07-24 08:25
2002.08.05
Переполнение стека из-за CheckBox а!


6-13744
Shadow[LF]
2002-05-23 11:35
2002.08.05
игровой сервер на pop3


6-13760
SerVS
2002-05-20 00:48
2002.08.05
Как писать Firewall?


3-13541
alexfed
2002-07-15 15:09
2002.08.05
DecisionGride вместо итоговых сумм(по строкам и столбцам) среднее