Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.04.2010, 14:04   #1
Rusland
Пользователь
 
Регистрация: 13.04.2010
Сообщений: 16
По умолчанию FibPlus в клиент-серверном приложении

Добрый день.
Пишу клиент-вебсерверное приложение (SOAP).
В серверной части в WebModule (Unit1.pas) добавил компоненты FibPlus: TpFIBDatabase, TpFIBTransaction, TpFIBDataSet.

Настроил подключение к своей базе данных и хочу просто передать какое-нибудь значение из базы в клиентскую часть

(потом хочу передавать весь датасет, но это потом).
Написал функцию для обращения к таблице из базы (S1Impl.pas)
...
function Ts1.GetDataFromBase(s:AnsiString): AnsiString; stdcall;
begin
Log('Начало функции'); // ведем лог в файл
try
WM.FbDatabase.Connected:=true; // здесь выдает Access Violation
WM.FbFirms.Active:=true;
Result:=WM.FbFirmsFIRMA.AsString;
WM.FbDatabase.Connected:=false;
except
on E: Exception do Log('Произошла ошибка '+E.Message); //, E.HelpContext
end;
Log('Конец функции');
end;


WM - это TWM = class(TWebModule)
FbDatabase: TpFIBDatabase;
FbFirms: TpFIBDataSet;


При вызове функции из клиентского приложения я получаю "Access violation at address 0055F78F in module 'webserv1.exe'. Read

of address 000000AC" на строке WM.FbDatabase.Connected:=true;
Если не обращаться к базе данных, то все нормально - никаких ошибок.
После долгих экспериментов увидел, что "Ахсекс виалейшн" вываливается при любом обращении к любому свойству/методу

FbDatabase.
Похоже что на момент обращения не создан сам WebModule (WM). Как это проверить?

PS. Использую BDS2006, FibPlus, Firebird2.0.1, сервер Apache, WinXP
Ссылка на исходники:
http://www.onlinedisk.ru/file/405488/ (клиентская часть)
http://www.onlinedisk.ru/file/405493/ (серверная часть)
Rusland вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Чтение значения в FIBPlus Таптыгин Компоненты Delphi 8 19.08.2009 13:15
Firebird FibPlus pFibStoredproc vovk БД в Delphi 4 26.05.2009 16:37
Возможно-ли Клиент-серверное приложение типа Клиент(Pascal) а сервер(CGI)? Demol Работа с сетью в Delphi 1 21.04.2009 16:18
FibPlus v6.45 Timon3 Компоненты Delphi 3 02.06.2008 01:55
FIBPlus Trech БД в Delphi 2 22.05.2008 12:19