我是認為GetSockOpt可以用來解決這個問題,check optval 的value(in debug mode),假如是"True"那麼就是Broadcast,但一直try不出來.因為optval的value 一直是"False".為什麼? 煩請眾前輩們幫幫忙.謝謝!    

procedure TfrmMain.UDPServerUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  DataStringStream: TStringStream;
  s: String;
  optval: Boolean;
begin
  DataStringStream := TStringStream.Create('');
  try
    DataStringStream.CopyFrom(AData, AData.Size);
    ABinding.GetSockOpt(Id_SOL_SOCKET, Id_SO_BROADCAST, PChar(@optval), sizeof(optval));
    lbResult.Items.Append('Received "'   DataStringStream.DataString   '" from '   ABinding.PeerIP   ' on port '   IntToStr(ABinding.PeerPort));
    s := 'Replied from '   UDPServer.LocalName   ' to "'   DataStringStream.DataString   '"';
    ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
  finally
    DataStringStream.Free;
  end;
end;    procedure TfrmMain.UDPSendMessage;
var
  ThisMessage: String;
  ReceivedString: String;
begin
  ThisMessage := 'Message: '   edMsg.Text;
  if edIP.Text <> '' then
  begin
    UDPClient.Host := edIP.Text;
    UDPClient.Port := StrToInt(edPort.Text);
    UDPClient.Send(ThisMessage);
  end
  else
  begin
    UDPClient.Broadcast(ThisMessage, StrToInt(edPort.Text));
  end;
  ThisMessage := 'Message: '   edMsg.Text;
  lbResult.Items.Append('Sending '   ThisMessage);
  ReceivedString := UDPClient.ReceiveString();
  if ReceivedString = '' then
    lbResult.Items.Append('No response received from the Server after '   IntToStr(UDPClient.ReceiveTimeout)   ' millseconds.')
  else
    lbResult.Items.Append('Received: '   ReceivedString)
end;

發表人 - rain299799 於 2004/09/27 16:25:33

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.