1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26

помогите победить кодировочкопроблеминхо!

if SameText(ARequestInfo.RawHeaders.Values['X-Requested-With'],  // клиент получит фрагмент html, полное обновление не нужно
		'XMLHttpRequest') then
	begin
		if SameText(ARequestInfo.Command, 'GET') then
		begin
			AResponseInfo.ContentText := http.Get(Link); // только для теста. ниже более уместный код.
			// AResponseInfo.ContentStream := TStringStream.Create; // жизнью объекта управляет владелец
			// http.Get(ARequestInfo.URI, AResponseInfo.ContentStream);
		end
		else if SameText(ARequestInfo.Command, 'POST') then
		begin
			// AResponseInfo.ContentStream := TStringStream.Create;
			ARequestInfo.PostStream := TMemoryStream.Create;
			ARequestInfo.Params.SaveToStream(ARequestInfo.PostStream);
			http.Request.CharSet := AResponseInfo.CharSet;
			http.Request.ContentType := AResponseInfo.ContentType;
			http.Request.ContentLength := ARequestInfo.PostStream.Size;
			AResponseInfo.ContentText := http.Post(Link, ARequestInfo.Params); // отправляет верно, но с кодировкопроблемами
			// ARequestInfo.PostStream:=Nil;
			// AResponseInfo.ContentStream);
			// HTTP.POST(Link, ARequestInfo.Params, AResponseInfo.ContentStream); // хуячит форму для отправки, доходят лишь фрагменты
		end;
	end
	else