Эмулятор

[Seregakz]

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

Function Encode(a: string): string;
var	len, ch: integer;
		s: string;
begin
	s:=''; len:=Length(a)-1;
	for i:=0 to len do begin ch:=ord(GetChar(a,i)); if ch>122 then s:=s+chr(ch+1104) else s:=s+chr(ch); end;
	Encode:=s;
end;

не пашет! ответ идёт квадратиками! php страница win1251

[Strelok]

А я просто php перегонял в другую кодировку(UTF-8 без BOM'a) и всё гудно выходит, к чему ещё лишний код в мидлет вставлять?