如何運用serversocket與clientsocket來控制跑馬燈 - Delphi K.Top 討論區

發文回覆瀏覽次數：1100

推到 Plurk!

推到 Facebook!

如何運用serversocket與clientsocket來控制跑馬燈

答題得分者是：RaynorPao

breyd 一般會員發表：11 回覆：10 積分：4 註冊：2003-05-29 發送簡訊給我	#1 引用回覆回覆發表時間：2003-08-18 14:22:12 IP:140.118.xxx.xxx 未訂閱請問：如何運用與clien端按Button元件來控制server端跑馬燈閃爍速度(利用RadioButton元件來模擬跑馬燈)，能不能提供有範例程式。謝謝各位前輩~
RaynorPao 版主發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我	#2 引用回覆回覆發表時間：2003-08-18 15:33:01 IP:203.73.xxx.xxx 未訂閱引言: 請問：如何運用與clien端按Button元件來控制server端跑馬燈閃爍速度(利用RadioButton元件來模擬跑馬燈)，能不能提供有範例程式。謝謝各位前輩~ breyd 你好: 請參考以下的範例程式碼 < class="code"> // Server int gi=0; void __fastcall TForm1::FormCreate(TObject Sender) { ServerSocket1->Port=4000; ServerSocket1->Active=true; Timer1->Interval=1000; Timer1->Enabled=true; } void __fastcall TForm1::FormDestroy(TObject Sender) { Timer1->Enabled=false; ServerSocket1->Active=false; } void __fastcall TForm1::Timer1Timer(TObject Sender) { RadioGroup1->ItemIndex=gi; gi ; if(gi>=RadioGroup1->Items->Count) gi=0; } void __fastcall TForm1::ServerSocket1ClientRead(TObject Sender, TCustomWinSocket Socket) { AnsiString sz=Socket->ReceiveText(); if(sz=="快") { Timer1->Interval=500; } else if(sz=="中") { Timer1->Interval=1000; } else if(sz=="慢") { Timer1->Interval=2000; } } // Client void __fastcall TForm1::FormCreate(TObject Sender) { ClientSocket1->Host="192.168.16.152"; ClientSocket1->Port=4000; ClientSocket1->Open(); ComboBox1->Items->Add("快"); ComboBox1->Items->Add("中"); ComboBox1->Items->Add("慢"); ComboBox1->ItemIndex=0; } void __fastcall TForm1::FormDestroy(TObject Sender) { ClientSocket1->Close(); } void __fastcall TForm1::Button1Click(TObject Sender) { if(ComboBox1->ItemIndex<0) ComboBox1->ItemIndex=0; ClientSocket1->Socket->SendText(ComboBox1->Items->Strings[ComboBox1->ItemIndex]); } -- Enjoy Researching & Developing -- ------ -- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --
Royce520 高階會員發表：18 回覆：157 積分：100 註冊：2002-09-13 發送簡訊給我	#3 引用回覆回覆發表時間：2003-08-18 16:14:07 IP:140.126.xxx.xxx 未訂閱 breyd 你好, 我也來獻醜一下, 使用 Indy 的 UDP 來實作 http://delphi.ktop.com.tw/loadfile.php?TOPICID=11240469&CC=251391 真實的事物最美, 簡單的道理最好, 我能體會的太少 ------ 不要忘記呼吸，不要忘記編程！ ∩__∩
breyd 一般會員發表：11 回覆：10 積分：4 註冊：2003-05-29 發送簡訊給我	#4 引用回覆回覆發表時間：2003-08-19 17:16:05 IP:140.118.xxx.xxx 未訂閱謝謝各位前輩指點~~ 我的問題已結決了

系統時間：2024-05-04 22:04:12

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |