FreePascal.ru

Привет. Может кто подскажет, где можно найти пример CGI-Application на Лазаре. Спасибо заранее

Все, я разобрался. Просто воспользовался чужим куском кода, даже не посмотрев . Такм динамически созавался еще один компонент трансзакции. Убрал - все заработало через одно соединение. И память тоже перестала расходоваться

Да есть. Например для Линух http://sourceforge.net/project/showfile ... p_id=89339
и здесь
http://www.hu.freepascal.org/lazarus/

Я создаю Panel динамически и в качестве Parent определяю какую-нибудь форму. вовремя создания происходит мелькание Panel. Сперва появляется прямоугольник, а потом прорисовыается вся панель. Из-за этого возникает мелькание. Lazarus 0.9.17.
Кто-нибудь уже боролся с этим?

Это странно. я уже писал: в Делфи все работает нормально. При закрытии TDataset и освобождении памяти, на сервере тоже память освобождается.
Почему здесь не так? Ну ок отключу я соединение, а что делать с остальными запросами? Их ведь придется тоже переоткрывать?
Или нужно для каждого запроса ...

Нет так на вскидку не помогает просто транзакцию закрыть.
Не разрывать же соединение каждый раз.

так весь фокус в том, что я стал явно закрывать SQLQuery, но это ничего не дает. И это не глюк Firebird. Черт его знает, может нужно явно транзакцию завершить? Хотя в Делфи это не нужно было делать.
Ладно будем копаться дальше. Спасибо за ответ

Обратил внимание, что независимо, от того как закрываются формы на которых есть компоненты типа TSQLQuery, сервер Firebird память не особождает вплоть до закрытия программы. Повторное создание такой формы приводит к дополнителным затратам памяти со стороны сервера. В Делфи все работает нормально ...

Не просто должно работать, а работает. я это уже делал

Если кому интересно - решение проблемы я нашел.
Из-за того, что одну форму в другую вложить не удалось, я сделал компонент наследник TPanel куда привязал DBGrid, DataSource и SQLQuery. В конструкторе после создания компонентов я и вызывал метод SQLQuery.Open. В результате отладчик отлавливал ...

Выглядит это у меня вот так :
SQL_Reg:=TSQLQuery.Create(Frm_main.IBConnection1);
SQL_Reg.DataBase:=Frm_main.IBConnection1;
SQL_Reg.Transaction:=Frm_main.SQLTransaction1;
SQL_Reg.SQL.Text:='select * from users';
DTSource1:=TDatasource.Create(TheOwner);
DTSource1.DataSet:=SQL_Reg;
...
SQL_Reg ...

Это я уже понял, спасибо . Но есть еще заскок. Я пробовал в рантайме создать TSQLQuery. При его открытии возникает ошибка в коде LCLProc - procedure RaiseGDBException(const Msg: string);
Если удалить strip-ом следы отладчика, то в результате выдается сообщение - Деление на ноль.
Но ошибки нет ...

Использую DataModule или главную форму для хранения например
TIBConnection. Но несмотря на то, что ссылка на Datamodule или главную форму прописана в uses, в редаторе свойств для например того же TSQLQuery ссылок на на эти компоненты нет, как в Delphi. Если пробовать прописывать свойство вручную ...

Спасибо большое. Я недавно с Лазарем работать начал, после Delphi. Стал искать что-то похожее на TFrame, но не нашел

Я попробовал вложить одну форму в другую, по типу того, как это возможно в Delphi. Например :
Form2.Parent:=Form1.Panel1;
Form2.Align:=alClient;
После чего Form2 ведет себя как обычная панель.
Но номер не прошел. Form2 при этом ведет себя, как модальная. Доступ к главной форме естественно ...