Непонятки с кодировкой...

[inlanger]

Написал программу, которая берёт новости с моего сайта. Сайт отдаёт данные в кодировке UTF-8. MP, как я понял, принимает их именно в этом формате.
Но вот только принимаю я крякозябры. Кракозябры вида, как будто я просматриваю страницу через кодировку WESTERN.
Вот ссылка на страницу http://sportmobile.net/news_p.php?type=world&num=1&t=1
прога тут: http://sport.inlanger.org.ua/104038_sportmobile.zip

[Bruteo]

Попробуй отправлять с сервера заголовок с указанием кодировки

[Kurdt]

пробуй

 function Str2UTF8(s: string):string;

var i: integer; a : string;

begin

a:='';

for i:= 0 to Length(s) do

if GetChar(s, i) > '~' then a:= a + Chr(Ord(GetChar(s, i)) - 64432)

else a:= a + GetChar(s, i);

Str2UTF8:= Copy(a, 0, Length(a)-1);

end;

[inlanger]

хм...теперь выдаёт одни квадраты.

[Kurdt]

1251 юзай

[inlanger]

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

[Kurdt]

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

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

*** чувак эксперементируй децыл глянь какие коды символов отдает. дело 5 минут.

давай без мата, а?

[inlanger]

ппц...вроде форум для того, чтобы помогать, а не наезжать и флудить...

[jkeks]

Отправляю и в Win и в utf, принимаю без перекодировок - крокозябли, ставлю указанную функцию выше, получаю квадратики, когда UTF - вроде их в 2 раза больше, но английские буквы отображаются нормально, а русские никак не хотят показываться.Есть единственный вариант который я вижу - передавать все в Encoded виде %E3.. а на мобиле конвертить обратно, можно и из UTF конвертить. Может кто подскажет, это вендь неправильно, как сделать ПРАВИЛЬНО ?
У кого есть примеры ?

[ViNT]

Что касается декодера, я бы сделал так:

uses hexdec;

function DecodeText(Src:string):string;
var
 T,B:String;
 I,SC:integer;
 C:Char;
 L:Integer;
begin
 L:=Length(Src);
 I:=0;
 T:='';
 while I < L do
 begin
  C:=GetChar(Src,I);
  if C<>'%' then
  begin
   T:=T+C;
   I:=I+1;
  end
  else
  begin
   B:='';
   B:=B+GetChar(Src,I+1);
   B:=B+GetChar(Src,I+2);
   SC:=hex2dec(B);
    T:=T+Chr(SC+848);
   I:=I+3;
  end;
 end;
 DecodeText:=T;  
end;

Исходный текст до кодирования должен быть в win-1251.

[jkeks]

Вот все правильно, короче чтобы читать русские данные из интернета нужно сделать так:
1.Отправлять в Win-1251
2. Перед отправкой весь текст за URLEncode-ить (простые буквы не будут правильно отображаться, видимо потому что принимается только 7 бит, незнаю точно почему)
3. Приняв, нужно сделать URLDecode полученный текст
Последнее можно сделать с помощью библиотеки http://forum.boolean.name/showthread...ghlight=hexdec и указанной выше функцией.

Спасибо всем. Вижу русский текст на мобиле с интернета, Ура !

[mizantrop]

а у меня вот такой исходник сработал:

function DecodeText(text:string) : string;
var i, len, cid, tilda:integer;
result,substr:string;
c:char;
work:boolean;
begin
	tilda := ord('~');
	len := length(text);
	result := text;
	for i := 0 to len - 1 do begin
		c := GetChar(text, i);
		cid := ord(c);
		if cid > tilda then begin
			cid := cid + 848;
			result := SetChar(result, chr(cid), i);
		end;
	end;
	DecodeText := result;
end;

[Phantom]

Объясняю. В utf-8 символы кодируются от 1 до 4 байт. Принимает программа побайтно, а при присваивании байтов типу String приводит к автоматическому преобразования данного байта к utf-8, то есть КАЖДЫЙ из байтов (а не из символов) становится от 1 до 4 байтов. То есть внешне получается, что вы utf-8 считываете в кодировке ASCII. Выход из этого вижу один. Парсить принимаемые данные в программе. Нужно отлавливать каждый байт более 192, после этого прибавлять к нему ВСЕ байты, идущие за ним, ПОКА не встретится байт менее 128 или более 192. Все эти байты в той же последовательности берём как int и конкатенируем к строке (или через буфер) с приставкой (char). Это я говорю, как бы я на Java сделал бы. Хотел я либу написать даже, гг. Но мне кажется, что способ весьма тормозной. Но зато полная интернациональность - возможность передавать текст на любом языке, а не только на русском. Но если использовать utf-8 для передачи через интернет, то нужно помнить, что траффик будет больше.