Не могу создать 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 байтов?

> Правильный_Вася (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;

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