請問各位大大一個有關滑鼠控制的問題...

發文回覆瀏覽次數：939

推到 Plurk!

推到 Facebook!

請問各位大大一個有關滑鼠控制的問題...

答題得分者是：RaynorPao

pc006257
一般會員

發表：4
回覆：1
積分：1
註冊：2003-08-20

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-10-17 12:11:10

IP:163.26.xxx.xxx 未訂閱

請問各位大大下列程式發生了什麼問題?當程式在執行時 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

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-10-17 16:49:07

IP:203.73.xxx.xxx 未訂閱

引言: 請問各位大大下列程式發生了什麼問題?當程式在執行時 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());
  }
}
--------------------------------------------------------------------

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 --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

系統時間：2024-04-28 17:04:10

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

本站聲明

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