threads和OLE如何共存

larrykun

UID: 36370
帖子: 123
积分: 282
在线时间: 20 小时

1^# larrykun 发表于 2007-12-07 20:10

threads和OLE如何共存

由于程序中需要使用OLE，但是OLE好像不是线程安全的，只要引入OLE在线程释放的时候就会报错
请问各位老大如何在多线程环境中使用OLE？

#!/usr/bin/env perl

use threads;
use Win32::OLE;

sub sub1
{
    $a = 0;
    for (my $I = 0; $I < 100; $I++)
    {
        print "is $I\n";
    }
    1;
}

my @ThrdList = ();
my $thrd = threads->create(\&sub1);

push(@ThrdList, $thrd);
foreach my $thrd (@ThrdList)
{
    print "Wait for\n";
    $thrd->join();
    print "Wait ok\n";
}

print "Exit ok";

soichiro

UID: 33959
帖子: 35
积分: 80
在线时间: 1 小时

2^# soichiro 发表于 2007-12-07 22:22

很多模块都不是线程安全的，遇到这种情况就改用子进程。

larrykun

UID: 36370
帖子: 123
积分: 282
在线时间: 20 小时

3^# larrykun 发表于 2007-12-22 16:32

能给个子进程的例子吗?

3chi01

UID: 26647
帖子: 109
积分: 250
在线时间: 16 小时

4^# 3chi01 发表于 2008-09-15 15:56

QUOTE:

原帖由 larrykun 于 2007-12-22 16:32 发表
能给个子进程的例子吗?

同样的问题，哪位老师能给一个子进程的例子？谢谢！

我开了一个新线程用来启动ie（ole），想不到出现了ole相关的错误。在论坛中搜索没有找到答案呀。

QUOTE:

Thread 1 terminated abnormally: Could not start Internet Explorer Application through OLE

3chi01

UID: 26647
帖子: 109
积分: 250
在线时间: 16 小时

5^# 3chi01 发表于 2008-09-15 18:04

QUOTE:

use Win32::OLE;

my $pid = fork;
if ($pid){
print "it\'s child process\n";}
else{
print "parent process\n";
my $IE = Win32::OLE->new("InternetExplorer.Application")
or die "Could not start Internet Explorer.Application\n";
$IE->{visible} = 1;
$IE->Navigate("http://www.chinaunix.com");
}
kill $pid;

进程是这样的吗？请各位指点，期待中。。。。

出错信息如下：

QUOTE:

perl command line interpreter 遇到问题须要关闭。。。

dalian_gq

UID: 12362
帖子: 187
积分: 430
在线时间: 1 天 23 小时

6^# dalian_gq 发表于 2008-09-16 14:46

没有人知道么？我也没弄懂这个问题。关注中...

Rob

UID: 8208
帖子: 75
积分: 172
在线时间: 8 小时

7^# Rob 发表于 2008-09-17 00:05

对于非线程安全模块可以试着放入子线程内加载，尤其是XS模块。
http://perldoc.perl.org/threads.html#BUGS-AND-LIMITATIONS
如下例：

[Copy to clipboard] [ - ]

CODE:

use 5.008;
use threads;

threads->create('worker')->join;

sub worker
{
eval 'use Win32::OLE';

my $IE = Win32::OLE->new("InternetExplorer.Application")
or die "Could not start Internet Explorer.Application\n";
$IE->{visible} = 1;
$IE->Navigate("http://www.chinaunix.com");
}

1;
__END__

3chi01

UID: 26647
帖子: 109
积分: 250
在线时间: 16 小时

8^# 3chi01 发表于 2008-09-17 12:22

万分感激ROB大侠的精彩指点！
真的好用，仔细研究一下。再次感谢。