[metra52]

Подскажите как изменить кодировку текста в Label, исходный текст похоже в кодировке UTF-8 а вот как его отобразить в Label не знаю, высвечивается как знаки вопроса

[angvelem]

UTF8ToAnsi?

[metra52]

Все равно вылазит ?????? ??????

[metra52]

У меня Indy 10

Запрос составляется так

PostVK:=TStringList.Create;
sig:=stroka1+'api_id='+idp+'format=XMLmethod=getUs erInfoExuids='+stroka1+'v=3.0'+stroka3; //подпись запроса + секрет сессии
sig:=md5(sig);
PostVK.Clear;
PostVK.Add('api_id='+idp);
PostVK.Add('v=3.0');
PostVK.Add('method=getUserInfoEx');
PostVK.Add('format=XML');
PostVK.Add('uids='+stroka1);
PostVK.Add('sid='+stroka2);
PostVK.Add('sig='+sig);
logVK:=IdHTTP1.Post('http://api.vk.com/api.php',PostVK);
PostVK.Free;

[angvelem]

Где и что присваивается к TLabel?

[metra52]

Пишу всю функцию

procedure TForm1.btn7Click(Sender: TObject);
var jpg:TMemoryStream; HTTP:TIdHTTP; img:string;
logVK:WideString;
begin
PostVK:=TStringList.Create;
sig:=stroka1+'api_id='+idp+'format=XMLmethod=getUs erInfoExuids='+stroka1+'v=3.0'+stroka3; //подпись запроса + секрет сессии
sig:=md5(sig);
PostVK.Clear;
PostVK.Add('api_id='+idp);
PostVK.Add('v=3.0');
PostVK.Add('method=getUserInfoEx');
PostVK.Add('format=XML');
PostVK.Add('uids='+stroka1);
PostVK.Add('sid='+stroka2);
PostVK.Add('sig='+sig);
logVK:=IdHTTP1.Post('http://api.vk.com/api.php',PostVK);
PostVK.Free;

img:=Pars(logVK,'<user_photo','</user_photo>',0);
lbl8.Caption:=Pars(logVK,'<user_name','</user_name>',0);
jpg:=TMemoryStream.Create;
img1.Picture.Graphic:=TJPEGImage.Create;
jpg.Position:=0;
IdHTTP1.Get(img,jpg); //адрес jpg картинки
jpg.Position:=0;
img1.Picture.Graphic.LoadFromStream(jpg);
jpg.Free;

end;

вот идет присвоение lbl8.Caption:=Pars(logVK,'<user_name','</user_name>',0);

[Karsh]

Чтобы отобразить unicode в label вам нужно либо самому написать новый компонент с поддержкой оного, либо взять уже готовый (если такой есть), либо перейти на Delphi 2009 (или выше).

[metra52]

Просто если открываю свой проект в Delphi XE то прийдется переделывать половину функций, да и Delphi XE мне не понравился по дизайну, старенький Delphi 7 удобнее в 100500 раз

[metra52]

В Delphi XE проблема в том что я читаю из INI файла строку с URL адресом в переменную типа PChar, в Delphi 7 что PAnsiChar что PWideChar одно и тоже а в Delphi XE ругается на это и если указать тип PAnsiChar то строка вообще не считывается

[angvelem]

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

вот идет присвоение lbl8.Caption:=Pars(logVK,'<user_name','</user_name>',0);

И что должно означать Pars?

[metra52]

Функция выбирает нужное значение просто из всего остального

function Pars(str:String;str_begin:String;str_end:String;co unt:integer):String;
begin
Delete(str,1,pos(str_begin,str)+length(str_begin)) ;
Delete(str,pos(str_end,str)-count,length(str));
Pars:=str;
end;

[angvelem]

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

... в Delphi 7 что PAnsiChar что PWideChar одно и тоже...

Совсем нет.

[angvelem]

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

Функция выбирает нужное значение просто из всего остального

Если строка в UTF8, то эта функция спятит.

[metra52]

функция не спятила, я уже проверил, просто когда я из файла получаю текст он до этого записывался в PChar и в результате оказывался PWideChar и когда я его загонял в следующую функцию, он там как то сам преобразовывался в PAnsiChar, а вот Delphi XE такое не дает сделать, в результате чего у меня из файла читается только 1 символ и все а не вся строка

чтение происходит так

IniFile := TIniFile.Create(GetCurrentDir+'\sett.ini'); { Создали экземпляр объекта }
url:=PAnsiChar(IniFile.ReadString('settings','url' ,'')); { Читаем имена и значения }
IniFile.Free;

а раньше

IniFile := TIniFile.Create(GetCurrentDir+'\sett.ini'); { Создали экземпляр объекта }
url:=PChar(IniFile.ReadString('settings','url','') ); { Читаем имена и значения }
IniFile.Free;

и все
точный тип не указывал

[metra52]

Все проблема решилась, сделал вот так

Код:

IniFile := TIniFile.Create(GetCurrentDir+'\sett.ini'); { Создали экземпляр объекта }
  url:=PAnsiChar(AnsiString(IniFile.ReadString('settings','url',''))); { Читаем имена и значения }
  IniFile.Free;

Админ: Пользуемся тегами по назначению! Цитата прездназначена для цитирования. Для кода используем тег CODE!