VPF::кодировка UTF8 - Форум программистов

MrRadu

Дата 6.4.2013, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 14.3.2013
Где: Россия, Москва

Репутация: нет
Всего: нет

Суть такова. Отправляю Get запрос, с данными. в данных есть "текст".
Увы, до сервера мой "текст" доходит в формате "?????".
Находил пару способов, но они не помогли.
Меняю формат в UTF8, и в другие. увы.
Помогите решить проблему.
Спасибо)
Delphi 2010

Akella

Дата 6.4.2013, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

ошибка в 17ой строке

MrRadu

Дата 6.4.2013, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 14.3.2013
Где: Россия, Москва

Репутация: нет
Всего: нет

Цитата(Akella @ 6.4.2013, 12:39

)

ошибка в 17ой строке

не понял Вас.

Чучмек

Дата 6.4.2013, 13:23 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Цитата(MrRadu @ 6.4.2013, 13:15

)

не понял Вас.

http://forum.vingrad.ru/index.php?showtopi...t&p=2543128

--------------------

умную мысль держи при себе, а дурной - поделись с другими

MrRadu

Дата 6.4.2013, 21:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 14.3.2013
Где: Россия, Москва

Репутация: нет
Всего: нет

Ладно. Работаю с VKAPI
отправляю запрос на сервер, поиск по аудиозаписям.

idhtp1.Get('https://api.vk.com/method/audio.search.xml?q='+item+'&auto_complete=2&count=1&access_token='+token);

item - это критерий поиска, само слово. отправлял как UTF8String. Увы.
Понятие не имею.
Подскажите пожалуйста, какого типа должны быть данные?
или ссылку, где можно почитать. Спасибо

MrRadu

Дата 6.4.2013, 22:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 14.3.2013
Где: Россия, Москва

Репутация: нет
Всего: нет

Проблема решена

Код


function UrlEncode(const s: AnsiString): string;
var
  I: integer;
begin
  Result := '';
  for i := 1 to Length(S) do
    case S[i] of
      '%', ' ', '&', '=', '@', '.', #13, #10, #128..#255: Result := Result + '%'
        + IntToHex(Ord(S[i]), 2);
    else
      Result := Result + S[i];
    end;
end;

idhttp1.Get('https://api.vkontakte.ru/method/messages.send.xml?uid='+form1.id+'&message='+URLEncode(ansitoutf8(mess.Text))+'&access_token='+Form1.accesstoken);

Akella

Дата 7.4.2013, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Так ведь есть готовые функции перевода из String в Utf8String.

Poseidon

Дата 7.4.2013, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(MrRadu @ 6.4.2013, 13:15

)

не понял Вас.

Словарь терминов, 8я строка

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »