[halilpro]

Всем привет!
Помогите решить мою проблему!

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

Код:

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-сервисе) все работает без заминки. В чем может быть загвоздка?
Спасибо за внимание!