Скачать: CL | DM;

Не могу создать DBF файл на соседнем компе (   Найти похожие ветки 

← →
312kbps   (2008-01-10 17:36) [0]

программа создает DBF файл

uses
 DBTables, DB ....

procedure TForm1.CreateDBF;
var
 tblDBF : TTable;
begin
 tblDBF := TTable.Create(Self);
 with tblDBF do
  begin
   Active := False;
   DatabaseName := ExtractFilePath(ParamStr(0));

   TableName := "backup";
   TableType := ttDBase;
   TableLevel := 3;
    with FieldDefs do begin
     Clear;

     with AddFieldDef do begin
       Name := "dir_base";
       DataType := ftString;
       Size := 300;
       Required := false;
     end;
    end;
     CreateTable;
  end;
  tblDBF.Free;
end;

у меня на компе все работает хорошо, а вот на соседнем нет , ругается на DBE

что надо сделать чтоб и на других компах работало !?

---

← →
Palladin ©   (2008-01-10 17:37) [1]

поставить DBE

---

← →
312kbps   (2008-01-10 17:38) [2]

а в проект это вставить можно !?

---

← →
Palladin ©   (2008-01-10 17:41) [3]

ну можешь в ресурсы запихать инсталлятор, при запуске проверять наличие и в случае отсутствия исполнять инсталлятор

---

← →
312kbps   (2008-01-10 17:44) [4]

можно ли чуть поподробнее рассказать об этом процессе !?
спасибо )

---

← →
Palladin ©   (2008-01-10 17:49) [5]

1. Ищешь инсталлятор BDE (я им не пользуюсь - потому не знаю как он выглядит)
2. Создаешь файл ресурсов содержащий его
3. Подключаешь этот файл ресурсов в любом месте в исходном коде
4. По признакам наличия BDE на, исполняющем программу, устройстве (я не пользуюсь BDE, потому признаки мне не известны) определяешь наличие отсутствия или отсутствие наличия BDE
5. Если все таки наблюдается наличие отсутствия или отсутствие наличия, выдергиваешь, вдернутый в исполняемый файл, инсталлятор BDE и исполняешь его
6. С чистой совестью продолжаешь работу

---

← →
312kbps   (2008-01-10 17:51) [6]

спасибо )))

либо как я понял, воспользоваться компонентой для dbf )

---

← →
Palladin ©   (2008-01-10 17:52) [7]

ну да... в сети полно модулей, которым вообще никаких драйверов не нужно..
бо dbf это простой структурированный файл

---

← →
Правильный_Вася   (2008-01-10 18:28) [8]

> TableType := ttDBase; TableLevel := 3; DataType := ftString; Size := 300;

а что, дбаз 3 поддерживает символьные поля более 256 байтов?

---

← →
Anatoly Podgoretsky ©   (2008-01-10 23:09) [9]

> Правильный_Вася  (10.01.2008 18:28:08)  [8]

Он и 256 не поддерживает, и 255

---

← →
Простой   (2008-01-14 19:57) [10]

Из одного из первых моих проектов

//Функция проверки установки BDE
function BDEInstalled: Boolean;
begin
 Result := (dbiInit(nil) = 0)
end;


procedure TForm1.FormShow(Sender: TObject);
begin

 if BDEInstalled then
 begin
   //что-то делаем
 end
 else
 begin
   Application.MessageBox("Для нормальной работы программы на Вашем"+#13#10+
                          "компьютере должен быть установлен процес-"+#13#10+
                          "сор баз данных BDE (Borland DataBase Engine).",
                          " Предупреждение", MB_Ok + MB_ICONError);
 //что-то делаем
   exit
 end;
 

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c