用ICS控件包中的HttpCli Post一个文件给ASP文件,报Internal Server error错误,是何原因?
在IE浏览器中使用POST方法可以实现文件的上载,但在delphi中不行。
代码如下:
var
rs: TMemoryStream;
fs : TFileStream;
begin
rs := TMemoryStream.Create;
fs := TFileStream.Create('test.txt',fmOpenRead);
fs.Position := 0;
HttpCli1.RcvdStream := rs;
HttpCli1.SendStream := fs;
HttpCli1.URL := 'http://127.0.0.1/swap/formresp.asp';
HttpCli1.Post;
fs.Free;
rs.Free;
end;