제가 Udp서버와 Udp클라이언트로 서버에서 데이타를 보내고 클라이언트에서 데이타를 받으려고 하는데 udp클라이언트 컴포넌트는 있는데..서버가 없군여 예제를 보니까 Udplistener라는 컴포넌트가 있는데 이것이 서버역할을 하는것인지 궁금합니다. 그리고 Serversocket컴포넌트와 udp컴포넌트를 같이써도 문제가 없을까여 한프로그램안에서...
udp서버와 udp클라이언트 사용법좀?
그리고 데이타를 보내는것이 send('')와 같은 구문으로 가능한가여..데이타를 보내는 사용법좀 부탁드립니다. 받는것과?
그럼 수고하세요
예제를 보여드리자면
일단 Button1, Memo1, Edit1, WinshoeUDPClient1, WinshoeUDPListener1을 폼위에 놓으시고
FormCreate Event에서...
procedure TForm1.FormCreate(Sender: TObject);
begin
WinshoeUDPListener1.Port := 3030;
WinshoeUDPListener1.Active := true;
end;
Button1Clck Event에서...
procedure TForm1.Button1Click(Sender: TObject);
begin
WinshoeUDPClient1.Port := 3030;
WinshoeUDPClient1.Host := '127.0.0.1';
WinshoeUDPClient1.Connect;
try
WinshoeUDPClient1.Send(Edit1.Text);
finally
WinshoeUDPClient1.Disconnect;
end;
end;
WinshoeUDPListener1UDPRead Event에서...
procedure TForm1.WinshoeUDPListener1UDPRead(Sender: TObject; const psData,
psPeer: String; const piPort: Integer);
begin
Memo1.Lines.Add(psPeer + ' 에서부터 ' + psData + ' 라는 메세지가 왔습니다');
end;
쩝, 주접이었습니다.