简单问题，正解即结贴

tiantian1980 2009-09-13 10:07:06
由于各种原因用inet上传太慢，为使Picture1_DblClick能正常执行下来，不受inet传太慢的影响，使其上传部分在后台执行，成功上传到服务器上后完毕。考虑过多线程，但多线程vb中实现比较难，用Timer应也可以。但不怎么知道传成功后让Timer1_Timer事件不执行。请高手帮帮忙！
  Private Sub Picture1_DblClick()

 ……………………………………

'这里原本是放上传程序的，想把它移出，在后台执行

  'Timer1.Enabled = True        '激活时间控件

  'Timer1.Interval = 1000

  Unload Me

End Sub





Private Sub Timer1_Timer()

  'Path = "c:\screenShot.jpg"

  S_Path = Format(Date, "YYYYMMDD") & Format(Time(), "HHMMSS") & ".jpg"

  '上传截图到服务器上

      Inet1.URL = "ftp://222.73.228.17"

      Inet1.Protocol = icFTP

      'Inet1.RemoteHost = "222.73.228.17"

      Inet1.RemotePort = 21

      Inet1.UserName = "scr"

      Inet1.Password = "*****"

      Inet1.Execute , "PUT " & Path & " " & S_Path

      right1 = Inet1.StillExecuting

      Do While right1

           right1 = Inet1.StillExecuting

           DoEvents

      Loop

End Sub
...全文
144 28 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
28 条回复
切换为时间正序
请发表友善的回复…
发表回复
fengfeng28 2009-09-14
  • 打赏
  • 举报
 回复
多放两个TIMER控件
king06 2009-09-14
  • 打赏
  • 举报
 回复
定义一个变量来检查。
嗷嗷叫的老马 2009-09-14
  • 打赏
  • 举报
 回复
那就多线程,嘿嘿.

如何在VB6里面实现稳定的多线程
tiantian1980 2009-09-13
  • 打赏
  • 举报
 回复
猜path不应该注释掉
Private Sub Timer1_Timer()
'Path = "c:\screenShot.jpg"
——————————————
在实际运行中我没有注释掉
jhone99 2009-09-13
  • 打赏
  • 举报
 回复
[Quote=引用 13 楼 tiantian1980 的回复:]
上传代码移到Timer1_Time（）后，不知什么原因现在图片根本传不到服务器上去了，急急急
[/Quote]

猜path不应该注释掉
Private Sub Timer1_Timer()
'Path = "c:\screenShot.jpg"
tiantian1980 2009-09-13
  • 打赏
  • 举报
 回复
上传代码移到Timer1_Time（）后，不知什么原因现在图片根本传不到服务器上去了，急急急
jhone99 2009-09-13
  • 打赏
  • 举报
 回复
[Quote=引用 11 楼 tiantian1980 的回复:]
其实是这两张图（图片是一样的）一张是存在本地的就是'Path = "c:\screenShot.jpg"，然后把本地的这个图传到服务器上去，到服务器上不能叫相同的名字，所以就有screenShot.jpg这张图按时间重命名后再传到服务器上。我再想了一下S_Path = Format(Date, "YYYYMMDD") & Format(Time(), "HHMMSS") & ".jpg"放在Tim¡­
[/Quote]

这么说碰上什么时间都可以，就没有顾虑了
tiantian1980 2009-09-13
  • 打赏
  • 举报
 回复
其实是这两张图（图片是一样的）一张是存在本地的就是'Path = "c:\screenShot.jpg"，然后把本地的这个图传到服务器上去，到服务器上不能叫相同的名字，所以就有screenShot.jpg这张图按时间重命名后再传到服务器上。我再想了一下S_Path = Format(Date, "YYYYMMDD") & Format(Time(), "HHMMSS") & ".jpg"放在Timer1_Time（）里没有问题的
jhone99 2009-09-13
  • 打赏
  • 举报
 回复
[Quote=引用 8 楼 tiantian1980 的回复:]
有一个问题，就是如果上传要5秒，没有在1秒内上传到服务器，也就是过了一秒后，此时没上传完会执行Timer1_Time（）里面的事件吗？
[/Quote]

这个没看懂
jhone99 2009-09-13
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 tiantian1980 的回复:]
谢谢jhone99的提醒
————————————————————————
我把S_Path = Format(Date, "YYYYMMDD") & Format(Time(), "HHMMSS") & ".jpg" 这一句移到Picture1_DblClick()
里应没别的问题了，是吗？

[/Quote]

我不清楚你的图片文件名和timer触发时间是否有关系，看你的代码是有关联的，这样移到Picture1_DblClick()可能需要一些处理，其实在timer里做一些适当处理应该可以，date、time和图片名什么关系？

tiantian1980 2009-09-13
  • 打赏
  • 举报
 回复
有一个问题，就是如果上传要5秒，没有在1秒内上传到服务器，也就是过了一秒后，此时没上传完会执行Timer1_Time（）里面的事件吗？
tiantian1980 2009-09-13
  • 打赏
  • 举报
 回复
谢谢jhone99的提醒
————————————————————————
我把S_Path = Format(Date, "YYYYMMDD") & Format(Time(), "HHMMSS") & ".jpg" 这一句移到Picture1_DblClick()
里应没别的问题了，是吗？
jhone99 2009-09-13
  • 打赏
  • 举报
 回复
lz的逻辑貌似有点混乱，看代码好像每次timer触发发送的是不一样的图片，传成功后timer不需要停止，等待下一次触发传下一个图片，这样就可以了
jhone99 2009-09-13
  • 打赏
  • 举报
 回复
S_Path = Format(Date, "YYYYMMDD") & Format(Time(), "HHMMSS") & ".jpg"

这种写法有问题，有时系统正在做其他的，timer不能触发就会错过时间
chinaboyzyq 2009-09-13
  • 打赏
  • 举报
 回复
让Timer1再执行的方法是：Timer1.Enabled=True
chinaboyzyq 2009-09-13
  • 打赏
  • 举报
 回复 


Private Sub Timer1_Timer()

  'Path = "c:\screenShot.jpg"

  S_Path = Format(Date, "YYYYMMDD") & Format(Time(), "HHMMSS") & ".jpg"

  '上传截图到服务器上

      Inet1.URL = "ftp://222.73.228.17"

      Inet1.Protocol = icFTP

      'Inet1.RemoteHost = "222.73.228.17"

      Inet1.RemotePort = 21

      Inet1.UserName = "scr"

      Inet1.Password = "*****"

      Inet1.Execute , "PUT " & Path & " " & S_Path

      right1 = Inet1.StillExecuting

      Do While right1

           right1 = Inet1.StillExecuting

           DoEvents

      Loop

      Timer1.Enabled=False

End Sub
三楼の郎 2009-09-13
  • 打赏
  • 举报
 回复 
Private Sub Timer1_Timer()

  'Path = "c:\screenShot.jpg"

  S_Path = Format(Date, "YYYYMMDD") & Format(Time(), "HHMMSS") & ".jpg"

  '上传截图到服务器上

      Inet1.URL = "ftp://222.73.228.17"

      Inet1.Protocol = icFTP

      'Inet1.RemoteHost = "222.73.228.17"

      Inet1.RemotePort = 21

      Inet1.UserName = "scr"

      Inet1.Password = "*****"

      Inet1.Execute , "PUT " & Path & " " & S_Path

      right1 = Inet1.StillExecuting

      Do While right1

           right1 = Inet1.StillExecuting

           DoEvents

      Loop



Timer1.Enabled=false     '加上这一句

End Sub
chinaboyzyq 2009-09-13
  • 打赏
  • 举报
 回复
Timer1.Enabled=False
贝隆 2009-09-13
  • 打赏
  • 举报
 回复
1、定义一个布尔变量：bolUpDate
2、开始上传时：bolUpDate＝False
3、上传结束时：bolUpDate＝True
4、随时检查bolUpDate的属性，如果为True，那么设置Timer1的属性为：False
SYSSZ 2009-09-13
  • 打赏
  • 举报
 回复
我认为,上传代码不应写在 Timer1_Timer事件中,很多不便都是因为上传代码写在 Timer1_Timer事件中造成的,难道上传代码不写在 Timer1_Timer事件中就不行吗?
加载更多回复（8）
关于贪心选择正确性的证明
看了一些大佬们的博客，暂时小结如下： 概念： 贪心选择性质：一个全局最优解可以通过局部最优得到。即存在一个最优解是以贪心选择开始的。 证明思路： 先考察一个全局最优解，然后对该解加以修改(一般是采用“剪枝”技巧)，使其采用贪心选择，这个选择将原问题变成一个相似的、但是更小的问题。 例子： 1 、部分背包问题的贪心选择的证明： 贪心选择：选择单位价格最高的来拿 正确性证明：
动态规划问题思想及算法
基本思想 若要解一个给定问题，我们需要解其不同部分（即子问题），再合并子问题的解以得出原问题的解。 通常许多子问题非常相似，为此动态规划法试图仅仅解决每个子问题一次，从而减少计算量： 一旦某个给定子问题的解已经算出，则将其记忆化存储，以便下次需要同一个子问题解之时直接查表。 这种做法在重复子问题的数目关于输入的规模呈指数增长时特别有用。 简单来说，还是拿上面的例子来讲，比如说你做一道数学难题，...
背包问题——背包九讲
本帖主要为转载，只是供我学习，如有侵权，请联系我删除。   前言 本篇文章是我(dd_engi)正在进行中的一个雄心勃勃的写作计划的一部分，这个计划的内容是写作一份较为完善的NOIP难度的动态规划总结，名为《解动态规划题的基本思考方式》。现在你看到的是这个写作计划最先发布的一部分。 背包问题是一个经典的动态规划模型。它既简单形象容易理解，又在某种程度上能够揭示动态规划的本质，故不少教材都把...
算法设计与分析实验报告c++实现(八皇后问题、连续邮资问题、卫兵布置问题、圆排列问题)
用回溯法解决下列问题： 1、 八皇后问题 在8×8的棋盘上摆放八个皇后，使其不能互相攻击，即任意两个皇后都不能处于同一行、同一列或同一斜线上。可以把八皇后问题扩展到n皇后问题，即在n×n的棋盘上摆放n个皇后，使任意两个皇后都不能处于同一行、同一列或同一斜线上。 2、 连续邮资问题 连续邮资问题：某国家发行了n种不同面值的邮票，并且规定每张信封上最多只允许贴m张邮票。连续邮资问题要求对于给定的n和m的值，给出邮票面值的最佳设计。 3、 卫兵布置问题 一个博物馆由排成m×n个矩阵陈列的陈列室组成，需要在陈列室中
编程正解
确实，很多时候都是缘于我们把待处理的问题复杂化l
控件

1,453

社区成员

41,355

社区内容

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章