VPF::Удаление пробелов из принятой по хттп xml

hug

Дата 27.10.2007, 09:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вот такая проблемка.
Получаю xmlку с сайта.
Необходимо ее парсить.

Код



    Source:=TmemoryStream.Create;
    Source1:=TMemoryStream.Create;
    Url:='....';
    try
        HTTP.Request.ProxyServer := proxy;
        HTTP.Request.ProxyPort := port;      
        HTTP.Get(URL,Source);
        XMLDocument1.LoadFromStream(Source);
        XMLDocument1.Active:=true;

Проблема в том что в потоке идет xmlка с начальными пробелами. и парсер не может провести валидность. Возможно надо как то удалить эти проблеы из потока но как?

Alexeis

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

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

hug, советую вместо TMemoryStream использовать, TStringStream. Тогда удаление пробелов будет проще.
Пример

Код


var
  st : TStringStream;
begin
  st := TStringStream.Create('   egweyweywey');
  st.WriteString(TrimLeft(st.DataString));

TStringStream это тот же TMemoryStream, но данные хранит в виде строки.

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

hug

Дата 27.10.2007, 11:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Alexeis @ 27.10.2007, 10:19)

hug, советую вместо TMemoryStream использовать, TStringStream. Тогда удаление пробелов будет проще.
Пример

Код


var
  st : TStringStream;
begin
  st := TStringStream.Create('   egweyweywey');
  st.WriteString(TrimLeft(st.DataString));

TStringStream это тот же TMemoryStream, но данные хранит в виде строки.

спасибо.

Код


Response:=TStringStream.Create('');
HTTP.Get(URL,Response);

Вот столкнулся с тем , что страничка не попадает в СтрингСтрим

Alexeis

Дата 27.10.2007, 11:52 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  s   : AnsiString;
  mem : TStringStream;
begin
  IdHTTP1.proxyparams.ProxyServer := '10.0.0.1';
  IdHTTP1.proxyparams.ProxyPort   := 8080;
  mem := TStringStream.Create('');
  IdHTTP1.Get('http://ya.ru/', mem);
  s := mem.DataString;
end;

У меня все четко сработало на Indy 10.

Добавлено через 17 секунд
В строке HTML страница.

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

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