Delphi Studio » Вопросы и ответы по Delphi » Проблемы с русскими символами в Indy.
Проблемы с русскими символами в Indy.- Как отправить русские значения параметров на Indy?
- Как отправить русский пароль для Vkontakte.ru?
Ответы на эти вопросы смотрите ниже.
Если к вам в ответе приходят вопросительные знаки вместо русских букв, то лучше использовать StringStream, как буфер для ответа. Вот код, который я использовал для Vkontakte.ru :
a : TStringStream;
temp : string;
begin
a := TStringStream.Create(temp);
IdHTTP1.Get('http://vkontakte.ru', a);
Memo1.Lines.Add(a.DataString);
А для 2 и 3 вопроса, ответ достаточно прост - используйте UrlEncode для кодирования параметров. Вот код данной функции. Можете конечно и написать свой :)
begin
case Digit of
0..9: Result := Chr(Digit + Ord('0'));
10..15: Result := Chr(Digit - 10 + Ord('A'));
else
Result := '0';
end;
end; // DigitToHex
function URLEncode(const S: string): string;
var
i, idx, len: Integer;
begin
len := 0;
for i := 1 to Length(S) do
if ((S[i] >= '0') and (S[i] <= '9')) or
((S[i] >= 'A') and (S[i] <= 'Z')) or
((S[i] >= 'a') and (S[i] <= 'z')) or (S[i] = ' ') or
(S[i] = '_') or (S[i] = '*') or (S[i] = '-') or (S[i] = '.') then
len := len + 1
else
len := len + 3;
SetLength(Result, len);
idx := 1;
for i := 1 to Length(S) do
if S[i] = ' ' then
begin
Result[idx] := '+';
idx := idx + 1;
end
else if ((S[i] >= '0') and (S[i] <= '9')) or
((S[i] >= 'A') and (S[i] <= 'Z')) or
((S[i] >= 'a') and (S[i] <= 'z')) or
(S[i] = '_') or (S[i] = '*') or (S[i] = '-') or (S[i] = '.') then
begin
Result[idx] := S[i];
idx := idx + 1;
end
else
begin
Result[idx] := '%';
Result[idx + 1] := DigitToHex(Ord(S[i]) div 16);
Result[idx + 2] := DigitToHex(Ord(S[i]) mod 16);
idx := idx + 3;
end;
end; // URLEncode
function URLDecode(const S: string): string;
var
i, idx, len, n_coded: Integer;
function WebHexToInt(HexChar: Char): Integer;
begin
if HexChar < '0' then
Result := Ord(HexChar) + 256 - Ord('0')
else if HexChar <= Chr(Ord('A') - 1) then
Result := Ord(HexChar) - Ord('0')
else if HexChar <= Chr(Ord('a') - 1) then
Result := Ord(HexChar) - Ord('A') + 10
else
Result := Ord(HexChar) - Ord('a') + 10;
end;
begin
len := 0;
n_coded := 0;
for i := 1 to Length(S) do
if n_coded >= 1 then
begin
n_coded := n_coded + 1;
if n_coded >= 3 then
n_coded := 0;
end
else
begin
len := len + 1;
if S[i] = '%' then
n_coded := 1;
end;
SetLength(Result, len);
idx := 0;
n_coded := 0;
for i := 1 to Length(S) do
if n_coded >= 1 then
begin
n_coded := n_coded + 1;
if n_coded >= 3 then
begin
Result[idx] := Chr((WebHexToInt(S[i - 1]) * 16 +
WebHexToInt(S[i])) mod 256);
n_coded := 0;
end;
end
else
begin
idx := idx + 1;
if S[i] = '%' then
n_coded := 1;
if S[i] = '+' then
Result[idx] := ' '
else
Result[idx] := S[i];
end;
end; // URLDecode
Думаю это поможет вам отправить русские символы в Indy
26 | 
0
Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.
Лучшее на Delphi Studio
Лучшие книги по Delphi
-
Книга Delphi 2010 Handbook with Source Code - Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010 
Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов - Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений
Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б - Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP
Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
Книга Delphi Быстрый Старт - В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal
Книга Indy in Depth. Глубины Indy - Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры
Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов - Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты
Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом
- Delphi Studio Примеры на Delphi Примеры на Delphi [Сеть Интернет] Примеры на Delphi [Система] Примеры на Delphi [Графика Мультимедиа] Примеры на Delphi [Базы данных] Delphi Исходники Исходники Delphi [Сеть Интернет] Исходники Delphi [Система] Исходники Delphi [Графика Мультимедиа] Delphi Исходники [Базы данных] Компоненты Delphi Скачать Компоненты Delphi Скачать Delphi / Pascal Скачать Книги, Учебники Delphi Скачать Книги, Учебники Pascal Delphi Статьи Pascal Статьи Вопросы и ответы по Delphi Вопросы и ответы по Pascal Карта сайта Delphi Studio Канал RSS Delphi Studio
delphi компоненты для работы в трей
delphi свернуть в трей
Delphi вывести случайное число
обновить indy
права доступа к файлам delphi
скачать учебник delphi 7
как скопировать в tstringlist из memo
StringReplace delphi2010
delphi как нажать кнопку Button
Как добавить прграмму в Total Commander
delphi stringgrid нажатие на заголовок
как на delphi свернуть программу в трей
загрузить файл на ftp вудзрш
delphi компонент анимация gif
vcl, определить размер файла
delphi как проверить существует ли фаил
учебник delphi 2010
как скопировать первые 10 знаков string delphi
icq база данных исходник
скачать бесплатно исходники для delphi 7
создать twebbrowser программно
delphi bitblt jgbcfybt
архангельский delphi 7 скачать
форму панель задач Delphi
язык Delphe.net
открыть форму дельфи
программно перезагрузить
компонент CoolTrayIcon
delphi скачать картинку
Delphi считать случайную строку из файла
проверка интернет на Delphi
последовательность форм в Delphi
delphi TAdvAlertWindow
электронный учебник в Delphi исходник
создание кнопки в delphi при нажатии открывалось окно
delphi программно свернуть чужое окно
найти задания для Delphi 7
Сайт Delphi Studio рассчитан для начинающих, новичков, чайников, которые решили программировать на Delphi :)
Добавляйте свои примеры, исходники, компоненты, статьи и тогда на сайте будет много полезной информации, что поможет друг другу находить нужный материал.
Функции для работы со строками в Delphi + примеры - Функции для работы со строками в Delphi + примеры (Pos, Copy, ReverseString, Insert, Delete, SetLength, IntToStr, StrToInt, FloatToStr, StrToFloat, DateToStr, TimeToStr, StrToDate, StrToTime, LowerCase, UpperCase, Trim, TrimLeft, TrimRight)
Как создать браузер (WebBrowser) Пример на Delphi - Пример создания браузера на Delphi с использованием компонента WebBrowser
Как не дать открыть Диспетчер задач Windows Пример на Delphi - Пример на Delphi показывающий как не дать открыть Диспетчер задач Windows. На форму нужно кинуть компонент Timer
» Delphi 7
» Многопоточность в Delphi
» Авторизация вконтакте на IdHTTP(Indy)
» Капча. Отправка на antigate.com
» Скачать компонент AlphaControls для Delphi
» Скачать компонент NextGrid для Delphi
» Как склеить несколько картинок в одну на Delphi
» Использование WinSock в Delphi. Часть 1
» Программа для решения судоку
» Использование ProgressBar при работе c IdHTTP
» Как программно выключить монитор? Пример на Delphi
» Использование WinSock в Delphi. Часть 2
» Проблемы с русскими символами в Indy.
А знаете ли вы что такие известные программы как AIMP, Skype, QIP, QIP Infium, R&Q, The Bat!, FL Studio, Guitar Pro, Game Maker, Total Commander, PowerArchiver, Download Master написаны на Delphi? И это далеко не весь список программ чем может похвастаться продукция Borland Delphi!
18.05.2010
08.05.2010
28.04.2010
24.04.2010
23.04.2010
22.04.2010
21.04.2010
19.04.2010
18.04.2010
17.04.2010
16.04.2010
15.04.2010
14.04.2010
13.04.2010
Май 2010
Апрель 2010
