請問各位大大一個有關滑鼠控制的問題... |
答題得分者是:RaynorPao
|
pc006257
一般會員 發表:4 回覆:1 積分:1 註冊:2003-08-20 發送簡訊給我 |
請問各位大大下列程式發生了什麼問題?當程式在執行時
SERVER端的程式會產生一個『不是正確的整數值』,這是怎麼回事?
SERVER : =========================================== __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TCPServer1->DefaultPort=5000; IdTCPServer1->Active=true; } -------------------------------------------------------------------- void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread) { AnsiString astring=AThread->Connection->ReadLn(); ShowMessage(astring); try { int counter,X=0,Y=0; AnsiString astring,xpos,ypos; counter=astring.Pos(" "); counter--; xpos=astring.SubString(1,counter); counter ; ypost=astring.Delete(1,counter); X=StrToInt(xpos); Y=StrToInt(ypos); SetCursorPos(X,Y); } __finally { } } ---------------------------------------------------- CLIENT : ==================================================== void __fastcall TForm1::Button1Click(TObject *Sender) { IdTCPClient1->Host=Edit1->Text; IdTCPClient1->Port=5000; IdTCPClient1->Connect(); } --------------------------------------------------------------------- void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,int X, int Y) { if (IdTCPClient1->Connected()) { AnsiString xpos,ypos,temp; xpos=IntToStr(X); ypos=IntToStr(Y); temp=(xpos " " ypos); IdTCPClient1->WriteLn(temp.c_str()); } } -------------------------------------------------------------------- |
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 請問各位大大下列程式發生了什麼問題?當程式在執行時 SERVER端的程式會產生一個『不是正確的整數值』,這是怎麼回事?pc006257 你好: 請參考以下的範例程式碼 (再依照自己的需求修改) < class="code"> // Server __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { IdTCPServer1->DefaultPort=4000; IdTCPServer1->Active=true; } __fastcall TForm1::~TForm1() { IdTCPServer1->Active=false; } void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread) { AnsiString sz=AThread->Connection->ReadLn(); TStringList *sl=new TStringList; try { int iX=0, iY=0; sl->CommaText=sz; iX=StrToInt(Trim(sl->Strings[0])); iY=StrToInt(Trim(sl->Strings[1])); SetCursorPos(iX, iY); } __finally { delete sl; } } // Client __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { IdTCPClient1->Host="192.168.16.152"; IdTCPClient1->Port=4000; IdTCPClient1->Connect(3000); } __fastcall TForm1::~TForm1() { IdTCPClient1->Disconnect(); } void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(IdTCPClient1->Connected()) { AnsiString szX, szY, szPos; szX=IntToStr(X); szY=IntToStr(Y); szPos=szX "," szY; IdTCPClient1->WriteLn(szPos); } } -- Enjoy Researching & Developing --SERVER : =========================================== __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TCPServer1->DefaultPort=5000; IdTCPServer1->Active=true; } -------------------------------------------------------------------- void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread) { AnsiString astring=AThread->Connection->ReadLn(); ShowMessage(astring); try { int counter,X=0,Y=0; AnsiString astring,xpos,ypos; counter=astring.Pos(" "); counter--; xpos=astring.SubString(1,counter); counter ; ypost=astring.Delete(1,counter); X=StrToInt(xpos); Y=StrToInt(ypos); SetCursorPos(X,Y); } __finally { } } ---------------------------------------------------- CLIENT : ==================================================== void __fastcall TForm1::Button1Click(TObject *Sender) { IdTCPClient1->Host=Edit1->Text; IdTCPClient1->Port=5000; IdTCPClient1->Connect(); } --------------------------------------------------------------------- void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,int X, int Y) { if (IdTCPClient1->Connected()) { AnsiString xpos,ypos,temp; xpos=IntToStr(X); ypos=IntToStr(Y); temp=(xpos " " ypos); IdTCPClient1->WriteLn(temp.c_str()); } } --------------------------------------------------------------------
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |