多次重绘表格时出错

[mmfeng]

我用Indy的IdTCPClient 向 IdTCPServer 发送数据过去，然后想在IdTCPServer所在的机器向数据服务器插入发过来的数据，并刷新一下DBGrid上的数据，用ADOQuery1->Close和Open刷新。发一条二条没有问题，发送多条后，表格的列慢慢变形，最后出现下面这个图：

请问用什么方法可以让它不出错呢？

这个是代码：

String swp;

try
	{
	AContext->Connection->IOHandler->CheckForDisconnect(True,True);
	AContext->Connection->IOHandler->DefStringEncoding=TEncoding::Default;
	swp=AContext->Connection->IOHandler->ReadLn();
	if(swp!="")
	AContext->Connection->IOHandler->WriteLn("服务器已经收到您发来的信息："+swp);
	Memo1->Lines->Add(UTF8Encode(swp));



	//ShowMessage(swp);
	TBookmark yqw_BM;
   yqw_BM=ADOQuery1->GetBookmark();

   TADOQuery *pado=new TADOQuery(NULL);
   pado->Connection=this->ADOConnection1;
   String testSql="INSERT INTO hlfloor.dbo.DF_PF_D(  \
			DF_PF_M_CODE,DF_PF_M_TYPE, DF_PF_D_XH,NEED_FL)  values (  \
			'test','2',2, '√')";

   pado->SQL->Add(testSql);

	pado->ExecSQL();
	delete pado;
        ADOQuery1->Close();
	ADOQuery1->Open();
/*
    TBookmark yqw_BM;  // 做标记,使当前记录不移动
     yqw_BM = ADOQuery1->GetBookmark();
	
  if(ADOQuery1->BookmarkValid(yqw_BM))
  {
	ADOQuery1->GotoBookmark(yqw_BM);
  }
  ADOQuery1->FreeBookmark(yqw_BM);

*/

   //	AContext->Connection->IOHandler->writel
  //return;
	}
catch(...)
{

}

[mmfeng]

引用 1 楼 dataxdata 的回复:

看错误应该是显示的时候出的问题，是不是在线程中忘加synchronize函数了？

是显示问题。查了Indy10的资料，不知TIdSync::SynchronizeMethod()怎么用，修改了很多次仍是出错，请问一下 TIdSync::SynchronizeMethod()怎么用法？

[缘中人]

应该是写个显示的方法，然后在SynchronizeMethod里调用

[mmfeng]

终于搞好了。 原来要先加这一句：#include <idsync.hpp> 然后按定义ksrsoft 说的写一个方法：refreshDB，最后在Indy的服务器端加上这句 TIdSync::SynchronizeMethod(refreshDB); 就OK了。谢谢ksrsft. 原来想着搞不好的话就用Timer()不断地刷新数据，我这儿人民医院的那个等侯排队取药的显示屏就是这样，不断刷新的方法来刷新取药人的姓名的，因我去看病时看到屏是不断地有规律的闪的，我想，这么多个取药的窗口那么多台电脑，不停地刷，服务器的负担不重么？

[dataxdata]

看错误应该是显示的时候出的问题，是不是在线程中忘加synchronize函数了？