[ProDaNTe]

Есть сайт freedebrid нужно отправить POST запрос и получить страницу с выполненным скриптом! Короче уже всякую фигню начал вставлять но приходит или таже страница либо вообще 0 байт! Помогите плиз!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Header:='document.forms['+Form1.sLabel22.Caption+'].submit();'+#13+'Content-Type: application/x-www-form-urlencoded';    hInet := InternetOpen('Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.6.37 Version/11.00',   PRE_CONFIG_INTERNET_ACCESS,     nil,     nil,     0);     hURL := InternetOpenURL(hInet,     PChar('http://www.freedebrid.fr/download'),     nil,     0,     INTERNET_FLAG_RELOAD,     0); hRequest:=HttpOpenRequest(hURL,'POST',pchar(Header),nil,nil,0,0,0); HttpSendRequest(hURL, pchar(Header),length(Header),PChar('post=mypostdata'), Length('post=mypostdata'));

Админ: Пользуемся тегами для оформления кода!

[NumLock]

Content-Type есть, а Content-Length?

[ProDaNTe]

Content-Type есть, а Content-Length?

А зачем может просто правильный вариант подкинешь, как вообще это правильно сделать и откуда размер взять?

[NumLock]

правильный размер:

Код:

1	Length('post=mypostdata');

[ProDaNTe]

Делаю так,запрос отправился но принимает в снифере показывает что в теле пост запроса буквы идут через пробел и соответственно запрос считается не верным т.е. нужно url=345, а отправляет u r l = 3 4 5!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

procedure TFireThread.Execute; var Header,code,post:String; sizex,indexx:Cardinal; fBufing:array [1..1024] of byte; ReadLen:Cardinal; stoping:Boolean; t:Cardinal; f:file; hurl,hinet,hRequest:HINTERNET; begin   inherited; sizex:=256; indexx:=32; stoping:=false; post:='url='+Form1.sLabel22.Caption; t:= Length(post); Header:='Referer: http://www.freedebrid.fr/download'+#13+ 'Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1'  +#13+ 'Accept-Language: ru,ru-RU;q=0.9,en;q=0.8 '+#13+ 'Accept-Encoding:gzip, deflate'+#13+ 'Connection: Keep-Alive '+#13+ 'Content-Type: application/x-www-form-urlencoded';    hInet := InternetOpen('Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.10.229 Version/11.60',   INTERNET_OPEN_TYPE_PRECONFIG,     nil,     nil,     0); hUrl:=InternetConnect(hInet,PChar('www.freedebrid.fr'),INTERNET_DEFAULT_HTTP_PORT,nil,nil,INTERNET_SERVICE_HTTP,0,0); hRequest:=HttpOpenRequest(hURL,'POST',pchar('/download'),'HTTP/1.1',nil,0,0,0); HttpSendRequest(hRequest,PChar(Header),Length(Header),PChar(post),t); Form1.sRichEdit1.Lines.Add(Header);     AssignFile(f,ExtractFilePath(Application.ExeName)+'firebird.html');     Rewrite(f,1);  while stoping=false do   begin InternetReadFile(hRequest, @fBufing, SizeOf(fBufing), ReadLen); Form1.sRichEdit2.Lines.Add('Прочитанно'+' '+IntToStr(ReadLen)); if ReadLen=0 then begin stoping:=true; end else begin BlockWrite(f, fBufing, ReadLen); end;   end; CloseFile(f); InternetCloseHandle(hUrl); InternetCloseHandle(hInet); Terminate; end;

[Bargest]

Код не читал, но очень похоже, что запрос проходит в широких строках (aka WideString). В делфи начиная с N-ной версии (N~9) String стало синонимом WideString. Попробуйте использовать AnsiString.

[ProDaNTe]

Bargest, Спасибо!