Beispiel #1
0
VOID	TfrmFamilyManager::NewFamily( KFont_family* pFamily )
{

    _pFamily = pFamily;
	TreeView1->Items->Clear();

	TTreeNode* pFamilyNode = TreeView1->Items->Add( NULL, _pFamily->name.c_str() );

    UINT nFaceCnt = pFamily->size();
    for( UINT i = 0; i < nFaceCnt; i++ )
    {
    	KFont_face* pFace = pFamily->at( i );
    	TTreeNode* pFaceNode = TreeView1->Items->AddChild( pFamilyNode, pFace->name.c_str() );

        UINT nGlyphCnt = pFace->size();
        for(UINT j = 0; j < nGlyphCnt; j++)
        {
            KFont_glyph* pGlyph = pFace->at( j );
            TreeView1->Items->AddChild( pFaceNode, pGlyph->name.c_str() );
        }
    }

    pFamilyNode->Expand( TRUE );
    
}
Beispiel #2
0
//---------------------------------------------------------------------------
void __fastcall TLocationProfilesDialog::FindProfile(TTreeView * ProfilesView)
{
  if ((ProfilesView->Selected == NULL) ||
      !ProfileMatch(ProfilesView->Selected))
  {
    TTreeNode * Match = NULL;
    for (int Index = 0; Index < ProfilesView->Items->Count; Index++)
    {
      TTreeNode * Node = ProfilesView->Items->Item[Index];
      if (ProfileMatch(Node))
      {
        Match = Node;
        break;
      }
    }

    if (Match)
    {
      ProfilesView->Selected = Match;
      Match->MakeVisible();
    }
    else
    {
      ProfilesView->Selected = NULL;
    }
  }
}
Beispiel #3
0
VOID	TfrmFamilyManager::OpenFamily( KFont_family* pFamily )
{
    //파일 열기 전에 모두 닫는다.
    //frmMain->CloseAll();
    
    //openStream 에서 받은 Family를 가져온다.
    _pFamily = pFamily;

	TTreeNode* pFamilyNode = TreeView1->Items->Add( NULL, _pFamily->name.c_str() );

    UINT nFaceCnt = pFamily->size();
    for( UINT i = 0; i < nFaceCnt; i++ )
    {
    	KFont_face* pFace = pFamily->at( i );
    	TTreeNode* pFaceNode = TreeView1->Items->AddChild( pFamilyNode, pFace->name.c_str() );

        UINT nGlyphCnt = pFace->size();
        for(UINT j = 0; j < nGlyphCnt; j++)
        {
            KFont_glyph* pGlyph = pFace->at( j );
            TreeView1->Items->AddChild( pFaceNode, pGlyph->name.c_str() );
        }

    }

    pFamilyNode->Expand( TRUE );

}
Beispiel #4
0
void TGuiToProfile::_sourceRootDirList()
{
	PProfile->sourceRootDirList.clear();

	TTreeNode* node = f_Main->fr_Source->tv_Dirs->Items->GetFirstNode();
	while (node)
	{
		PProfile->sourceRootDirList.push_back(IncludeTrailingPathDelimiter(node->Text));
		node = node->getNextSibling();
	}
}
Beispiel #5
0
void TfrmMove::LoadTree( TTreeView* tree, TTreeNode* parent, IPart* data )
{
	if( data != NULL && data->getType() < IPart::BoxType ) { //don't go below box
		Util::ShowTreeNode(tree, parent, false, false);
		TTreeNode* node = parent->getFirstChild();
		while( node != NULL ) {
			LoadTree( tree, node, (IPart*)node->Data );
			node = node->GetNextChild(node);
		}
	}
}
Beispiel #6
0
//---------------------------------------------------------------------------
void __fastcall TLocationProfilesDialog::BookmarkMove(TObject * Sender,
  TTreeNode * Source, TTreeNode * Dest)
{
  TBookmarkList * BookmarkList = GetBookmarkList(Sender);
  TTreeView * ProfilesView = GetProfilesView(Sender);
  TStringList * Folders = GetFolders(Sender);

  assert(Source && Source->Data);

  TBookmark * Bookmark = (TBookmark *)Source->Data;
  TTreeNode * PrevFolderNode = Source->Parent;

  if (!Dest || !Dest->Data)
  {
    Bookmark->Node = Dest ? Dest->Text : UnicodeString();
    BookmarkList->MoveTo(BookmarkList->Bookmarks[BookmarkList->Count - 1],
      Bookmark, false);
    ProfilesView->Selected->MoveTo(Dest, naAddChild);
  }
  else
  {
    TBookmark * DestBookmark = (TBookmark *)Dest->Data;

    Bookmark->Node = DestBookmark->Node;
    BookmarkList->MoveTo(DestBookmark, Bookmark,
      Source->AbsoluteIndex > Dest->AbsoluteIndex);
    if (Source->AbsoluteIndex > Dest->AbsoluteIndex)
    {
      Source->MoveTo(Dest, naInsert);
    }
    else if (Dest->getNextSibling() != NULL)
    {
      Source->MoveTo(Dest->getNextSibling(), naInsert);
    }
    else
    {
      Source->MoveTo(Dest, naAdd);
    }
  }

  if (PrevFolderNode && !PrevFolderNode->Count)
  {
    assert(Folders->IndexOfObject(PrevFolderNode) >= 0);
    Folders->Delete(Folders->IndexOfObject(PrevFolderNode));
    PrevFolderNode->Delete();
  }

  Source->MakeVisible();
  UpdateControls();
}
Beispiel #7
0
void TGuiToProfile::sourceDirLists()
{
	_sourceRootDirList();
	PProfile->excludeDirList.clear();
	PProfile->includeDirList.clear();
	PProfile->excludeTreeList.clear();
	PProfile->includeTreeList.clear();
	String rootdir;

	TTreeNode* node = f_Main->fr_Source->tv_Dirs->Items->GetFirstNode();
	while (node)
	{
		_addSourceDirToList(node, rootdir, false);
		_sourceDirLists2(node->getFirstChild(),
            IncludeTrailingPathDelimiter(rootdir + node->Text));
		node = node->getNextSibling();
	}
}
Beispiel #8
0
AnsiString __fastcall TfrmTreeFrame::GetOption()
                           
