Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отправка данных методом POST, Отправить данные с помощью TWebBrowser 
:(
    Опции темы
walenok
  Дата 23.4.2007, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Всем привет
Уважаемые гуру, помогите. Мне необходимо передать на web-сервер методом POST xml-файл, вернее даже не файл, а поток данных структурированных в виде xml. Все это замечательно реализуется с помощью TIdHTTP, но к сожалению, сервер работает через SSL, причем в качестве криптопровайдера используется ГОСТовский протокол CryptoPro, который не поддерживается стандартной библиотекой OpenSSL. Поэтому я пытаюсь передать данные с помощью TWebBrowser. Процедура стандартная:

procedure TForm1.Button3Click(Sender: TObject);
var
  Data: Pointer;
  S: WideString;
begin
    S :=  FileToString(FileName); //Здесь я загоняю xml-файл в строку
    PostData := VarArrayCreate([1, Length(S) + 1], varByte);
    Data := VarArrayLock(PostData);
    try
      Move(S[1], Data^, Length(S));
    finally
      VarArrayUnlock(PostData);
    end;
    Headers := 'Connection: keep-alive'#10'Content-Type: text/xml'#10'Accept-Language: ru'#10'Accept: text/html, */*'#10'Referer: http://xxx.yyy/Servlet'#10'User-Agent: Mozilla/3.0'#10;
    Flags := EmptyParam;
    TargetFrameName := EmptyParam;
    WebBrowser1.Navigate('http://xxx.yyy/Servlet', Flags, TargetFrameName, PostData, Headers);
end;

Все вроде передается, но к сожалению xml-документ содержит русские буквы, которые при передаче TWebBrowser'ом конвертируются в какую-то бяку:
<street>дырдырдырдыр</street>
<city>дырдырдырдыр</city>
То ли это UTF, то ли еще что...
Короче каждая буква передается двумя символами, причем второй chr(4)
Подскажите, как можно отучить его от этой вредной привычки? smile
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




[ Время генерации скрипта: 0.0412 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.