VPF::Компиляция проекта с базой данных

IVS_Studio

Дата 9.1.2006, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 16.2.2005
Где: планета Zемля

Репутация: нет
Всего: нет

Люди!!!
Кто нибудь знает как скомпилировать проект, содержащий объекты datasourse, Table, ADO...
Всё сделал, проект работает, но как делфю сношу, так всё колом встаёт, матерится и не хочет рабатать....
посоветуйте, кто что знает, может у кого были такие проблемы...
а то я уже и на VB с такой проблемой встречался... думал тут не будет её, а оно вот как...

Alex

Дата 10.1.2006, 00:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

Компонент Table требует для своей работы установленной BDE http://forum.vingrad.ru/index.php?act=Sear...%ED%EE%E2%EA%E0

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

IVS_Studio

Дата 10.1.2006, 01:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 16.2.2005
Где: планета Zемля

Репутация: нет
Всего: нет

тоесть это всё из-за тэйБЛЯ?
Добавлено @ 01:32

Цитата(FRAGNATIC @ 9.1.2006, 15:38)

IVS_Studio
взять просто и скомпилить это компоненты всегда есть)
а зачем дэлфи сносить?
проверь подключеныли все компоне6нты правильно к БД =))

так а если я на делфе первый раз писал, то от куда мне знать что там надо сносить...
А вот на счёт БДЕ, так может есть кокой нибудь способ описания этого Table без установки...
Просто у меня прога, итоговая должна работать без установки... так надо... не от меня зависит вобщем...

FRAGNATIC

Дата 10.1.2006, 02:13 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 2
Всего: 11

Цитата(IVS_Studio @ 9.1.2006, 14:31

)

ADO...

так ты с адо компонентами работаешь или с BDE ?
адо вообщем не требует установки чего либо (правда смотря какая ОС )

Alex

Дата 11.1.2006, 03:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

IVS_Studio, если проект не сверх секретный, то выложите его, посмотрю, что у вас там не работает

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

bas

Дата 11.1.2006, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: 1
Всего: 2

Цитата(FRAGNATIC @ 10.1.2006, 02:13

)

