[Помогите!] RegExpr - Кодировка. Нужна помощь.

[DangerousSs]

У меня возникла проблема с кодировкой в выражении RegExpr.
Мне нужно вытянуть имя например "example".
Пример:

S:=idHTTP1.Get('http://site.com/');
Reg.Expression:='<div class="name" value="Ваше имя:">(.*?)</div>'; 
              // <div class="name" value="Ваше имя:">example</div>
if Reg.Exec(S) then Label1.Caption:=Reg.Match[1];

Например у сайта кодировка UTF8, при поиске данной строки он ее не находит, из-за того, что в строке имеются русский символы.
Т.е вместо "Ваше имя" он видит крякозябры, а не "Ваше имя".

Конечно можно сделать так:

S:=idHTTP1.Get('http://site.com/');
Reg.Expression:='<div class="name" value="(.?*)">(.*?)</div>'; 
              // <div class="name" value="Ваше имя:">example</div>
if Reg.Exec(S) then Label1.Caption:=Reg.Match[2];

Он выводит имя "example", но строка может повторяться несколько раз.
Т.е:

S:=idHTTP1.Get('http://site.com/');
Reg.Expression:='<div class="name" value="(.?*)">(.*?)</div>'; 
              // <div class="name" value="Ваше Имя">example</div>
if Reg.Exec(S) then Label1.Caption:=Reg.Match[2];

Reg.Expression:='<div class="name" value="(.?*)">(.*?)</div>'; 
              // <div class="name" value="Ваша Фамилия:">apple</div>
if Reg.Exec(S) then Label2.Caption:=Reg.Match[2];

Получается, что он ищет одну и туже строку, и выведет самую 1 строку в оба label'a.
Label1.Caption = example
Label2.Caption = example

Поэтому в переменной "value" написать "Ваше имя" или "Ваша Фамилия" регулярным выражением не получится.
Поэтому надо задать как-то кодировку словам "Ваше имя" и "Ваша Фамилия". Иначе будет искать крякозябры этих слов, которых там нету.

[VeTaL_UA]

1) Регулярки ЗЛО
2) UTF8Decode({тут ответ сервера в string}) превращает кракозябры в русские символы
3) Регулярки ЗЛО
4) Регулярки ЗЛО
5) Регулярки ЗЛО
6) Регулярки ЗЛО
...
n) Регулярки ЗЛО

[DangerousSs]

Цитата: Сообщение от VeTaL_UA 1) Регулярки ЗЛО 2) UTF8Decode({тут ответ сервера в string}) превращает кракозябры в русские символы 3) Регулярки ЗЛО 4) Регулярки ЗЛО 5) Регулярки ЗЛО 6) Регулярки ЗЛО ... n) Регулярки ЗЛО

А что тогда предложите?) только не Copy,pos

[J-Fobos]

Советую воспользоваться возможностями класса TEncoding.

[DangerousSs]

Цитата: Сообщение от VeTaL_UA 1) Регулярки ЗЛО 2) UTF8Decode({тут ответ сервера в string}) превращает кракозябры в русские символы 3) Регулярки ЗЛО 4) Регулярки ЗЛО 5) Регулярки ЗЛО 6) Регулярки ЗЛО ... n) Регулярки ЗЛО

Кстати декодингом я пробовал, не получалось. Рассмотрю еще раз.

[VeTaL_UA]

Цитата: Сообщение от DangerousSs А что тогда предложите?) только не Copy,pos

Как раз их и предложу

Цитата: Сообщение от J-Fobos Советую воспользоваться возможностями класса TEncoding.

В олд версиях делфи его нет, а автор, скорее всего, именно такой пользуется.

Цитата: Сообщение от DangerousSs Кстати декодингом я пробовал, не получалось.

var
s:string
HTTP:TIdHTTP;
begin
HTTP:=TIdHTTP.Create(nil);
s:=HTTP.Get('http://blabla.com/');
{в s кракозябры вместо русских букв}
s:=UTF8Decode(s);
{в s русские буквы}
end;

Проще же простого...

[DangerousSs]

Цитата: Сообщение от VeTaL_UA Как раз их и предложу В олд версиях делфи его нет, а автор, скорее всего, именно такой пользуется. var s:string HTTP:TIdHTTP; begin HTTP:=TIdHTTP.Create(nil); s:=HTTP.Get('http://blabla.com/'); {в s кракозябры вместо русских букв} s:=UTF8Decode(s); {в s русские буквы} end; Проще же простого...

Не, что-то не помогло, но за то решил проблему по-другому. Но спасибо и на этом.

S:=idHTTP1.Get('http://site.com/');
chr:=UTF8Encode('Ваше имя:');
Reg.Expression:='<div class="name" value="'+chr+'">(.*?)</div>'; 
                                  // <div class="name" value="Ваше имя:">example</div>
if Reg.Exec(S) then Label1.Caption:=Reg.Match[1];

[VeTaL_UA]

Цитата: Сообщение от DangerousSs е, что-то не помогло, но за то решил проблему по-другому.

. Сори, перепутал Encode и Decode

[DangerousSs]

Цитата: Сообщение от VeTaL_UA . Сори, перепутал Encode и Decode

Да ладно уж
Можешь закрыть тему.