Всем привет!
Помогите решить мою проблему!
вот рабочая часть моей программы:
Код:
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-сервисе) все работает без заминки. В чем может быть загвоздка?
Спасибо за внимание!