Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WebServices + MySQL, Не формирует XML 
:(
    Опции темы
Rodman
Дата 19.7.2006, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Ну к базе данных я подключился... 

Я не могу с генерировать XML файл... как только добавил работу с базой...

Кто нить может подсказать как решить эту проблему...

Клиент просто виснит и ничего не генерирует... в IE та же история, что XML файл не появляется... 


 smile  smile  smile 


Cпасибо 


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
comtat
Дата 19.7.2006, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 1
Всего: 71
Код в студию  smile  


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
Rodman
Дата 19.7.2006, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Код

function TIService.GetEmployeeNames:String;
var dm:TDataModule;
begin
  dm:=TDataModule.Create(nil);
  try
  dm.dsEmplList.Open;
  Result := '<employeelist>' + sLineBreak;
  while not dm.dsEmplList.EOF do
    begin
       Result:=Result+'<IDName>'+dm.dsEmplList.Fields.Fields[0].AsString+'</IDName>'+sLineBreak;
       Result:=Result+'<UsName>'+dm.dsEmplList.Fields.Fields[1].AsString+'</UsName>'+sLineBreak;
       Result:=Result+'<PowName>'+dm.dsEmplList.Fields.Fields[3].AsString+'</PowName>'+sLineBreak;

{      Result := Result + '  ' + MakeXmlStr ('employee',
        dm.dsEmplListLASTNAME.AsString + ' ' +
        dm.dsEmplListFIRSTNME.AsString,
        MakeXmlAttribute ('id', dm.dsEmplListEMPNO.AsString)) + sLineBreak;}
      dm.dsEmplList.Next;
    end;
    Result := Result + '</employeelist>';
  finally
    dm.Free;
  end;
end;

function TIService.GetEmployeeData(PrmNU,PrmPU: string):String;
var dm:TDataModule;
begin
  dm:=TDataModule.Create(nil);
  try
    dm.dsEmpData.ParamByName('NU').AsString := PrmNU;
    dm.dsEmpData.ParamByName('PU').AsString := PrmPU;
    dm.dsEmpData.Open;
    Result:='<AnswePower>'+IntToStr(dm.dsEmpData.Fields.Fields[3].AsInteger)+'</AnswePower>';
    //Result := FieldsToXml ('employee', dm.dsEmpData);
  finally
    dm.Free;
  end;
end;



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

есть например две такие функции созданные в приложении (приложение создано через закладку WebServices)... то что закоментировано - это я нашел пример (но MakeXMLStr, MakeXmlAttribute и FieldsToXml - не могу найти описание этих функций), тем самым попытался написать свою интерпритацию (возможно зря)... но результат - НЕ РАБОТАЕТ!!!

Можно обьяснить???  

Это сообщение отредактировал(а) Girder - 19.7.2006, 15:51


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
comtat
Дата 19.7.2006, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 1
Всего: 71
Манов по этом функциям действительно чета нет
А основная проблема может быть вот сдесь
Код

dm.dsEmpData.Fields.Fields[3].AsInteger
 


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
Rodman
Дата 19.7.2006, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Ну это уже мой код... обычно таким образом я достаю из запроса поля по счету...

запрос такой

SELECT IDUser, NameUser, PassUser, PowerUser FROM USERS WHERE(...);

так в 
        dm.dsEmpData.Fields.Fields[3].AsInteger
я достаю поле PowerUser.

Что я сделал не так??? 


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
comtat
Дата 20.7.2006, 08:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 1
Всего: 71
Почитай вот эти СТАТЬИ должно помочь  smile  


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
Rodman
Дата 21.7.2006, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Понимаете нигде нет точного примера.... в этих статьях на пример описано, что можно использовать SQL запросы... а как и с кем не понятно... 


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

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

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


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


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

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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