Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не могу создать DBF файл на соседнем компе ( [D7, dBase, FoxPro]

312kbps © (2008-01-10 17:36:00)
программа создает 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

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

Простой (2008-01-14 19:57:00) [1]
Из одного из первых моих проектов
//Функция проверки установки 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;

Anatoly Podgoretsky (2008-01-10 23:09:00) [2]
> Правильный_Вася (10.01.2008 18:28:08) [8]

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

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

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

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

Palladin (2008-01-10 17:52:00) [4]
ну да... в сети полно модулей, которым вообще никаких драйверов не нужно..
бо dbf это простой структурированный файл

312kbps (2008-01-10 17:51:00) [5]
спасибо )))

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

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

312kbps (2008-01-10 17:44:00) [7]
можно ли чуть поподробнее рассказать об этом процессе !?
спасибо )

Palladin (2008-01-10 17:41:00) [8]
ну можешь в ресурсы запихать инсталлятор, при запуске проверять наличие и в случае отсутствия исполнять инсталлятор

312kbps (2008-01-10 17:38:00) [9]
а в проект это вставить можно !?

Palladin (2008-01-10 17:37:00) [10]
поставить DBE

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »