Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SQLQuery на Web-сервисе, Не работает SQLQuery на Web-сервисе 
:(
    Опции темы
halilpro
Дата 28.8.2011, 23:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Всем привет!
Помогите решить мою проблему!

вот рабочая часть моей программы:

Код

function TConvert.GiveNewOrders(Value: String): string; 
var XMLDoc: TXMLDocument;
    i: Integer;
    strarInsert: TArStr;
begin
  { TODO : Implement method echoEnum }
  XMLDoc := TXMLDocument.Create(Application);
  XMLDoc.Active := True;
  //XMLDoc.XML.Text := Value;
  XMLDoc.LoadFromFile('d:\2.xml');
 


  strarInsert := GetQueriesFromDataSetXML(XMLDoc);

    WebModule1.SQLConnection1.Connected := True;
    WebModule1.SQLQuery1.Close;
    WebModule1.SQLQuery1.SQL.Clear;
    WebModule1.SQLQuery1.SQL.Add(strarInsert.Strings[0]);
    WebModule1.SQLQuery1.Active := true;
    WebModule1.SQLQuery1.ExecSQL;
 

  Result := strarInsert.Strings[0];

  WebModule1.SQLQuery1.Close;



Функция GetQueriesFromDataSetXML(XMLDoc) возвращает набор Insert-ов. Здесь все работает. Но как только пытаюсь выполнить любое действие с SQLQuery - вылетает ошибка "Acsses Violation". При работе в обычном приложении (а не на Web-сервисе) все работает без заминки. В чем может быть загвоздка?
Спасибо за внимание! 
PM MAIL   Вверх
gashik
Дата 29.8.2011, 01:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Странно, я так же использую в своей программе. Может быть ошибка в том что, в SQLConnection LoginPrompt=True? 
Да и в строках у меня есть еще строка 
SQLQuery1.Params.Clear;
а вот  эту WebModule1.SQLQuery1.Active := true; убери, она не нужна
PM MAIL   Вверх
halilpro
Дата 29.8.2011, 01:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(gashik @ 29.8.2011,  01:03)
Странно, я так же использую в своей программе. Может быть ошибка в том что, в SQLConnection LoginPrompt=True? 
Да и в строках у меня есть еще строка 
SQLQuery1.Params.Clear;
а вот  эту WebModule1.SQLQuery1.Active := true; убери, она не нужна

в том то и дело, что loginpromt=false.
Что касается active = true, то до нее команда не доходит. Программа прерывается при первом вызове Query.close
Для меня странно, ведь сначала я написал тотже код в обычном приложении и все работало, а как перенес все в сервис, так не работает. Я не пойму, почему query отказывается работать

Добавлено через 4 минуты
Цитата(gashik @  29.8.2011,  01:03 Найти цитируемый пост)
Может быть ошибка в том что, в SQLConnection LoginPrompt=True?

кстати, при выполнении команды
 
Код

WebModule1.SQLConnection1.Connected := True;

программа так же прерывается. Я ее комментировал, после чего столкнулся с проблемой query.
Такое ощущение, что не могу получить доступ к webmodule
PM MAIL   Вверх
pseud
Дата 29.8.2011, 08:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40
Тут одно из двух:
1. или WebModule1 не существует
2. или SQLQuery1 не существует
Склоняюсь к первому, т.к. SQLQuery1 наверняка в дизайне брошен на WebModule1. Значит при успешном создании WebModule1 успешно автосоздастся и SQLQuery1. Следовательно первое.


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
halilpro
Дата 29.8.2011, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(pseud @ 29.8.2011,  08:50)
Тут одно из двух:
1. или WebModule1 не существует
2. или SQLQuery1 не существует
Склоняюсь к первому, т.к. SQLQuery1 наверняка в дизайне брошен на WebModule1. Значит при успешном создании WebModule1 успешно автосоздастся и SQLQuery1. Следовательно первое.

Как разобраться создается Webmodule или нет?
PM MAIL   Вверх
pseud
Дата 30.8.2011, 08:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40
Цитата(halilpro @  29.8.2011,  10:44 Найти цитируемый пост)
Как разобраться создается Webmodule или нет? 

Код

if not Assigned(WebModule1) then
  WebModule1 := TWebModule1.Create............

но вообще при создании приложения "веб-служба" веб-модуль является главным окном и такой код должен уже присутствовать в тексте файла проекта:
Код

  Application.CreateForm(TWebModule1, WebModule1);

Если его нет, значит вы создаете веб-службу совсем руками, а не File->New->WebServices...


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
halilpro
Дата 30.8.2011, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(pseud @  30.8.2011,  08:52 Найти цитируемый пост)
но вообще при создании приложения "веб-служба" веб-модуль является главным окном и такой код должен уже присутствовать в тексте файла проекта:
Выделить всёкод Pascal/Delphi
1:
    
  Application.CreateForm(TWebModule1, WebModule1);

Если его нет, значит вы создаете веб-службу совсем руками, а не File->New->WebServices... 


Код

Application.Initialize;
  Application.CreateForm(TWebModule1, WebModule1);
  Application.Run;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "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.0473 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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