Галактика в вопросах и ответах

только как свою такую на атлантисе написать...

только как?

Нашел!
procedure FreeResourceByName(String);

одно не шибко хорошо - ресурсник должен быть в каталоге ехе
но для дебагнутой версии это не смертельно..

может быть еще варианты есть?

вообще говоря, не всегда.
если это будет сделано корректно, то все будет отрабатывать без ошибок.

Доброе время суток!
склероз не излечим, поэтому прошу.. :cry:
подскажите, напомните какая функция выгружает(освобождает) ресурсник ...

подробнее:
есть внешний интерфейс, например живет в g.res . при первой загрузке в галку файл g.res занимается галкой намертво. я его не могу ни удалить(для замены ...

убери в в uses sharemem
BORLNDMM.dll, если мне не изменяет память, есть борланд мемори манагер...
либо есть другой вариант. просто кинь эту длл куда нибудь типа Windows\system или в каталог exe.
и кроме того, функция должна быть не SafeCall а Register

Не обязательно делать так.
Можно запузырить результат запроса во временную таблицу(MT) и с ней уже работать как со всеми таблицами галактики.

Да. есть проблемы, по крайней мере в 6м делфи.
в MS SQL поле F$nrec 8 байт => можно использовать функции преобразования. Например Cast(F$nrec as bigint) и с результатом уже работать. но тут тоже не все так гладко. на некоторых значениях нрека(сконверченного в BigInt) в делфи вываливаются ошибки ...

вообще говоря register - соглашение о вызове процедур и функций используется в делфи по умолчанию.

если отчет или интерфейс сможет узнать о существовании функции то использовать конечно можно и там и сям


[/quote]

есть некоторые ограничения.
строки в Vip паскалевские ShortString в дос кодировке(cp866)
процедуры и функции должны быть объявлены как register.
раньше было такое что название процедур/функций должны были описываться в верхнем регистре.

А для ADODB.Recordset я нарисовал в дллке ряд функций оберток ...

это текст qwerty.dll

library qwerty;

function GetPi:Double;register;
begin
result := 3.14;
end;
exports
GETPI;
begin
end;

а это вип прога:

Function GETPI:Double;external 'qwerty.dll';

interface qwerty 'qwerty'
//....
// тут что то свое
//...
procedure ShowPi;
begin
message('2Pi' + String(2 ...

как-раз наоборот

пардоньте.
ошибся

первасива, повторюсь, в глаза не видел.
аналог твоего запроса - переделанный но для MS SQL и почти без условий. у меня отрабатывает.
может и поможет.
select
t.F$atl_lastdate,
t.F$atl_lasttime,
t.F$nrec,
T$morale.F$name,
t.F$corg,
T$tiptex.F$name as tipts,
T$tiptex.F$nrec as ctipts,
T$marka ...

пишем свою DLL, в которой живет нужная функция.
подключаем ее к VIP программе и наслаждаемся

для MS SQL (как для других платформ, не знаю)

== идут как inner join
/== идет как left outer join

=(равно) остается как и есть

Имена таблиц начинаются с T$(например T$Transp - это Transp)
имена полей начинаются с F$(например F$Nrec - это Nrec)

только в DBF придется экспортировать через другой ...