请问如何在没有用户干预的情况下上传文件？

Question

各位朋友大家好！    我需要实现在没有用户干预的情况下上传文件（主要是图片）。我找到了一个关于这项技术的文章：http://www.aspfree.com/c/a/.NET/HTTP-File-Upload-without-User-Interaction-using-dot-NET/    但是这篇文章使用VB6制作客户端的ActiveX控件。我只有Visual Studio .NET 2003，它的VB没有创建ActiveX工程的模板，我无法创建ActiveX工程。我想将这篇文章的代码翻译成Pascal，用Delphi 6来制作这个ActiveX控件。但是有些代码不知道如何翻译。哪位朋友可以帮助在下把这篇文章中客户端的代码翻译一下，或是讲解一下这些VB代码的含义？代码不长。非常感谢！

Answer 1

必须HTTP方式么?
自己写一个自动客户端不了事了?

Answer 2

同意楼上 tcp 或者 udp 自己写一个

Answer 3

将文件读入到stream中然后对内容进行base64编码，然后使用xmlhttp把编码后的字符串发送到web服务器上的接收界面，接收界面的page_load里对接收的数据进行base64解码，然后保存成文件，原理就是这样了

Answer 4

大家好！    谢谢你们的帮助。我是网络编程的新手，像TCP、UDP这些东西都不了解。我自己暂时写不出来程序。TO hongqi162，你好！    你的回复对我很有帮助。你说的这个上传文件的原理就是那篇文章所作的吗？你的这个方法，比如将文件读入stream，然后进行base64编码再解码，用Delphi如何实现？    上篇文件中，有如下代码：  Open strFileName For Binary As #2
        strData = Input(FileLen(strFileName), #2)
  Close #2好像是把文件作为2进制读取，并且要保存到一个字符串变量中。如果我要上传一个.gif文件怎么办。这段代码如何用Delphi实现呢？    如果可以，能不能向我展示一些Delphi的代码？非常感谢！

Answer 5

你按照我说的方法就可以了，你使用TFileStream读取一张图片，然后将这个filestream进行base64编码返回一个string,然后你使用xmlhttp把这个string提交到你的web服务器的接收页面然后再解码保存就可以了，base64编码网上有代码