{
  AnsiString opt,temp;
  TTreeNode *node =Tree->Items->GetFirstNode();
  while (node !=NULL)
  {
    if ((node->ImageIndex==2) || (node->ImageIndex==1))
    {
      temp = GetSub(node);
      if ((temp !="") & (opt!=""))
         opt =opt+ CRLF +temp;
      else opt =opt+temp;
    }
    node = node->getNextSibling();
  }
  return opt;
}
Beispiel #9
0
//---------------------------------------------------------------------------
void __fastcall TLocationProfilesDialog::BookmarkButtonClick(TObject * Sender)
{
  TControl * Control = dynamic_cast<TControl *>(Sender);
  TTreeNode * Node = GetProfilesView(Sender)->Selected;
  assert(Node);
  assert(Node->Data);

  TTreeNode * TargetNode;
  if (Control->Tag < 0)
  {
    TargetNode = Node->getPrevSibling();
    assert(TargetNode);
  }
  else
  {
    TargetNode = Node->getNextSibling();
  }

  BookmarkMove(Sender, Node, TargetNode ? TargetNode : Node->Parent);
}
Beispiel #10
0
//---------------------------------------------------------------------------
void __fastcall TDialogProjectNew::ListViewClick(TObject *Sender)
{
  if (ListView->Selected) {
    TBusy Busy;
    {
      String Path = Usul()->Path + "\\Templates\\Projects\\." + ListView->Selected->Caption + ".rtf";
      RichEdit->Visible = FileExists(Path);
      if (RichEdit->Visible)
        RichEdit->Lines->LoadFromFile(Path);
    }
    TreeView->Items->BeginUpdate();
    TreeView->Items->Clear();
    String Path = TemplatePath + "\\" + ListView->Selected->Caption;
    TTreeNode *TreeNode = TreeView->Items->Add(0, Path);
    TreeNode->ImageIndex = 1;
    TreeNode->SelectedIndex = 1;
    BuildTreeView(TreeView, TreeNode, Path);
    TreeNode->Expand(true);
    TreeView->Items->EndUpdate();
  }
}
Beispiel #11
0
//---------------------------------------------------------------------------
void __fastcall TFrm1010::CarregaMenu(TTreeNode *pParentItem)
{
	String TextNode;
	SfgMenuInfo *MenuInfo;
	TTreeNode *pChildItem = NULL;
	TTreeNode *pFirstItem = NULL;
	CadMenu->Filtered = false;
	if (pParentItem == NULL) {
		CadMenu->Filter = "cod_rotina_pai IS NULL";
	} else {
		MenuInfo = (SfgMenuInfo*)pParentItem->Data;
		CadMenu->Filter =  "cod_rotina_pai  = " + QuotedStr(MenuInfo->cod_rotina);
	}
	CadMenu->Filtered = true;
	CadMenu->First();
	while (!CadMenu->Eof) {
      MenuInfo = new SfgMenuInfo();
		MenuInfo->cod_rotina = CadMenu->FieldByName("cod_rotina")->AsString;
      if (CadMenu->FieldByName("programa")->AsString.Length() > 0) {
		   TextNode = CadMenu->FieldByName("programa")->AsString.UpperCase() + " - " + CadMenu->FieldByName("den_rotina")->AsString;
      } else {
		   TextNode = CadMenu->FieldByName("den_rotina")->AsString;
      }
		if (pParentItem == NULL) {
			pChildItem = TreeMenu->Items->AddObject(pParentItem, TextNode, (void*)MenuInfo);
		} else {
			pChildItem = TreeMenu->Items->AddChildObject(pParentItem, TextNode, (void*)MenuInfo);
		}
      pChildItem->ImageIndex = CadMenu->FieldByName("ico_index")->AsInteger;
      pChildItem->SelectedIndex = pChildItem->ImageIndex;
		if (pFirstItem == NULL) {
			pFirstItem = pChildItem;
		}
		CadMenu->Next();
	}
	while(pFirstItem != NULL) {
		CarregaMenu(pFirstItem);
		pFirstItem = pFirstItem->getNextSibling();
	}
}
Beispiel #12
0
//---------------------------------------------------------------------------
void __fastcall TFrm1010::execBtCancelExecute(TObject *Sender)
{
	TTreeNode *Node;
	TTreeNode *Prew = NULL;
	if (CadMenu->State == dsInsert) {
		Node = TreeMenu->Selected;
		Prew = Node->getPrevSibling();
		if(Prew == NULL) {
			Prew = Node->GetPrev();
		}
		if (Node) {
			TreeMenu->Items->Delete(Node);
		}
	}
	CadMenu->Cancel();
	pWorkEdition->SetWorkEdition(false,true,AppConfig->Colors->Disabled);
	HabilitarItens(false);
	ico_index->Color = AppConfig->Colors->Disabled;
	if (Prew != NULL) {
		TreeMenu->Selected = Prew;
	}
}
Beispiel #13
0
//---------------------------------------------------------------------------
void __fastcall TLocationProfilesDialog::RemoveBookmark(TObject * Sender)
{
  TBookmarkList * BookmarkList = GetBookmarkList(Sender);
  TTreeView * ProfilesView = GetProfilesView(Sender);
  TStringList * Folders = GetFolders(Sender);

  assert(ProfilesView->Selected);
  TTreeNode * Node = ProfilesView->Selected;
  if (Node->Data)
  {
    BookmarkList->Delete((TBookmark *)Node->Data);
    TTreeNode * ParentNode = Node->Parent;
    Node->Delete();
    if (ParentNode && !ParentNode->Count)
    {
      assert(Folders->IndexOfObject(ParentNode) >= 0);
      Folders->Delete(Folders->IndexOfObject(ParentNode));
      ParentNode->Delete();
    }
  }
  else
  {
    UnicodeString Message = MainInstructions(LoadStr(DELETE_BOOKMARK_FOLDER));
    if (MessageDialog(Message, qtConfirmation,
          qaYes | qaNo, HELP_LOCATION_PROFILE_DELETE) == qaYes)
    {
      assert(Node->Count);
      for (int i = 0; i < Node->Count; i++)
      {
        BookmarkList->Delete((TBookmark *)Node->Item[i]->Data);
      }
      assert(Folders->IndexOfObject(Node) >= 0);
      Folders->Delete(Folders->IndexOfObject(Node));
      Node->Delete();
    }
  }
  UpdateControls();
}
Beispiel #14
0
Fun TreeBreadthFirstTraverse(TTreeNode& tree_node, Fun func)
{
    ETreeTraverseCode stop_scan;

    stop_scan = func(tree_node);
    switch(stop_scan) {
        case eTreeTraverseStop:
        case eTreeTraverseStepOver:
            return func;
        case eTreeTraverse:
            break;
    } 

    if ( stop_scan )
        return func;

    TTreeNode* tr = &tree_node;
  
    typedef typename TTreeNode::TNodeList_I TTreeNodeIterator;

    TTreeNodeIterator it = tr->SubNodeBegin();
    TTreeNodeIterator it_end = tr->SubNodeEnd();

    if (it == it_end)
        return func;

    queue<TTreeNodeIterator> tree_queue;

    while (it != it_end) 
        tree_queue.push(it++);
 
    while (!tree_queue.empty()) {

        it = tree_queue.front(); // get oldest node on queue
        tr = *it;
        tree_queue.pop(); // take oldest node off
        stop_scan = eTreeTraverse;
        if (tr) {
            stop_scan = func(*tr);
            switch(stop_scan) {
                case eTreeTraverseStop:
                    return func;
                case eTreeTraverse:
                case eTreeTraverseStepOver:
                    break;
            }
        }
        // Add children (if any) of node to queue
        if (stop_scan != eTreeTraverseStepOver  &&  !tr->IsLeaf()) { 
            it = tr->SubNodeBegin();
            it_end = tr->SubNodeEnd();
            while (it != it_end)
                tree_queue.push(it++);
        }
    }
    return func;
}
//---------------------------------------------------------------------------
extern "C" int _export PASCAL UIShowFolderSelectorForm(void *reserved, char *buf)
{
	TFolderSelectorForm *form = new TFolderSelectorForm(Application);
	form->ShellTreeView->Path = buf; // initial directory
	if(form->ShellTreeView->Selected)
	{
		form->ShellTreeView->Selected->Expanded = true;
		TTreeNode * topnode = form->ShellTreeView->Selected;
		if(topnode->Count >= 1)
		{
			TTreeNode * longestitem = NULL;
			int longesttextsize = -1;
			for(int i = 0; i < topnode->Count; i++)
			{
				TTreeNode *subnode = topnode->Item[i];
				TRect rect = subnode->DisplayRect(true);
				if(rect.right > longesttextsize)
				{
					longesttextsize = rect.right;
					longestitem = topnode->Item[i];
				}
			}
			if(longestitem)
				longestitem->MakeVisible();

//		form->ShellTreeView->Selected->MakeVisible();
// 		INT min, max;
//		::GetScrollRange(form->ShellTreeView->Handle, SB_HORZ, &min, &max);
//		::SetScrollPos(form->ShellTreeView->Handle, SB_HORZ, max, true);
//		form->ShellTreeView->Selected->MakeVisible();
//		TreeView_EnsureVisible(form->ShellTreeView->Selected->Handle,
//			form->ShellTreeView->Selected->ItemId);
		}
		form->ShellTreeView->TopItem = topnode;
		topnode->MakeVisible();
	}

	int res = form->ShowModal();
	if(res == mrOk)
	{
		if(DirectoryExists(form->Selected))
		{
			form->Selected = IncludeTrailingBackslash(form->Selected);
		}
		strcpy(buf, form->Selected.c_str());
	}
	delete form;
	return res;
}
__fastcall TRelFolderSelectorForm::TRelFolderSelectorForm(TComponent* Owner)
	: TForm(Owner)
{
	ShellTreeView->Path = ExtractFileDir(ParamStr(0));

	// adjust components
	Label1->Left = SPACER;
	Label1->Top = SPACER;
	ShellComboBox->Left = SPACER;
	ShellComboBox->Top = SPACER + Label1->Height + 2;
	ShellComboBox->Width = ClientWidth - SPACER * 2;
	ShellTreeView->Left = SPACER;
	ShellTreeView->Top = ShellComboBox->Height + ShellComboBox->Top;
	ShellTreeView->Width = ClientWidth - SPACER * 2;
	OKButton->Top = ClientHeight - OKButton->Height - SPACER;
	CancelButton->Top = ClientHeight - CancelButton->Height - SPACER;
	OKButton->Left = ClientWidth - (StatusBar->Width + SPACER + CancelButton->Width
		+ SPACER + OKButton->Width);
	CancelButton->Left = ClientWidth - ( StatusBar->Width + SPACER + CancelButton->Width);
	ShellTreeView->Height = CancelButton->Top - SPACER - ShellTreeView->Top;

	if(ShellTreeView->Selected)
	{
		ShellTreeView->Selected->Expanded = true;
		TTreeNode * topnode = ShellTreeView->Selected;
		if(topnode->Count >= 1)
		{
			TTreeNode * longestitem = NULL;
			int longesttextsize = -1;
			for(int i = 0; i < topnode->Count; i++)
			{
				TTreeNode *subnode = topnode->Item[i];
				TRect rect = subnode->DisplayRect(true);
				if(rect.right > longesttextsize)
				{
					longesttextsize = rect.right;
					longestitem = topnode->Item[i];
				}
			}
			if(longestitem)
				longestitem->MakeVisible();
		}
		ShellTreeView->TopItem = topnode;
		topnode->MakeVisible();
	}

}
void __fastcall TBatchCollectDataThread::Execute()
{
	//---- Place thread code here ----
	ValidSBTN->Enabled = false;
	if(SerReceiveFunc&&SendAckFunc)
	{
/*		String filepathstr = GlobalPath+"\\StroeBatchDataFile.dat";
		hStoreToFile = CreateFile(filepathstr.t_str(),
								  GENERIC_READ | GENERIC_WRITE,
								  0,
								  NULL,
								  CREATE_ALWAYS,
								  FILE_ATTRIBUTE_NORMAL,
								  NULL);
		if(hStoreToFile)
		{      */
			errortag = false;
			*validcollecttag = true;
			ValidEBTN->Enabled = true;
			ModeOFCollect = 2;
			String CollectTime = "*CollectTime* ";
			CollectTime += Date();
			CollectTime += " ";
			CollectTime += Time();

			BatchDataSaveToFileStream<<endl<<CollectTime.t_str()<<endl;
			nodecount = ValidPosTreeList->Items->Count;
			currentcount = 0;

			ValidCProgressBar->Position = 0;
			TTreeNode* tmpnode = ValidPosTreeList->Items->GetFirstNode();
			while(tmpnode)
			{
            	errortag = false;
				poscollectedrecordcount = 0;
				if(!Terminated)
				{
					tmpnode->Data;
					POSPARA* tmppospara = (POSPARA*)(tmpnode->Data);
					if(4 == tmppospara->tag)
					{
						WORD ReceiveStatus = -1;
						WORD SynchroStatus = -1;
						char temp[10] = "";
						unsigned char como = (unsigned char)(tmppospara->comnum);
						PosNumber = tmppospara->posnum;
						WORD PosNO = (WORD)(tmppospara->posnum);
						unsigned char ReceiveCMD = 0x23;
						unsigned char SynchroCMD = 0x54;
						ZeroMemory(receivebuf, 2048);
						int receivelen = 2048;
						unsigned char* dir = "E:\\RAD\\2010-9-26\\Recieve";
						int dirlen = strlen(dir);

						UpdateDataBaseQuery->Close();
						UpdateDataBaseQuery->SQL->Clear();
						String tmpsql = "select * from SFJPARAM where JH=";
						tmpsql += tmppospara->posnum;
				   //		tmpsql += "'";
						UpdateDataBaseQuery->SQL->Add(tmpsql);
						UpdateDataBaseQuery->Open();
						Place = UpdateDataBaseQuery->FieldByName("STNAME")->AsAnsiString.Trim();
						UpdateDataBaseQuery->Close();

						int recordinpos = 0;
						WORD posstatus = -1;
						WORD poscomo = como;
						unsigned char statusCMD = 0x43;
						unsigned char statusbuf[16];
						ZeroMemory(statusbuf,16);
						int statuslen = 16;
						posstatus = SerReceiveFunc(poscomo, PosNO, statusCMD, statusbuf, statuslen, 1, dir, dirlen);
						if(0 == posstatus)
						{
							int lowptr = 256*(int)statusbuf[0] + (int)statusbuf[1];
							int highptr = 256*(int)statusbuf[2] + (int)statusbuf[3];
							if(highptr >= lowptr)
							{
								recordinpos = highptr - lowptr;
							}
							else
							{
								recordinpos = highptr + 6576 - lowptr;
							}
							posallrecordcount = recordinpos;
						}
						else
						{
							tmpnode->Text = "POS机异常";
							tmpnode = tmpnode->GetNext();
							currentcount++;
							continue;
						}

						tmpcaptionstr = "正在采集";
						tmpcaptionstr += tmppospara->posnum;
						tmpcaptionstr += "号机,位于:";
						tmpcaptionstr += Place;
						tmpcaptionstr += ",该POS机含有消费记录";
						tmpcaptionstr += recordinpos;
						tmpcaptionstr += "条。";
						ValidInfoPanel->Caption = tmpcaptionstr;
						bool continued = true;
						DisplayCollectingFunc();
						while(continued)
						{
							if(!Terminated)
							{
								ReceiveStatus = SerReceiveFunc(como, PosNO, ReceiveCMD, receivebuf, receivelen, 1, dir, dirlen);
								if(0 == ReceiveStatus)
								{
									SynchroStatus = SendAckFunc(como, SynchroCMD);
									if(0 == SynchroStatus)
									{
									//	for(int i = 0; i < 2048; i++)
									//		BatchDataSaveToFileStream<<receivebuf[i];
										if((0x00 == receivebuf[10])&&(0x00 == receivebuf[11]))
											continued = false;
										if(0x00 != receivebuf[8])
										{
											Synchronize(AnalyzeDataFunc);
										}
										CollectOverStautsStr = "已完成批量数据采集!";
									}
								//	else
								//	{
								//		MessageBox(SDIAppForm->Handle, "Sysc error", "error", MB_OK|MB_ICONERROR);
								//	}
								}
								else
								{
									continued = false;
									CollectOverStautsStr = "POS机通信异常,采集数据不完整!";
									errortag = true;
								}
								Sleep(100);
							}
							else
							{
								continued = false;
								*validcollecttag = false;
								ModeOFCollect = 0;
								CloseHandle(hStoreToFile);
						  //		ValidStoreBtn->Enabled = true;
								ValidEBTN->Enabled = true;
						  //		if(BatchDataSaveToFileStream)
						  //			BatchDataSaveToFileStream.close();
								BatchCollectFRM->Close();
								ValidSBTN->Enabled = true;
								return;
							}
						}
						DisplayEndCollectFunc();
					}
				}
				else
				{
					*validcollecttag = false;
					ModeOFCollect = 0;
			   //		CloseHandle(hStoreToFile);
			   //		ValidStoreBtn->Enabled = true;
					ValidEBTN->Enabled = true;
			   //		if(BatchDataSaveToFileStream)
			   //			BatchDataSaveToFileStream.close();
					BatchCollectFRM->Close();
					ValidSBTN->Enabled = true;
					return;
				}
				tmpnode = tmpnode->GetNext();
				currentcount++;
				ValidCProgressBar->Position = currentcount*100/nodecount;
			}
			*validcollecttag = false;
	   //		CloseHandle(hStoreToFile);
	   //		ValidStoreBtn->Enabled = true;
			ValidEBTN->Enabled = true;
	   //		if(BatchDataSaveToFileStream)
	   //			BatchDataSaveToFileStream.close();
	   		ValidCProgressBar->Position = 100;
			if(!errortag)
			{
				ValidInfoPanel->Caption = "数据采集完毕!";
				MessageBox(SDIAppForm->Handle, "数据采集完毕!", "采集完毕", MB_OK);
			}
			else
			{
				ValidInfoPanel->Caption = "数据采集过程中出现通信异常,部分数据采集不成功,可以通过重新采集修补!";
				MessageBox(SDIAppForm->Handle, "数据采集过程中出现通信异常,部分数据采集不成功,可以通过重新采集修补!", "采集不完整", MB_OK|MB_ICONERROR);
			}

	   /*		if(mrOk == MessageBox(SDIAppForm->Handle, "数据采集完毕,是否进行数据入库?", "采集完毕", MB_OKCANCEL|MB_ICONQUESTION))
            	ValidStoreBtn->Click();
            else
            {
                ValidCProgressBar->Properties->Marquee = false;
			}         */

/*		}
		else
		{
			MessageBox(SDIAppForm->Handle, "无法创建数据存储文件,请联系技术人员!", "Error", MB_OK|MB_ICONERROR);
	   //		if(BatchDataSaveToFileStream)
	   //			BatchDataSaveToFileStream.close();
			*validcollecttag = false;
			ModeOFCollect = 0;
			return;
		}         */
	}
	else
	{
		*validcollecttag = false;
		ModeOFCollect = 0;
		if(BatchDataSaveToFileStream)
			BatchDataSaveToFileStream.close();
		MessageBox(SDIAppForm->Handle, "Error in Load SerReceiveFunc Or SendAckFunc!", "Error", MB_OK|MB_ICONERROR);
	}
	ValidSBTN->Enabled = true;
}
void TestTreeFunction()
{
	TestData data[] = {
		{ 0, "/" },
		{ 1, "home" },
		{ 2, "usr" },
		{ 3, "var" },
		{ 4, "user" },
		{ 5, "muggle" },
		{ 6, "bin" },
		{ 7, "include" },
		{ 8, "local" },
		{ 9, "lib" },
		{ 10, "sbin" },
		{ 11, "src" },
	};

	// init
	TTreeNode<TestData>* root = TTreeNode<TestData>::Create(data[0]);
	TTreeNode<TestData>* home = root->AddChild(TTreeNode<TestData>::Create(data[1]));
	TTreeNode<TestData>* usr = root->AddChild(TTreeNode<TestData>::Create(data[2]));
	root->AddChild(TTreeNode<TestData>::Create(data[3]));
	home->AddChild(TTreeNode<TestData>::Create(data[4]));
	home->AddChild(TTreeNode<TestData>::Create(data[5]));
	usr->AddChild(TTreeNode<TestData>::Create(data[6]));
	usr->AddChild(TTreeNode<TestData>::Create(data[7]));
	TTreeNode<TestData>* local = usr->AddChild(TTreeNode<TestData>::Create(data[8]));
	local->AddChild(TTreeNode<TestData>::Create(data[9]));
	local->AddChild(TTreeNode<TestData>::Create(data[10]));
	local->AddChild(TTreeNode<TestData>::Create(data[11]));

	TTreeNode<TestData>* copy_root = TTreeNode<TestData>::Create(*root);

	TestTNodeFunction(root);
	TestTTreeFunction(copy_root);
}
//---------------------------------------------------------------------------
void __fastcall TCollectDataWOThread::Execute()
{
	//---- Place thread code here ----
	if(SerReceiveFunc&&SendAckFunc)
	{
    	String filepathstr = GlobalPath+"\\StoreRealCWOIBData.dat";
		hStoreToFile = CreateFile(filepathstr.t_str(),
								  GENERIC_READ | GENERIC_WRITE,
								  0,
								  NULL,
								  CREATE_ALWAYS,
								  FILE_ATTRIBUTE_NORMAL,
								  NULL);
        if(!hStoreToFile)
        {
            MessageBox(SDIAppForm->Handle, "无法创建数据存储文件,请联系技术人员!", "Error", MB_OK|MB_ICONERROR);
			*validcollecttag = false;
			ModeOFCollect = 0;
			return;
        }

		ValidLostInfoT->Active = false;
		ValidLostInfoT->Active = true;
		ValidLostInfoT->First();

		*validcollecttag = true;
		ModeOFCollect = 5;
		String CollectTime = "*CollectTime* ";
		CollectTime += Date();
		CollectTime += " ";
		CollectTime += Time();

//		DataSaveToFileStream<<endl<<CollectTime.t_str()<<endl;

		TTreeNode* tmpnode = ValidPosTreeList->Items->GetFirstNode();
		while(tmpnode)
		{
			if(!Terminated)
			{
				tmpnode->Data;
				POSPARA* tmppospara = (POSPARA*)(tmpnode->Data);
				if(4 == tmppospara->tag)
				{
					WORD ReceiveStatus = -1;
					WORD SynchroStatus = -1;
					char temp[10] = "";
					unsigned char como = (unsigned char)(tmppospara->comnum);
					WORD PosNO = (WORD)(tmppospara->posnum);
					unsigned char ReceiveCMD = 0x25;
					unsigned char SynchroCMD = 0x54;
					ZeroMemory(receivebuf, 16);
					int receivelen = 16;
					unsigned char* dir = "E:\\RAD\\2010-9-26\\Recieve";
					int dirlen = strlen(dir);

			 //		unsigned char* SynchroTagbuf = new unsigned char[300];
			 //		ZeroMemory(SynchroTagbuf, *ONLinePosNum);

					String comparestr = "FFFFFF";

			 /*		UpdateDataBaseQuery->Close();
					UpdateDataBaseQuery->SQL->Clear();
					String tmpsql = "select * from SFJPARAM where JH='";
					tmpsql += tmppospara->posnum;
					tmpsql += "'";
					UpdateDataBaseQuery->SQL->Add(tmpsql);
					UpdateDataBaseQuery->Open();
					Place = UpdateDataBaseQuery->FieldByName("STNAME")->AsAnsiString.Trim();
					UpdateDataBaseQuery->Close();    */

					if(!Terminated)
					{
						ReceiveStatus = SerReceiveFunc(como, PosNO, ReceiveCMD, receivebuf, receivelen, 1, dir, dirlen);
						if(0 == ReceiveStatus)
						{
							SynchroStatus = SendAckFunc(como, SynchroCMD);
							if(0 == SynchroStatus)
							{
								OrignalDataStr = "";
								for (int i = 0; i < receivelen; i++)
								{
									OrignalDataStr = OrignalDataStr + (IntToHex((byte)receivebuf[i], 2));
								}

								if(comparestr != OrignalDataStr.SubString(0, 6))
								{
									PosNumber = PosNO;
									DataStatusStr = "正常";
									Synchronize(SaveDataToFileFunc);
								//	Synchronize(UpdateDataBaseFunc);
									Synchronize(DisplayDataFunc);
								}
							}
							Sleep(50);
						}

						//挂失一条
						if(ValidGSTag)
						{
							int GSkh;
							unsigned char SendStr[3];
							int Strlen = 3;
							unsigned char status;
							unsigned char port;
							WORD pos;
							unsigned char CMD;

							if(!ValidLostInfoT->Eof)
							{
								GSkh = ValidLostInfoT->FieldByName("PARA")->AsInteger;
								SendStr[0] = (unsigned char)(GSkh/65536);
								SendStr[1] = (unsigned char)((GSkh%65536)/256);
								SendStr[2] = (unsigned char)GSkh;
								port = (unsigned char)(ValidLostInfoT->FieldByName("SFJPORT")->AsInteger);
								pos = WORD(ValidLostInfoT->FieldByName("SFJID")->AsInteger);

								if(1 == ValidLostInfoT->FieldByName("CMD")->AsInteger)
								{
									CMD = 0x33;
									status = SerSendFunc(port, pos, CMD, SendStr, Strlen, 1);
									if(0 == status)
									{
										ValidLostInfoT->Delete();
								   //		ValidLostInfoT->Next();
									}
									else
										ValidLostInfoT->Next();
								}
								else if(2 == ValidLostInfoT->FieldByName("CMD")->AsInteger)
								{
									CMD = 0x38;
									status = SerSendFunc(port, pos, CMD, SendStr, Strlen, 1);
									if(0 == status)
									{
										ValidLostInfoT->Delete();
									//	ValidLostInfoT->Next();
									}
									else
										ValidLostInfoT->Next();
								}
								Sleep(50);
							}
						}
					}
					else
					{
						*validcollecttag = false;
						ModeOFCollect = 0;

                        ValidCProgressBar->Properties->Marquee = false;

				  //		if(DataSaveToFileStream)
				  //			DataSaveToFileStream.close();
				  ///		RealTimeCollectFRM->Close();
						return;
					}
				}
			}
			else
			{
				*validcollecttag = false;
				ModeOFCollect = 0;
		   //		if(DataSaveToFileStream)
		   //			DataSaveToFileStream.close();
				RealTimeCollectFRM->Close();
				return;
			}
			tmpnode = tmpnode->GetNext();
			if(!tmpnode)
				tmpnode = ValidPosTreeList->Items->GetFirstNode();
		}
	}
	else
	{
		*validcollecttag = false;
		ModeOFCollect = 0;
	//	if(DataSaveToFileStream)
	//		DataSaveToFileStream.close();
		MessageBox(SDIAppForm->Handle, "Error in Load SerReceiveFunc Or SendAckFunc!", "Error", MB_OK);
	}
}
Beispiel #20
0
Fun TreeDepthFirstTraverse(TTreeNode& tree_node, Fun func)
{
    int delta_level = 0;
    ETreeTraverseCode stop_scan;

    stop_scan = func(tree_node, delta_level);
    switch (stop_scan) {
        case eTreeTraverseStop:
        case eTreeTraverseStepOver:
            return func;
        case eTreeTraverse:
            break;
    }

    if (stop_scan)
        return func;

    delta_level = 1;
    TTreeNode* tr = &tree_node;

    typedef typename TTreeNode::TNodeList_I TTreeNodeIterator;

    TTreeNodeIterator it = tr->SubNodeBegin();
    TTreeNodeIterator it_end = tr->SubNodeEnd();

    if (it == it_end)
        return func;

    stack<TTreeNodeIterator> tree_stack;

    while (true) {
        tr = (TTreeNode*)*it;
        stop_scan = eTreeTraverse;
        if (tr) {
            stop_scan = func(*tr, delta_level);
            switch (stop_scan) {
                case eTreeTraverseStop:
                    return func;
                case eTreeTraverse:
                case eTreeTraverseStepOver:
                    break;
            }
        }
        if ( (stop_scan != eTreeTraverseStepOver) &&
             (delta_level >= 0) && 
             (!tr->IsLeaf())) {  // sub-node, going down
            tree_stack.push(it);
            it = tr->SubNodeBegin();
            it_end = tr->SubNodeEnd();
            delta_level = 1;
            continue;
        }
        ++it;
        if (it == it_end) { // end of level, going up
            if (tree_stack.empty()) {
                break;
            }
            it = tree_stack.top();
            tree_stack.pop();
            tr = (TTreeNode*)*it;
            it_end = tr->GetParent()->SubNodeEnd();
            delta_level = -1;
            continue;
        }
        // same level 
        delta_level = 0;

    } // while

    func(tree_node, -1);
    return func;
}