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

Himan

Дата 2.11.2006, 13:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Пишу модуль до апача. На сервере генерится xml и выпускается в поток. Вот код

Код


OracleSession1->LogOn(); //соединяемся с базой
  OracleDataSet1->Open(); //открывает таблицу

  XMLDocument1->Active = true;
  XMLDocument1->DocumentElement = XMLDocument1->CreateNode("Container_Type", ntElement, "");
  for(OracleDataSet1->First(); !OracleDataSet1->Eof; OracleDataSet1->Next()){
    _di_IXMLNode Record = XMLDocument1->DocumentElement->AddChild(WideString("record"));
    for(int i=0; i < OracleDataSet1->FieldCount; i++){
      _di_IXMLNode ValueNode = Record->AddChild(WideString(OracleDataSet1->Fields->Fields[i]->FieldName));
      ValueNode->Text = WideString(OracleDataSet1->Fields->Fields[i]->Value);
    }
  }
  TMemoryStream *S = new TMemoryStream();
  XMLDocument1->SaveToStream(S);
  S->Position = 0;
  //Response->ContentType = "application/octet-stream"; -- эту строку я исключил в попытках найти ошибку, нужна ли она?
  Response->ContentStream = S; 

  delete S;
  OracleDataSet1->Close(); //закрываем таблицу
  OracleSession1->LogOff(); //закрываем сессию

На клиенте принимаем этот поток и записываем в файл

Код


TMemoryStream *S = new TMemoryStream();
  idHTTP->Connect();
  idHTTP->DoRequest(hmGet, Edit1->Text, NULL, S); //на этой строке выдаётся ошибка "500 Internal server error"
  S->Position = 0;
  XMLDocument1->LoadFromStream(S);
  XMLDocument1->SaveToFile("d:\\WebProbe.xml");
  idHTTP->Disconnect();
  delete S;

Где я протормозил, скажите пожалуйста? Сервер абсолютно рабочий, проверял. Дело именно в моём модуле на сервере (а может и на клиенте)

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