Error 500 Failed to upload file using Delphi Indy -

-

i'm trying upload file oboom.com logged in when try post file error

http/1.1500 internal server error.

with respose text

[500,"illegal post header","content-transfer-encoding"]

procedure tform1.button1click(sender: tobject); var   s: tstringlist;   html: string;   clhttprequest1: tclhttprequest;   ssliohandlersocketopenssl: tidssliohandlersocketopenssl;   params: tidmultipartformdatastream;   http, http2: tidhttp; begin   params := tidmultipartformdatastream.create;   s := tstringlist.create;   http2 := tidhttp.create(nil);   try     cookie := tidcookiemanager.create(nil);     ssliohandlersocketopenssl := tidssliohandlersocketopenssl.create(nil);     http2.iohandler := ssliohandlersocketopenssl;     http2.handleredirects := false;     http2.connecttimeout := 10000;     http2.readtimeout := 10000;     http2.cookiemanager := cookie;     http2.allowcookies := true;     http2.request.useragent :=       'mozilla/5.0 (windows nt 6.1; wow64) applewebkit/537.36 (khtml, gecko) chrome/33.0.1750.154 safari/537.36';     http2.request.contenttype := 'application/x-www-form-urlencoded';     http2.request.contentencoding := 'gzip, deflate';     http2.request.accept := '*/*';     http2.request.connection := 'keep-alive';     s.values['auth'] := 'email@gmail.com';     s.values['pass'] := 'password';     s.values['app_id'] := '5hwajucdicxprlv3gjab';     s.values['app_session'] := '288196272';     html := http2.post('https://www.oboom.com/1.0/login', s);       http2.free;     s.free;   end;   token := extractbetween(html, 'session":"', '"');   try     http := tidhttp.create;     http.handleredirects := true;     http.request.connection := 'keep-alive';     http.allowcookies := true;     http.cookiemanager := cookie;     http.request.referer := 'http://upload.oboom.com';     http.request.contenttype :=       'multipart/form-data; boundary=----------gi3ef1ch2gi3gl6ae0ef1km7ef1gl6';     http.request.accept := '*/*';     http.request.acceptencoding := 'gzip,deflate';     http.connecttimeout := 20000;     http.readtimeout := 20000;     http.request.useragent :=       'mozilla/5.0 (windows nt 6.1; wow64) applewebkit/537.36 (khtml, gecko) chrome/33.0.1750.154 safari/537.36';     params.addfile('file', 'c:\users\m\pictures\martin.jpg', );     http.post('http://upload.oboom.com/1.0/ul?token=' + token +       '&parent=1&name_policy=rename', params);       http.free;     params.free;     cookie.free;   end;   memo1.text := html; end;

i have googled hours solution no luck :/

tried way : 

 params.addfile('file', 'c:\users\m\pictures\martin.jpg','application/octet-stream');  params.addfile('file', 'c:\users\m\pictures\martin.jpg','multipart/form-data');

but same error

i have tried clever internet compenent , succeeded uploading file use indy ..

i use delphi x3

you need rid of these lines:

http2.request.contentencoding := 'gzip, deflate'; 

http.request.acceptencoding := 'gzip,deflate';

tidhttp manages values based on whether compressor property assigned , enabled. and, not sending compressed request, values should not used anyway.

also, need rid of line:

http.request.contenttype :=   'multipart/form-data; boundary=----------gi3ef1ch2gi3gl6ae0ef1km7ef1gl6';

post() manages value you, boundary, tidmultipartformdtastream generates dynamically.

update other place content-transfer-encoding used on individual fields of tidmultipartformdatastream. each tidformdatafield has contenttransfer property. addfile() initializes 'binary', can set blank string disable header:

params.addfile(...).contenttransfer := '';

Comments

Post a Comment

Popular posts from this blog

c# - Unity IoC Lifetime per HttpRequest for UserStore -

-
i'm trying clean default implementation of accountcontroller.cs comes out of box in new mvc5/owin security implementation. have modified constructor this: private usermanager<applicationuser> usermanager; public accountcontroller(usermanager<applicationuser> usermanager) { this.usermanager = usermanager; } also, have created lifetime manager unity looks this: public class httpcontextlifetimemanager<t> : lifetimemanager, idisposable { private httpcontextbase _context = null; public httpcontextlifetimemanager() { _context = new httpcontextwrapper(httpcontext.current); } public httpcontextlifetimemanager(httpcontextbase context) { if (context == null) throw new argumentnullexception("context"); _context = context; } public void dispose() { this.removevalue(); } public override object get...
Read more

Change the color of an oval at click in Java AWT -

-
i have draw ovals in java, , @ click change color. beginning tried change color after 20 ms, doesn't work. my code is: public class mycomponentnew extends frame { public graphics2d g2d; public mycomponentnew(string title) { super(title); setsize(400, 550); } @override public void paint(graphics g) { this.g2d = (graphics2d) g; this.g2d.setcolor(color.red); this.g2d.filloval(10, 55, 50, 100); } public void changecolor () { this.g2d.setcolor(color.blue); this.g2d.filloval(10, 55, 50, 100); } } and in class main method have: mycomponentnew m; m = new mycomponentnew("fereastra cu baloane"); m.setvisible(true); m.addwindowlistener(new windowadapter() { @override public void windowclosing(windowevent we) { system.exit(0); } }); try { thread.sleep(20); } catch(interruptedexception e) {} m.changecolor(); the color of oval remains red. ...
Read more

I am trying to solve the error message 'incompatible ranks 0 and 1 in assignment' in a fortran 95 program. -

-
i writing program in fortran find velocity of parachuting person in relation time. keep getting error can't fix. new programming , appreciated. the error is v(i+1)=v(i)+[32-((c*v(i)*v(i))/m)]*(h) 1 error: incompatible ranks 0 , 1 in assignment @ (1) and program is program para integer :: real :: v(11) !velocity real :: q !initial velocity real :: h !time step real :: c !drag coefficient real :: m !mass ! gravity equal 32 ft/s^2 write (*,*)'enter time step' read(*,*)h write(*,*)'enter initial velocity' read(*,*)q write(*,*)'enter drag coefficient' read(*,*)c write(*,*)'enter mass' read(*,*)m i=1,10 ! 1 10, 1 being interval. end v(i+1)=v(i)+[32-((c*v(i)*v(i))/m)]*(h) q=v(1) end program you cannot use [] normal parenthesis in expressions. array constructor, [ items ] means array items elements. end do should after line.
Read more