MyException - 我的异常网
当前位置:我的异常网» Delphi » 有一个线程的有关问题,请问

有一个线程的有关问题,请问

www.MyException.Cn  网友分享于:2013-02-18  浏览:10次
有一个线程的问题,请教
我在一个form中定义了一个public的myDBTable
并且我在form创建的时候,给它赋值了。

然后我想在一个线程中使用,结果无法访问。请教原因

定义部分

public
  myDBTable,myDBTable1:TDAMemDataTable; //就是要用这个myDBTable
  yjbh,Waittime1:integer;
  yjmc:string;
  yjdx,yjfs:Integer;
  function NeedSave : boolean; override;
  { Public declarations }
  end;

var
  EXPERIForm: TEXPERIForm;
  hloopHandle:Thandle ; //线程 句柄
  dloopThreadID:DWORD ; //线程 id
  CS:TRTLCriticalSection;
  lpHandles:Thandle;
  lpTheradID:DWORD;



线程部分:

//线程处理函数一
procedure doloop(P:pointer);stdcall;
var
  i:Integer;
begin
  with EXPERIForm.myDBTable do begin //这一句报错,无法访问
  while not eof do begin
  EnterCriticalSection(CS);
  Sleep(25);
  try
  if (EXPERIForm.yjmc<>fieldbyName('yjmc').AsString) or
  (EXPERIForm.yjbh<>fieldbyName('yjbh').AsInteger) or
  (EXPERIForm.yjdx<>fieldbyName('yjdx').AsInteger) or
  (EXPERIForm.yjfs<>fieldbyName('yjfs').AsInteger) then begin

  EXPERIForm.yjmc:=fieldbyName('yjmc').AsString; //元件名称
  EXPERIForm.yjbh:=fieldbyName('yjbh').AsInteger; //元件编号
  EXPERIForm.yjdx:=fieldbyName('yjdx').AsInteger; //元件字节长度
  EXPERIForm.yjfs:=fieldbyName('yjfs').AsInteger; //操作方式
  end;

  if COM_ReadFromPLC(EXPERIForm.yjmc,EXPERIForm.yjbh,EXPERIForm.yjdx,EXPERIForm.yjfs)then begin
  Next;
  end;
  Sleep(15);
  finally
  LeaveCriticalSection(CS);
  end;
  end;
  end;
end;


谢谢

------解决方案--------------------
移动一下位置:
var
  
myDBTable,myDBTable1:TDAMemDataTable; //就是要用这个myDBTable
------解决方案--------------------
在线程内定义一个变量x:TDAMemDataTable,创建线程时就传myDBTable进去赋值给X; x:=myDBTable
------解决方案--------------------
唉~3L太勤奋了,问题都被乃回答光了 *_*
------解决方案--------------------
你的主线程和子线程定义的变量生命周期和作用域是不同的,想使用的话如3L传进去
------解决方案--------------------
EXPERIForm 没有初赋值,当然没有办法访问了。
------解决方案--------------------
EnterCriticalSection(CS);
这句应该提到徇环外面,执行一次就够了。
------解决方案--------------------
Delphi(Pascal) code
function CreateThread(
  lpThreadAttributes: Pointer;           {安全设置}
  dwStackSize: DWORD;                    {堆栈大小}
  lpStartAddress: TFNThreadStartRoutine; {入口函数}
  lpParameter: Pointer;                  {函数参数}
  dwCreationFlags: DWORD;                {启动选项}
  var lpThreadId: DWORD                  {输出线程 ID }
): THandle; stdcall;                     {返回线程句柄}

------解决方案--------------------
其实线程调用一般函数没有问题,但是你要搞清楚调用的东西是否与线程相关。像基于com的一些控件,调用他们的函数时就会出错。
sleep函数与线程没有什么关系吧,我经常那么用的。
------解决方案--------------------
建议还是用继承TThread方式建立新线程类吧,如果sleep报错的话是不是没有调用sysutils单元的原因导致的。

文章评论

程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
编程语言是女人
编程语言是女人
程序员的鄙视链
程序员的鄙视链
旅行,写作,编程
旅行,写作,编程
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
一个程序员的时间管理
一个程序员的时间管理
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
程序员必看的十大电影
程序员必看的十大电影
代码女神横空出世
代码女神横空出世
如何成为一名黑客
如何成为一名黑客
我是如何打败拖延症的
我是如何打败拖延症的
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
漫画:程序员的工作
漫画:程序员的工作
我的丈夫是个程序员
我的丈夫是个程序员
程序员都该阅读的书
程序员都该阅读的书
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
总结2014中国互联网十大段子
总结2014中国互联网十大段子
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
中美印日四国程序员比较
中美印日四国程序员比较
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
那些争议最大的编程观点
那些争议最大的编程观点
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
程序员和编码员之间的区别
程序员和编码员之间的区别
每天工作4小时的程序员
每天工作4小时的程序员
 程序员的样子
程序员的样子
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
老程序员的下场
老程序员的下场
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
鲜为人知的编程真相
鲜为人知的编程真相
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
程序员应该关注的一些事儿
程序员应该关注的一些事儿
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有