怎样用delphi6.0 的TIDHTTP 控件上传文件，再用asp程序接受(200分)

怎样用delphi6.0 的TIDHTTP 控件上传文件，再用asp程序接受，

你可以使用TIDHTTP控件，模拟表单的提交，其中包含文件项，在服务器端使用现成的asp
文件上传控件或自己写asp语句来接收该表单各项。

能否给我一个简单的例子？谢啦

不知道你的delphi中的indy是哪个版本的？如果是老的请安装9.0以上
http://www.nevrona.com/Indy/dowload/Indy9.html

procedure TForm1.Button1Click(Sender: TObject);
var
responseStream : TStringStream;
mpfSource : TIdMultiPartFormDataStream;
begin
mpfSource := TIdMultiPartFormDataStream.Create;
responseStream := TStringStream.Create('');
try
IdHTTP1.Request.ContentType := mpfSource.RequestContentType;
mpfSource.AddFormField('var1', '1111111111111111');
mpfSource.AddFormField('var2', '2222222222222222');
mpfSource.AddFile('userfile', 'c:/a.doc', 'file');
mpfSource.PrepareStreamForDispatch;
mpfSource.Position := 0;
IdHTTP1.Post('http://serwer/test.asp', mpfSource, responseStream);
finally
mpfSource.free;
responseStream.free;
end;

end;

awl 你好：
在服务端怎样把var1、var2以及userfile 的内容分开
谢啦

若没有语句：
mpfSource.AddFormField('var1', '1111111111111111');
mpfSource.AddFormField('var2', '2222222222222222');
只有语句mpfSource.AddFile('userfile', 'c:/a.doc', 'file')时，服务端不用任何
改动。否则该怎么改动，麻烦你给一个例子

>>flyup
这就是asp怎么写的问题了，因为这同一般的表单提交没有什么两样，可以包含各种表单域
不知道你asp是如何写的，使用的现成的asp组件如：China ASP File Upload Component ，
还是自己写的asp，还是用现成的组件吧，它可也分离出各表单域的值包括你提交的文件部分。

接受答案了.