델파이에서 브로드 캐스트 메시지를 보내려면 어떻게해야합니까?

Question

내 LAN에 브로드 캐스트 UDP 메시지를 보내려합니다. 응용 프로그램은 클라이언트/서버입니다.

사용자 인터페이스를 업데이트하려는 경우, 컴퓨터가 다른 컴퓨터를 업데이트하기 위해 메시지를 보내는 방식입니다. indy UDPServer를 어떻게 사용할 수 있습니까? 감사합니다.

Answer 1

TIdUDPServer 또는 TIdUDPClient 구성 요소를 만듭니다. 두 가지 모두 정확히 Broadcast 방법이 필요합니다.

Answer 2

두 개의 응용 프로그램을 만듭니다. 하나는 송신자를 나타내고 다른 하나는 수신자를 나타냅니다.

보낸 사람

드롭 양식에 TIdUDPClient과 TButton 구성 요소입니다. 버튼 쓰기의 OnClick 핸들러 :

procedure TfrmUDPClient.BroadcastClick(Sender: TObject); 
begin 
    UDPClient.Broadcast('Test', 8090); 
end; 

수신기 양식에

을 드롭 TIdUDPServer, 그것을 위해 동일한 포트 (8090)를 정의하고 OnUDPRead 핸들러이 추가

procedure TfrmUDPServer.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); 
var 
    DataStringStream: TStringStream; 
    Msg: String; 
begin 
    DataStringStream := TStringStream.Create(''); 
    try 
    DataStringStream.CopyFrom(AData, AData.Size); 
    Msg := DataStringStream.DataString; 
    finally 
    DataStringStream.Free; 
    end; 
    ShowMessage(Msg); 
end; 

두 응용 프로그램을 모두 테스트하고 단추를 클릭하십시오. 두 개 이상의 "리스너"로 테스트하려면 다른 시스템을 사용해야합니다. 즉 동일한 IP에서 여러 리스너를 실행할 수 없습니다.