idhttp上传，一直搞不定,请大家帮忙了,不胜感激!

Question

procedure TForm1.Button1Click(Sender: TObject);
var
res : String;
  mps : TMsMultiPartFormDataStream;
begin  try
    mps := TMsMultiPartFormDataStream.Create;
    mps.AddFile('file1','c:\inetpub\capture.asf','');
    res:=idhttp1.Post('http://ls/test.asp',mps);
  finally
    mps.Free;
  end;
end;<test.asp>采用左轻候的upfile作者主页：http://www.wushuang.net（无双谱）
邮件地址：[email protected]<%'
Set upfile = Server.CreateObject("myobj.upfile")
upfile.filesaveas("c:\"+upfile.filename)
set upfile = nothing
%>上传时报错：http:/1.1/500 internal server error. inty 采用9.0.18.折腾到0：00，仍不行，请大家指点！！！！

Answer 1

问题可能出在你的asp上,你的myobj是什么?,如果程序是网上抄来的,可能没抄全(asp我不是很熟,但Server.CreateObject("myobj.upfile")中的myobj应该在你服务器上存在,否则就是一个HTTP内部错)
另外,indy9.0是indy中最有问题的一个版本.以前碰到过idftp出错是由于indy引起的,你还可以换个indy版本试试

Answer 2

监控传输的数据发现问题吧
可能是Indy也可能是ASP上的问题

Answer 3

to  keiy() 
myobj在服务器上是存在的，有源程序编译出来的，并进行了系统注册。直接采用.htm上传至.asp没有问题，当在delphi中上传时报错!

Answer 4

是不是要加个这个：
FIdHTTP.Request.Referer 

Answer 5

上次我的出现你写的那个错误错误就是少FIdHTTP.Request.Referer

Answer 6

IdHTTP1.Request.Referer:='http://ls/test.asp';
    res:=idhttp1.Post('http://ls/test.asp',mps);
是上边这样吗，也报错。还请详细指导。 

Answer 7

是不是还要改个这个
idhttp.Request.ContentType:='multipart/form-data';
楼主找找资料

Answer 8

看看大富翁的这个帖子：
http://www.delphibbs.com/keylife/iblog_show.asp?xid=14751

Answer 9

服务器端是C#.NET
http://community.csdn.net/Expert/TopicView3.asp?id=4253949

Answer 10

问题解决了多谢大家帮助，
问题出在调用时。
改为如下就没有问题了，不知为何可能,因为给的参数不够，服务端传输程序因此报错。mps.AddFile('a6','c:\inetpub\capture.asf','');
mps.AddFile('a7','c:\inetpub\capture.asf','');明天给分。