關於使用TTCPServer的問題 |
答題得分者是:ko
|
ESCAPE
一般會員 發表:37 回覆:47 積分:16 註冊:2005-02-15 發送簡訊給我 |
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
|
ESCAPE
一般會員 發表:37 回覆:47 積分:16 註冊:2005-02-15 發送簡訊給我 |
引言: ESCAPE 你好: 在接收資料的那一段code中加入 Application.ProcessMessages;您好,很感謝您的回覆,但我按照您的方式加入那段指令還是無法即時收到資料,如果我使用Delphi6的SocketServer元件就可以即時收到Client端的資料。我將程式碼Post上來,煩請您予以指正,謝謝您。 procedure TfrmMain.tsReceiverAccept(Sender: TObject; ClientSocket: TCustomIpClient); Var wS:String; begin tsReceiver.Receiveln(wS); Application.ProcessMessages; mmoGPS.Lines.Add(ClientSocket.Receiveln(wS)); If Not (wS=' ') Then mmoGPS.Lines.Add(wS); end; |
mustapha.wang
資深會員 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |