M myjane Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-29 #1 我如何用SaveDialog1把image1中的图像存成1.bmp 并每分钟自动存盘,名称为2.bmp,3.bmp,4.bmp
A alvinlv Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-29 #2 简单的实现方法是 在10.0.0.40 的机器上安装pcAnyWhere 的被控端，然后在10.0.0.10的机器上安装 pcanyWhere 的主控端 PcAnyWhere 是网络管理软件，类似功能的软件有很多。 如果自己写程序 1 在10.0.0.40的机器上装Server端（Socket Server） 2 在10.0.0.10的机器上安装Client端（Socket Client） 3 Client 连接到 Server ，由Server 负责抓40机器上的屏幕，传到Client，由Client 在10 的机器显示。 但这种方式的缺点是网络流量大，速度慢，而且没有办法直接操作Server 的屏幕。
简单的实现方法是 在10.0.0.40 的机器上安装pcAnyWhere 的被控端，然后在10.0.0.10的机器上安装 pcanyWhere 的主控端 PcAnyWhere 是网络管理软件，类似功能的软件有很多。 如果自己写程序 1 在10.0.0.40的机器上装Server端（Socket Server） 2 在10.0.0.10的机器上安装Client端（Socket Client） 3 Client 连接到 Server ，由Server 负责抓40机器上的屏幕，传到Client，由Client 在10 的机器显示。 但这种方式的缺点是网络流量大，速度慢，而且没有办法直接操作Server 的屏幕。
Y ysl66 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-29 #3 看看以前的帖子http://www.delphibbs.com/delphibbs/dispq.asp?lid=579773
A alvinlv Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-02 #7 咿！ 怎么题目的内容变了啊。 我当是回答时， 你的题目不是问这个啊。 如果你每隔一分种保存image1里的图象，为什么要用SaveDialog1呢？ 在TTimer里直接存就可以了。 public i: Integer; procedure TForm1.OnForm1Create(Sender: TObject); begin i := 1; end; procedure TForm1.OnTimer1Timer(Sender: TObject); begin Image1.Picture.SaveToFile(ExtractFilePath(ParamStr(0)) + IntToStr(i) + '.bmp'); Inc(i); end;
咿！ 怎么题目的内容变了啊。 我当是回答时， 你的题目不是问这个啊。 如果你每隔一分种保存image1里的图象，为什么要用SaveDialog1呢？ 在TTimer里直接存就可以了。 public i: Integer; procedure TForm1.OnForm1Create(Sender: TObject); begin i := 1; end; procedure TForm1.OnTimer1Timer(Sender: TObject); begin Image1.Picture.SaveToFile(ExtractFilePath(ParamStr(0)) + IntToStr(i) + '.bmp'); Inc(i); end;
