ServerSocket 如何能 BroadCast TMemoryStream? |
尚未結案
|
Wawa
一般會員 發表:27 回覆:55 積分:16 註冊:2002-10-04 發送簡訊給我 |
|
yachanga
資深會員 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
不知道這是不是你要的
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; ~悠遊法國號~
|
Wawa
一般會員 發表:27 回覆:55 積分:16 註冊:2002-10-04 發送簡訊給我 |
謝謝 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. 希望能有前輩能不吝賜教, 謝謝!!
|
yachanga
資深會員 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
|
Wawa
一般會員 發表:27 回覆:55 積分:16 註冊:2002-10-04 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
用 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 |
Wawa
一般會員 發表:27 回覆:55 積分:16 註冊:2002-10-04 發送簡訊給我 |
謝謝 hagar 的回答, 你所提的 Indy Demo 程式, 我之前也有看過, 並不完全是我要的, 有如下幾點不同: 1.我需要在 Server 端用 TIdUDPServer 送出 MemoryStream, 因我是要送出影片之 Stream. 且是用 Broadcast 的方式送出.
2.當然 Client 端就是要接收 MemoryStream. 收到 MemoryStream 後將之播放出來
3.Client 端會有好幾個,Server 端只需一個就夠了,也就是說 Server 端負責影片的傳送, 而區網中的各個 Client 端均可連上 Server 端, 且將之播放. 我也上網找了很久, 但均未找到類似的範例.
好像 c 有類似的demo, 但 C 我看不懂. 此問題已困擾很久了,希望能有前輩高手來指導, 謝謝!!
|
minnie
一般會員 發表:1 回覆:2 積分:0 註冊:2004-12-02 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |