請教: 1.ServerSocket 如何能 BroadCast TMemoryStream 的資料流? 2.ClientSocket 如何接收 Server BroadCast 之 TMemoryStream? 謝謝!!

不知道這是不是你要的 delphi TNMUDP component ...    //送message 出去 Var  Msg: String; MyStream : TMemoryStream; begin Msg:='Notice remote IP'; MyStream.Clear; MyStream.Write(Msg[1], Length(Msg));    NMUDP.RemoteHost:=$IP address; NMUDP.SendStream(MyStream); end;    //接受message procedure TForm1.NMUDPDataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer); var TmpStr: String; begin TmpStr:=''; MyStream.Clear; NMUDP.ReadStream(MyStream); SetLength(TmpStr,NumberBytes); MyStream.Read(TmpStr[1],NumberBytes); if TmpStr <> '' then  begin   showmessage(TmpStr);  end; end;        ~悠遊法國號~

謝謝 yachanga 的回答,但並不是我想要的.因 TNMUDP 原本就有SendStream 及 ReadStream 之 method. 而且也能 Broadcast. 我想要的是 ServerSocket, ClientSocket 元件或 Indy UDP 元件都可以,因TNMUDP 元件在 D6 以後就沒有了, 雖然我現還用 D5, 但相容於以後的版本也是要考慮的. 1.若用ServerSocket這組元件,SendStream 沒什麼問題,但沒有 Broadcast 的功能. 2.若用TIdUDPClient這組Indy元件,Broadcast 沒什麼問題, 但確沒有SendStream, 只有SendBuffer, 而我不知如何將 SendBuffer 改成 SendStream. 希望能有前輩能不吝賜教, 謝謝!!

疑?? 我不知道D7以上有無 TNMUDP 但是我的D6 有 TNMUDP, 在FastNet... 所以D6 可以相容吧 <>~悠遊法國號~

Sorry, D6 有無 TNMUDP 我不知道, 但 D7 我確定沒有了. 但這都不重要. 我只希望能解決問題. 謝謝!! 希望能用下列其中一種的元件 1.ServerSocket,ClientSocket這組元件. 2.TIdUDPServer,TIdUDPClient這組Indy 元件. 3.其他有 Source Code 的元件都可以. 希望能有高手不吝賜教, 謝謝!! PS. 不要用TNMUDP元件.

用 Indy 元件的話, 可以參考它的 Demo 程式 Server Receive:

procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
  DataStringStream: TStringStream;
  s: String;
begin
  DataStringStream := TStringStream.Create('');
  try
    DataStringStream.CopyFrom(AData, AData.Size);
    UDPMemo.Lines.Add('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;

Client Send:

procedure TUDPMainForm.SendButtonClick(Sender: TObject);
var
  MessageID: Integer;
  ThisMessage: String;
  ReceivedString: String;
begin
  MessageID := Random(MAXINT);
  ThisMessage := 'Message: ' + IntToStr(MessageID);
  UDPMemo.Lines.Add('Sending ' + ThisMessage);
  UDPClient.Send(ThisMessage);
  ReceivedString := UDPClient.ReceiveString();
  if ReceivedString = '' then
    UDPMemo.Lines.Add('No response received from the server after ' + IntToStr(UDPClient.ReceiveTimeout) + ' millseconds.')
  else
    UDPMemo.Lines.Add('Received: ' + ReceivedString)
end;

-- 發表人 - hagar 於 2004/03/25 17:34:05

謝謝 hagar 的回答, 你所提的 Indy Demo 程式, 我之前也有看過, 並不完全是我要的, 有如下幾點不同: 1.我需要在 Server 端用 TIdUDPServer 送出 MemoryStream, 因我是要送出影片之 Stream. 且是用 Broadcast 的方式送出. 2.當然 Client 端就是要接收 MemoryStream. 收到 MemoryStream 後將之播放出來 3.Client 端會有好幾個,Server 端只需一個就夠了,也就是說 Server 端負責影片的傳送, 而區網中的各個 Client 端均可連上 Server 端, 且將之播放. 我也上網找了很久, 但均未找到類似的範例. 好像 c 有類似的demo, 但 C 我看不懂. 此問題已困擾很久了,希望能有前輩高手來指導, 謝謝!!

idUdpServer可以的，idUdpServer.SendBuffer('255.255.255.255', Aport, buffer, ByteCount); '255.255.255.255'就是广播地址。 ，先将 stream转换为 buffer。 但是在win98下，idUdpServer 收不到 广播信息， 可能是Indy 的Bug

提問者您好:


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


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


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

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