线程传参求助~~~~~~~

dkslel

[e]

.版本 2
.支持库 iext2
.支持库 spec

               
.计次循环首 (邮件地址编辑框.取行数 (),
循环计次)
                    
邮件地址2 ＝ 邮件地址编辑框.取行文本 (循环计次 －
1)
                    
调试输出
(邮件地址2)
                    
启动线程 (&邮件发送, , )

                    
‘线程_等待 (线程_启动 (&邮件发送, ),
5000)
                    
’延时
(3000)
               
.计次循环尾 ()

[/e]
我是要写个邮件群|发的软件,现在就到了这里卡住了,这个邮件发送传送的参数是 邮件地址2 这个变量,邮箱是按行来区分,调试输出邮件地址2这个变量 取出来的数据没有任何问题,但是到了发送的时候会连续将最后一行的邮箱地址发送 邮件地址编辑框.取行数() 遍,我很奇怪，为啥不是每个数据挨个发送  而是发的最后一个呢,有哪位大犇给说说是啥情况呗,用线程等待也没辙。。。。。   


补充内容 (2012-2-20 19:47):
.版本 2
.支持库 iext2
.支持库 spec
.支持库 EThread

                .计次循环首 (邮件地址编辑框.取行数 (), 循环计次)
                    邮件地址2 ＝ 邮件地址编辑框.取行文本 (循环计次 － 1)
                    调试输出 (邮件地址2)
                    启动线程 (&邮件发送, , )

                    ' 线程_等待 (线程_启动 (&邮件发送, ), 5000)
                    ' 延时 (3000)
                .计次循环尾 ()


补充内容 (2012-2-20 19:47):
.版本 2
.支持库 iext2
.支持库 spec
.支持库 EThread

                .计次循环首 (邮件地址编辑框.取行数 (), 循环计次)
                    邮件地址2 ＝ 邮件地址编辑框.取行文本 (循环计次 － 1)
                    调试输出 (邮件地址2)
                    启动线程 (&邮件发送, , )

                    ' 线程_等待 (线程_启动 (&邮件发送, ), 5000)
                    ' 延时 (3000)
                .计次循环尾 ()


补充内容 (2012-2-21 17:19):
卡死问题自己解决了,现在最后一个问题   怎么判定线程的结束。。。 我想要十个线程并发时  判定运行完成   然后再运行十个线程。。

ekO

dkslel 发表于 2012-2-21 19:25
我已经通过列表框保存数据解决这个问题了,就是有个重要情况想问下     程序里一用上延时就得程序卡死,有啥 ...

用延迟 就不卡了·  跟延时一样

dkslel

{:3_233:}大家帮帮忙啊,我现在写的是将数据拿出来  写到选择列表框里  然后从选择列表框一个一个来取了   发送是能发送了,就是需要卡好一段时间   一直需要等到全部发送完成了才会好,各位有没有啥好方法不让他卡死的。。。

xb1314521

传参写入内存,再到线程下取出你要的数据,分割

dkslel

xb1314521 发表于 2012-2-21 17:19
传参写入内存,再到线程下取出你要的数据,分割

我已经通过列表框保存数据解决这个问题了,就是有个重要情况想问下     程序里一用上延时就得程序卡死,有啥能代替的不   就是想间隔一段时间再执行。。。

大家好呵呵

那份  走人、

ekO

用延迟 就不卡了 {:3_244:}