адо вообщем не требует установки чего либо (правда смотря какая ОС

Согласен , но работа идет через Table - это значит через BDE.

IVS_Studio

Дата 11.1.2006, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 16.2.2005
Где: планета Zемля

Репутация: нет
Всего: нет

мне тут посоветовали с ADO попробовать... я точно не знаю как , но попробую... если и с этим не потянет... то хоть вешайся. не на си же писать....

а насчёт Таble... так это точно... брал с вкладки BDE...
Добавлено @ 12:19

Цитата(Alex @ 11.1.2006, 03:43)

IVS_Studio, если проект не сверх секретный, то выложите его, посмотрю, что у вас там не работает

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

IVS_Studio

Дата 11.1.2006, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 16.2.2005
Где: планета Zемля

Репутация: нет
Всего: нет

Цитата(Alex @ 11.1.2006, 03:43)

IVS_Studio, если проект не сверх секретный, то выложите его, посмотрю, что у вас там не работает

вышлю... вот олько найду, где он тут... адресс ентот...

Alex

Дата 13.1.2006, 03:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

Извиняюсь за долгое молчание, не много занят был. Я посмотрел ваш проект, вы используете чистый BDE и для работы программы на других машинах вам необходимо на них установить BDE. О том как лучше это сделать не раз писали на форуме. Вот одна из тем http://forum.vingrad.ru/index.php?showtopic=31030

PS:
Решил прикрепить ваши исходники, вдруг еще кто-то захочет посмотреть

Это сообщение отредактировал(а) Alex - 13.1.2006, 03:21

Присоединённый файл ( Кол-во скачиваний: 7 )

Code.rar 120,15 Kb

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

IVS_Studio

Дата 13.1.2006, 08:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 16.2.2005
Где: планета Zемля

Репутация: нет
Всего: нет

Пасиба, мы тута уже поняли, что нужно включать BDE, даже нашли как ... Но всё же это получается Setup файл...
И так как по другому ничего не получается, то оставим сетап...

За всё пасиба!!!

kobra

Дата 13.1.2006, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 730
Регистрация: 15.6.2005
Где: Грузия, Тбилиси

Репутация: 1
Всего: 9

Цитата(IVS_Studio @ 13.1.2006, 08:10

)

И так как по другому ничего не получается, то оставим сетап...

а что с ADO не получается?

Albinos_x

Дата 13.1.2006, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

Цитата(IVS_Studio @ 13.1.2006, 08:10

)

Пасиба, мы тута уже поняли, что нужно включать BDE, даже нашли как ... Но всё же это получается Setup файл...
И так как по другому ничего не получается, то оставим сетап...

ну можно и сделать в приложении... к примеру :
распаковываешь CAB архив в папку bdeinst, размещаешь папку в папке своей программы
в своём приложении
делаешь по умолчанию:
Table1.Active:=false;
далее пишешь функцию:

Код


interface

uses DBierrs, DB, DBTables, ...;

 type
    tDllRegisterServer = function : HResult; stdcall;

    function BDEInstalled: Boolean;
    procedure BDEInst(name:string);
...

var
  h : integer;
  regserv: tDllRegisterServer;
...
function BDEInstalled: Boolean;
begin
Result := (dbiInit(nil) = 0);
end;

procedure BDEInst(name:string);
begin
if not BDEInstalled then
   begin
   if fileexists(ExtractFilePath(Name)+'bdeinst\BdeInst.dll') then
      begin
      MessageDlg('ОШИБКА: Borland Database Engine (IDAPI) не найдена' + #13+
                 'Будет выполнена её установка...', mtError, [mbOK], 0);
   h:=loadlibrary(Pchar(ExtractFilePath(Name)+'bdeinst\BdeInst.dll'));
   if h=0 then halt;
   @regserv := GetProcAddress ( h, 'DllRegisterServer' );
   regserv;
   freelibrary(h);
   end;
   if not BDEInstalled then
      begin
      MessageDlg('ОШИБКА: Borland Database Engine (IDAPI) не найдена' + #13+
                 'перед следующей попыткой ее необходимо установить',mtError, [mbOK], 0);
      halt;
      end;
   end;
end;
...

теперь в главном модуле проекта:

Код

...
  Application.Initialize;
  BDEInst(Application.ExeName);
   Application.CreateForm(TForm1, Form1);
...

незабываем при загрузке подключать БД
к примеру :

Код


procedure TForm1.FormCreate(Sender: TObject);
var fs:string;
begin
fs:=ExtractFilePath(Application.ExeName);
// проверяем наличие файла БД
if (FileExists(fs+'MyBD.db')) then
      begin
     // если есть подключаем его
      Table1.TableName:=fs+'MyBD.db';
      Table1.Active:=true;
      end
      else
      begin
      // если файла БД нет
      // создаём его
      Table1.Active:=false;
      Table1.TableName:=fs+'MyBD.db';
      Table1.TableType:=ttParadox;
      with Table1.FieldDefs do
          begin
          clear;
          // к примеру база содержит два поля
          Add('Num',ftString,10,false);
          Add('Dat',ftString,10,false);
          end;
      Table1.CreateTable;
      Table1.Open;
      Table1.Active:=true;
      end;
   end;

теперь при каждом запуске программа проверяет наличие драйвера... если его нет, то она устанавливает его, если установка не произошла, то программа выключается...

Это сообщение отредактировал(а) Albinos_x - 13.1.2006, 08:53

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

IVS_Studio

Дата 15.1.2006, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 16.2.2005
Где: планета Zемля

Репутация: нет
Всего: нет

Понимаете... там, где мне это показывать у меня закрыт доступ ко ВСЕМУ!!! и я не могу ни что-либо устанавливать, ни регестрировать, у меня есть определённая папка в которой мне можно хоть что то тсохранить... и ВСЁ!!!, А тот человек, которому это всё нужно(препод), не может даже мышкув руках удержать... вобщем полный тупик...
я что и пытаюсь сделать всё это не прибегая к созданию сетаповского файла...
Сейчас у меня есть версия(точнее их несколько), они всё установочные... а такие , сколькими способами не пробовал, ничего не выходит... smile

так что Спасибо Вам за всё, пойду завтра(точнее сегодня), сдавать эту бадягу... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »