HttpCli就他妈是渣。让我忙了一天一夜都没搞定！！！！！

Question

var
Data : String;
crlf : String;
lFs : TMemoryStream;
lBoundary:string;
begin
  crlf:=#13#10;
  lBoundary:='--';
  HttpCli1.ContentTypePost:='multipart/form-data; boundary='+lBoundary;
  HttpCli1.SendStream := TMemoryStream.Create;
  lFs:=TMemoryStream.Create;
  lFs.LoadFromFile(fFileName);
  Data:=lBoundary+#13#10;
  Data:=Data+'Content-Disposition: form-data; name="upload_file"; filename="'+fFileName+'"'+crlf;
  Data:=Data+'Content-type: application/zip'+crlf+crlf;    
  HttpCli1.SendStream.Write(Data[1], Length(Data));
  lFs.SaveToStream(HttpCli1.SendStream);
  HttpCli1.SendStream.Write(crlf[1], Length(crlf));
  Data:=lBoundary+'--'+crlf;
  HttpCli1.SendStream.Write(Data[1], length(Data));
  HttpCli1.SendStream.Seek(0, 0);
  HttpCli1.RcvdStream := TMemoryStream.Create;
  HttpCli1.URL := 'http://127.0.0.1/dow/upload/'+'?key='+key;
  HttpCli1.Post;上面的代码试了一天结果~~服务器根本不接受我的上传
我把IE封包截了跟我的对比。还是不行。。
疯了~~再弄我自杀了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Answer 1

少安毋躁，写程序总是很烦的。