双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

在局域网中自动更新

2002-11-01 03:42:43 193 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wazhqi 墨衍会员 · AI 创作全网分发关注 + 加入社区

简单局域网自动更新程序应为工作需要花了两个小时写了个局域网更新程序，简是简单了点，但是感觉还挺好用，和大家分享下！using System;using System.Collections.Generic;using System.Text;using System.IO;using System.Xml;using System.Threading;using System.Windows.Forms; 阅读详情

客户端中，在局域网若自动更新，自已更新自已并执行，要原码

...全文

软件版本更新（局域网clickonce）软件版本更新（局域网clickonce）1. 主站搭建Web服务2 应用程序发布设置2.1 配置应用程序在工业领域多年，第一次有需要发布应用程序的需求，应用场景：硬件为一台主控电脑，连接8个从站电脑；每个电脑一个应用软件，主站客户端，从站服务器需求为所有应用软件发布到主机的硬盘位置，其他软件启动时自动更新所需文件。技术方案选择：通过对需求分析，至少要3个步骤，编写应用软件管理软件，应用软件... 阅读详情

wazhqi

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

truemoller 2003-05-03

打赏
举报

internet上行吗？

programmer200x 2003-02-23

打赏
举报

问题挺好的，怎么没有人讨论啊？

quark 2003-02-12

打赏
举报

//==============================================================================
//客户端.从服务器指定的FTP地址下载最新程序**************************************
//==============================================================================
procedure ClientDownload;
var NMFTP: TNMFTP;
begin
NMFTP := TNMFTP.Create(nil);
NMFTP.Vendor := 2411;
NMFTP.Host := Master.Computer;
NMFTP.Port := 21;
NMFTP.Timeout := 5000;
NMFTP.UserID := 'anonymous';
NMFTP.Password := 'user@host.com';
try
NMFTP.Connect;
NMFTP.Download(Slave.AppName, Slave.AppPath + Slave.AppName + '~');
finally
NMFTP.Disconnect;
NMFTP.Free;
end;
end;

//==============================================================================
//客户端.用下载的程序更新原程序*************************************************
//==============================================================================
procedure ClientReplace;
var ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
BatchFileName: string;
BatchFile: TextFile;
begin
BatchFileName := ChangeFileExt(Paramstr(0),'.bat');
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile);
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Writeln(BatchFile, ':try');
Writeln(BatchFile, 'del "' + Slave.AppPath + Slave.AppName + '"');
Writeln(BatchFile, 'if exist "' + Slave.AppPath + Slave.AppName + '" goto try');
Writeln(BatchFile, 'if not exist "' + Slave.AppPath + Slave.AppName + '" ren "' + Slave.AppPath + Slave.AppName + '~" "' + Slave.AppName + '"');
//自启动~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//Writeln(BatchFile, 'if exist "' + Slave.AppPath + Slave.AppName + '" "' + Slave.AppPath + Slave.AppName + '"');
Writeln(BatchFile, 'del %0');
CloseFile(BatchFile);
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := SW_HIDE;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if CreateProcess(nil,PChar(BatchFileName),nil,nil,False,IDLE_PRIORITY_CLASS,nil,nil,StartUpInfo,ProcessInfo) then
begin
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
end;

wazhqi 2002-11-05

打赏
举报

求解脱还得靠自已，我自已解决吧

hfycl 2002-11-04

打赏
举报

del_c_sharp 2002-11-04

打赏
举报

to BoningSword

佛曰：不可说～～～不可说～～～◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎

ihihonline 2002-11-04

打赏
举报

BoningSword(我爱的人名花有主，爱我的人惨不忍睹)说：
广告满天飞啊，简直比网络时代的烧钱运动还热乎，呵呵。
del_c_sharp(摩托还需骆拉)说：
我是佛，：佛曰：不可说～～～不可说～～～◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
小小说：摩托吃人不吐骨头，我踩你！BoningSword，小小下次不敢了；嘻嘻

BoningSword 2002-11-03

打赏
举报

To：小小，广告满天飞啊，简直比网络时代的烧钱运动还热乎，呵呵。

ihihonline 2002-11-01

打赏
举报

哇，接分，接分；
你可以用回调机制也可以心跳机制；
怎么用？Midas里看去啊；我那我有源码；
或是到www.nxit.net/bbs里，我也放了源码，两个例程的源码；
祝好运；///////这个贴子应该是在Midas里边嘛；

✦双11狂欢大促✦

在局域网中自动更新

相关推荐

双11狂欢大促