Хлам в ответе при регистрации на сайте

@pixel · Регистрация: 19.05.2009

Author24 — интернет-сервис помощи студентам

Приветствую.
Пробую из проги регистрироваться на сайте (пока на локальном, но в последствии планирую на боевой ставить). так вот, использую следующий код в проге:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('Login='+Edit1.Text);
LoginData.Add('Email='+Edit2.text);
Response.Text := IdHTTP1.Post('http://127.0.0.1/ins.php',LoginData);
richedit1.text:=Response.Text;
finally
Response.Free;
LoginData.Free;
end;

в ответе получаю то что надо, но пред этим 3 каких то кракозябра (см скрин)
Специально не использую кирилицу что бы траблов не было и на тебе. Можно ли от этого избавиться или просто забить на него?

@Arcor · 30.10.2011, 21:20

кодировку какую-нибудь воткни на считывании, ну не какую-либо, а ту в которой сайт закодирован

@pixel · 30.10.2011, 21:27 **[ТС]**

добавил сверху скрипта вот это:

HTML5

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
 <head>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  </head>
  <body>

в итоге в ответе оно же самое и кракозябры перед <!DOCTYPE

@Arcor · 30.10.2011, 21:37

да не в сайт, а в программе в дельфи

@pixel · 30.10.2011, 21:42 **[ТС]**

я не пойму, чего там с кодировкой если ни одного кирилического символа в скрипте нет. возвращается строка на латиннице. чего декодировать то? может это управляющие коды какие нить?

@Arcor · 30.10.2011, 21:48

ну к примеру

Код

UTF8ToString

@pixel · 30.10.2011, 22:06 **[ТС]**

попробовал, теперь вместо 3 кракозябров, появился перевернутый восклицательный знак и вопросительный знак - разницы не вижу. Все таки наверное это что то управляющее.

@Arcor · 30.10.2011, 22:14

ты только в RichEdit пробовал выводить? попробуй у RichEdit поставить PlainText := True;

@pixel · 30.10.2011, 22:22 **[ТС]**

то же самое

@pixel · 30.10.2011, 22:39 **[ТС]**

вот и в эдите

@Alex_pac · 31.10.2011, 07:01

у сайта поставить кодироваку страниц UTF8 без BOM

deathNC · 31.10.2011, 10:04

Delphi

1	Response.Text := IdHTTP1.Post('http://127.0.0.1/ins.php', LoginData);

LoginData - это точно так должно быть, точно без Text ???

Delphi

1	Response.Text := IdHTTP1.Post('http://127.0.0.1/ins.php', LoginData.Text);

@pixel · 31.10.2011, 13:30 **[ТС]**

ну работает же

@HeHyA4o · 31.10.2011, 16:52

Попробуй

Delphi

1 2	Response.Text := IdHTTP1.Post('http://127.0.0.1/ins.php', LoginData); Delete(Response.Text,1,3);

Или можешь попробовать на THTTPSend / WinSock / Wininet и не париться с инди, оно вообще глюкнутое )

Сообщение от deathNC

точно без Text ???

Точно

@pixel · 31.10.2011, 17:01 **[ТС]**

Сообщение от HeHyA4o

Попробуй

Delphi

1 2	... Delete(Response.Text,1,3);

Ну до этого то я и сам додумался, но дело то в том, сколько лишних символов - быть может сейчас их 3, а при другом запросе десяток будет. нужно искоренять саму проблему, надо реально попробовать про BOM - думаю это оно и есть. С другой стороны, для обработки ответа сервера один фиг надо использовать pos - поэтому в принципе можно тупо забить на эти кракозябры.

@HeHyA4o · 31.10.2011, 17:26

Сообщение от pixel

Ну до этого то я и сам додумался, но дело то в том, сколько лишних символов - быть может сейчас их 3, а при другом запросе десяток будет. нужно искоренять саму проблему, надо реально попробовать про BOM - думаю это оно и есть. С другой стороны, для обработки ответа сервера один фиг надо использовать pos - поэтому в принципе можно тупо забить на эти кракозябры.

А ты поставь цикл for i:=1 to 1000 do и рандомь логин и мыло. Далее смотри всегда ли есть эти 3 кракозябры.

@pixel · 31.10.2011, 19:07 **[ТС]**

дело было именно в BOM - пересохранил и все пучком. едиственное, что в эдите после фразы идут 2 квадрата, но это наверное из за того, что в эдит подсовывается stringlist. всем спасибо за помощь.

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	30.10.2011, 21:20	2
	кодировку какую-нибудь воткни на считывании, ну не какую-либо, а ту в которой сайт закодирован 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	30.10.2011, 21:37	4
	да не в сайт, а в программе в дельфи 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,269
	30.10.2011, 21:42 [ТС]	5
	я не пойму, чего там с кодировкой если ни одного кирилического символа в скрипте нет. возвращается строка на латиннице. чего декодировать то? может это управляющие коды какие нить? 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	30.10.2011, 21:48	6
	ну к примеру Код UTF8ToString 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,269
	30.10.2011, 22:06 [ТС]	7
	попробовал, теперь вместо 3 кракозябров, появился перевернутый восклицательный знак и вопросительный знак - разницы не вижу. Все таки наверное это что то управляющее. 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	30.10.2011, 22:14	8
	ты только в RichEdit пробовал выводить? попробуй у RichEdit поставить PlainText := True; 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,269
	30.10.2011, 22:22 [ТС]	9
	то же самое 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,269
	30.10.2011, 22:39 [ТС]	10
	вот и в эдите Миниатюры 0

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	31.10.2011, 07:01	11
	у сайта поставить кодироваку страниц UTF8 без BOM 1

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,269
	31.10.2011, 13:30 [ТС]	13
	ну работает же 0

@HeHyA4o 1 / 1 / 1 Регистрация: 17.10.2011 Сообщений: 46
	31.10.2011, 17:26	16
	Сообщение от pixel Ну до этого то я и сам додумался, но дело то в том, сколько лишних символов - быть может сейчас их 3, а при другом запросе десяток будет. нужно искоренять саму проблему, надо реально попробовать про BOM - думаю это оно и есть. С другой стороны, для обработки ответа сервера один фиг надо использовать pos - поэтому в принципе можно тупо забить на эти кракозябры. А ты поставь цикл for i:=1 to 1000 do и рандомь логин и мыло. Далее смотри всегда ли есть эти 3 кракозябры. 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,269
	31.10.2011, 19:07 [ТС]	17
	дело было именно в BOM - пересохранил и все пучком. едиственное, что в эдите после фразы идут 2 квадрата, но это наверное из за того, что в эдит подсовывается stringlist. всем спасибо за помощь. 0