請問各位大大:    我可以動態開了二個以上的form, 但其有一送資料的地方,由tclientsoket送出, 但我用要送form1的東西同時帶有form的id, 但送出卻是form2的內容..    反正就是 動態form內的宣告指標(私用), 但動態開了二個,結果指標是同一個  

#pragma resource "*.dfm"
TClientForm *ClientForm;    GDT_Style *GT; // <-------------問題點
TClientSocket *NSocket;
AnsiString DName,SocketName;
int SendCount;
extern GDT_Style *GHead;
extern Pclient_Style *PHead;
extern unsigned short MonitorCount,SocketFlag[MAX_Pclient];
//---------------------------------------------------------------------------
__fastcall TClientForm::TClientForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TClientForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
   SocketFlag[(unsigned char)GT->PclientID] = SocketFlag[(unsigned char)GT->PclientID]-1;
   if(SocketFlag[(unsigned char)GT->PclientID] == 0) NSocket->Active = false;
   MonitorCount--;
   MainForm->HostViewClick(Sender);
   Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall TClientForm::FormCreate(TObject *Sender)
{
   //initial Value
   
   DName = MainForm->ProbeView->Selected->Caption;
   GT = (GDT_Style *)malloc(sizeof(GDT_Style));
   memset(GT,0x00,sizeof(GDT_Style));       Pclient_Style *Ptr;
   GDT_Style *GDT = GHead;
   while(GDT != NULL)
   {
      if(strncmp(GDT->Description,DName.c_str(),MAX_Alias) == 0 ||
         strncmp(GDT->ID,DName.c_str(),MAX_ID) == 0)
      {
         memmove(GT,GDT,sizeof(GDT_Style));
         Ptr = PHead;
         while(Ptr != NULL)
         {
            if(Ptr->ID == GDT->PclientID) break;
            Ptr = Ptr->Next;
         }
         break;
      }
      GDT = GDT->Next;
   }
   if(GDT == NULL) return;
   
   SocketName = "NProbeHostSocket" IntToStr((unsigned char)GT->PclientID);
   for(int i=0;iComponentCount;i  )
   {
      if(MainForm->Components[i]->Name == SocketName)
      {
         NSocket = dynamic_cast(MainForm->Components[i]);
         if(NSocket->Active == false)
         {
            NSocket->Active = true;
            DataTimer->Enabled = true;
            ShowMessage("Connect......");                char Buf[22];
            unsigned char CRC;
            Front_Pack FBuf;
            FBuf.Leading = Header;
            FBuf.Control = Command;
            FBuf.To = Server;
            FBuf.Length = 11;
            FBuf.SenderSN = 0;
            FBuf.ReceiverSN = 0;
            FBuf.Type = Request_Online;
            memmove(Buf,&FBuf,sizeof(Front_Pack));
            memmove(Buf sizeof(Front_Pack),Ptr->Password,MAX_Password);
            memmove(Buf sizeof(Front_Pack) MAX_Password,&Ptr->ID,1);
            CRC = CRCCheck(Buf,sizeof(Front_Pack) MAX_Password 1);
            Buf[sizeof(Front_Pack) MAX_Password 1] = CRC;
            Buf[sizeof(Front_Pack) MAX_Password 2] = Trailer;
            NSocket->Socket->SendBuf(Buf,22);
         }
         SocketFlag[(unsigned char)GT->PclientID] = SocketFlag[(unsigned char)GT->PclientID] 1;
         break;
      }
   }
   
   SNEdit->Text = AnsiString(GT->ID,MAX_ID/2).Trim();
   IDEdit->Text = AnsiString(GT->ID (MAX_ID/2),MAX_ID/2).Trim();
   AliasEdit->Text = AnsiString(GT->Description,MAX_Alias).Trim();
   switch(GT->Connect)
   {
      case 'C':
           Shape->Brush->Color = clLime;
           TextLabel->Caption = "-->On Line";
           break;
      case 'D':
           Shape->Brush->Color = clYellow;
           TextLabel->Caption = "-->Off Line";
           break;
      default:
           Shape->Brush->Color = clBlue;
           TextLabel->Caption = "-->inactive";
           break;
   }
   if(GT->Emergency == 'Y')
   {
      Shape->Brush->Color = clRed;
      TextLabel->Caption = "-->SOS";
   }
}
//---------------------------------------------------------------------------
 

發表人 - kenbcb 於 2004/05/28 13:43:37

kenbcb您好 我想是因為GT是全域指標的關係... 當Form2 Create時,GT就指向Form2了,此時它跟Form1沒有關係... 拿它來送Form1的資料當然不行... 建議您把該指標放到TClientForm這個class裡,這樣2個Form就 各自有自己的一個指標GT,應該就可以了 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~