两个应用程序同时访问一个硬件会不会起冲突？ 找南京速达财务软件
仓库管理软件版1楼: 我有两个应用程序同时随WINDOWS启动,在程序初试化时都会访问同一硬件,请问这会不会引起冲突？如果关闭其中一个应用程序,会不会引起另一个应用程序出错？我现在这两个程序有时一个会死机,不知道是不是硬件问题带来的.下面是对硬件的初试化和关闭.两个程序对硬件采用一样的初试化和关闭代码.
function tpciForm1.comminitialize:bool;
var
pdevicename:pchar;
data:integer;
begin
pdevicename:=＇＇＼＼.＼MYCARDDevice0＇＇;
pdo:=CreateFile(pdevicename,
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ,
nil,
OPEN_EXISTING,
0,
0);
if pdo=invalid_handle_value then
begin
Result:=False;
label21.Caption:=＇＇没有装入驱动程序＇＇;
exit;
end;
Readfile(pdo,Read_Buffer,4,iReaden,nil);
data:=byte(read_buffer[1]);
data:=data div 8;
if data=31 then
begin
Result:=False;
label21.Caption:=＇＇硬件装入不正确，请重新安装！＇＇;
exit;
end;
card_num:=data;
result:=true;
end;
function tpciForm1.closedevice:bool;
begin
closehandle(pdo);
result:=true;
end;
只有50分了..
function tpciForm1.comminitialize:bool;
var
pdevicename:pchar;
data:integer;
begin
pdevicename:=＇＇＼＼.＼MYCARDDevice0＇＇;
pdo:=CreateFile(pdevicename,
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ,
nil,
OPEN_EXISTING,
0,
0);
if pdo=invalid_handle_value then
begin
Result:=False;
label21.Caption:=＇＇没有装入驱动程序＇＇;
exit;
end;
Readfile(pdo,Read_Buffer,4,iReaden,nil);
data:=byte(read_buffer[1]);
data:=data div 8;
if data=31 then
begin
Result:=False;
label21.Caption:=＇＇硬件装入不正确，请重新安装！＇＇;
exit;
end;
card_num:=data;
result:=true;
end;
function tpciForm1.closedevice:bool;
begin
closehandle(pdo);
result:=true;
end;
只有50分了..
2楼: 不了解，帮你顶 如南京速达财务软件
3楼: 个人认为这个应该是操作系统来帮我们调度
程序不用关心
4楼: 如果你的硬件本身不支持并行处理，建议增加全局呼哧两，这样就不会冲突了
5楼: 跟你的硬件有关，如果是标准硬件如硬盘、光驱等，windows 是允许并行处理的。
6楼: 谢谢大家!放分!不知道分数是不是支持小数点.
仓库管理软件版7楼: 没放成功,重新放!
联系我们
