Решено: Postgres в fpc

[azsx]

Не совсем понятно как работать с БД постгрес через консоль. Нет ли у кого нибудь примера? А то в вики я нахожу только примеры с формами, когда на форму бросаются компоненты.
Вот я написал в uses pqconnection; и что дальше?
---
Надо было в коде написать
DataModule1:=TDataModule1.Create(nil);
***
DataModule1.Free;

[alexs]

В консоле точно также можно использовать DataModule. Вот на нём и размещай визуально все необходимые тебе компоненты.

[azsx]

Не могу найти DataModule

[alexs]

Файл/Создать .../Модуль данных
Выглядит как форма - но не форма
Просто удобный не визуальный контейнер для других не визуальных элементов. На нём удобно держать всякие строковые массивы, те же запросы и т.д.
На картинке пример моего одного такого модуля - консольная утилита для переливания данных между сетями и сервисами.

[azsx]

добавил модуль данных. установил на него все библиотеки для постгрес.
Выводит ошибку
external sigsegv
в строке
my_modul.DataModule1.QueryPQ1.SQL.Add(my_select);
Как я понял, мне надо как-то зарегистрировать модуль как класс. А как это сделать? В uses программы я его прописал
uses my_modul;

[DYUMON]

а ты datamodule создаешь в коде? перед тем как использовать компоненты с него?

[azsx]

Нет, я не умею. Я uses my_modul; написал.

Добавлено спустя 8 часов 56 минут 33 секунды:
Как было бы здорово, если кто-нибудь хоть чуть чуть бы помог. Вот значимая часть кода

Код: Выделить всё

program shingl3;
uses
  cthreads, Classes, s_modul, LAZUTF8;

procedure shingl3();
var
  z_select_text_html : string;

begin
  z_select_text_html := 'SELECT * FROM public.test WHERE id_test = 10 limit 1;';
  s_modul.DataModule1.QueryPQ1.SQL.Add(z_select_text_html);     

То есть когда я в процедуре нажимаю точку в s_modul. у меня выходит подсказка TDataModul и DataModule1. Далее я также иду по подсказкам. Вот что или как мне надо зарегистрировать в моем модуле данных, который называется s_modul?

[WAYFARER]

Код: Выделить всё

program shingl3;
uses
  cthreads, Classes, s_modul, LAZUTF8;

procedure shingl3();
var
  z_select_text_html : string;
  DataModule1: TDataModule;

begin
  DataModule1:= TDataModule.Create(nil);
  z_select_text_html := 'SELECT * FROM public.test WHERE id_test = 10 limit 1;';
  s_modul.DataModule1.QueryPQ1.SQL.Add(z_select_text_html);     
  ...
  DataModule1.Free;