請問各位大大一個有關滑鼠控制的問題... |
答題得分者是: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 你好: 請參考以下的範例程式碼 (再依照自己的需求修改)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. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |