我用 TServerSocket，TClientSocket (D7)来发送与接收信息， 希望功能是：每次发送信息前 ClientSocket.open, SendText 后 ClientSocket.Close; 可奇怪的是：程序启动后的第一次发送总不能成功，之后的每次发送都能成功 。不知道为什么。 服务器端(stNonBlocking;Port := 3369)： OnClientRead 事件 procedure TfrmMonitor.srvMonitorClientRead(Sender: TObject; Socket: TCustomWinSocket); var Len:integer; MfromClient,: string; begin MfromClient := Socket.ReceiveText; Beep; end; //Client 端 procedure TfrmClient.btnMtoSendClick(Sender: TObject); //发送信息按钮 var MtoSend: string; begin cltMtoSend.Address := '192.168.0.222'; cltMtoSend.Port := 3369; cltMtoSend.Open; MToSend := 'Test! Test!'; cltMtoSend.Socket.SendText(MtoSend); cltMtoSend.Close; end;

One2Free 你好 Client端，在設計時期CLientSocket是否處於Open的狀態。你可以在Form.OnCreate事件中，將ClientSocket.Active := False ;試試看!

我用 TServerSocket，TClientSocket (D7) 来发送与接收信息， 希望功能是：每次发送信息前 ClientSocket.open, SendText 后 ClientSocket.Close; 可奇怪的是：程序启动后的第一次发送总不能成功，之后的每次发送都能成功 。不知道为什么。 服务器端(stNonBlocking;Port := 3369)： OnClientRead 事件 procedure TfrmMonitor.srvMonitorClientRead(Sender: TObject; Socket: TCustomWinSocket); var Len:integer; MfromClient,: string; begin MfromClient := Socket.ReceiveText; Beep; end; //Client 端 procedure TfrmClient.btnMtoSendClick(Sender: TObject); //发送信息按钮 var MtoSend: string; begin cltMtoSend.Address := '192.168.0.222'; cltMtoSend.Port := 3369; cltMtoSend.Open; MToSend := 'Test! Test!'; cltMtoSend.Socket.SendText(MtoSend); cltMtoSend.Close; end; 并且这试过: var m: integer MtoSend: string; begin cltMtoSend.Address := '192.168.0.222'; cltMtoSend.Port := 3369; cltMtoSend.Open; m := 0; while m = 0 do Delay(1000); //自定义延时函数 MToSend := 'Test! Test!'; m := cltMtoSend.Socket.SendText(MtoSend); Memo1.Lines.Add('返回代码：' IntToStr(m)); end; cltMtoSend.Close; end; 返回代码一直是零,但如果之前已经联接并断开过一次就正常.

把 beep 那行換成 socket.close 看看 ... 發表人 - bruce0211 於 2004/07/12 21:45:21

问题解决了,可能这是 TServerSocket，TClientSocket 的 BUG,我换用了 TURBO IPro就行了.

引言: 问题解决了,可能这是 TServerSocket，TClientSocket 的 BUG,我换用了 TURBO IPro就行了.

這叫避開問題 , 而不叫解決問題 ....

每天都遇到很多问题，又要赶期限，如果我遇到墙只懂得死钻，不懂得 换条路走走，我们一些软件民工哪来那么多时间呀？大哥！ 而且为了这个问题，我自己试了一个下午的时间不行，才决定换控件的！ 如果有时间，我早就去学 单片机 和 C# 了！命苦呀！ 發表人 - One2Free 於 2004/07/14 23:16:03

提問者您好:


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


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


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

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