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

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

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

как отвязать программу от определенного места [D7, XP]

Страницы: < 1 2
dars73 © (2008-07-31 19:55:00)
Профессионалы подскажите пожалуйста. как отвязать програму от определенного места положения. тоесть чтобі можно білобі например ее поставить на другой диск и программа была бы работоспособна

программа находиться C:\Container внутри папки находится еще одна
Zakaz путь к ней C:\Container\Zakaz

вот часть кода

Procedure Tform1.sosdanieTabl();
begin
with Table3 do
begin
close;
FieldDefs.Clear;
DatabaseName:='C:\Container\Zakaz';
TableName:=TabNam;
TableType:=ttDBase;
{Создать поля}
with FieldDefs do
begin
Add('Название', ftString, 40);
Add('Кол', ftFloat, 0, False);
Add('Длина', ftFloat, 0, False);
Add('Ширина', ftFloat, 0, False);
Add('Высота', ftFloat, 0, False);
Add('Масса', ftFloat, 0, False);
Add('Мах', ftFloat, 0, False);
Add('Метка', ftFloat, 0, False);
end;
CreateTable;
end;
end;

Procedure Tform1.PodkluchenieTab();
begin
Table3.Active:=false;
table3.DatabaseName:='C:\Container\Zakaz';
table3.TableName:=TabNam;
table3.Active:=true;
label9.Caption:=TabNam;
end;

dars73 (2008-08-01 00:14:00) [21]
А я нигде не увидел в проге у меня

procedure TForm1.Button6Click(Sender: TObject);
begin
form1.RichEdit1.Visible:=false;
Opendialog1.InitialDir:='..\Zakaz';
OpenDialog1.Execute;
TabNam:=openDialog1.FileName;
form1.PodkluchenieTab;
Form1.GroupBox3.Visible:=true;
end;

а призапуске выдает ошибку С:..\Zakaz

Поросенок Винни-Пух (2008-08-01 00:12:00) [22]
Medbe}I{onok XML © (31.07.08 20:01) [1]
DatabaseName:='.\Zakaz';

Где ты там увидел "C:" ?

Поросенок Винни-Пух (2008-08-01 00:09:00) [23]
изменил как рекомендовали а отладчик выдает ошибку Invalid Derictory C:..\Zakaz

не нада. я не так рекомендовал.

dars73 (2008-08-01 00:06:00) [24]

> Medbe}I{onok XML © (31.07.08 20:06) [4]
> 2. Указываем относительные пути: "..\Zakaz"У него бд в подкаталоге
> рабочей папки а не в одном уровне с ней

изменил как рекомендовали а отладчик выдает ошибку Invalid Derictory C:..\Zakaz

tesseract (2008-07-31 23:58:00) [25]

> может кто подскажет где обсуждалось я пользую DBF

Пользуй встроенные базы, sqlite, fb embedded и иже с ними. Tdbf - довольно глючен. ExtractFilePath(application.exename) - сильно помогает при определении откуда программа запустилась.

dars73 (2008-07-31 23:42:00) [26]

> Еще хуже не использовать инсталлятор, т.к. следующая твоя
> проблема - таскать за своей программой BDE.

Это действительно для меня проблема так как не найду инфу на русском как пользоваться нормально инсталлером.

может кто подскажет где обсуждалось я пользую DBF

Пробовал паковать InstallShild Кажется 8 упаковало все ок и инсталлировало все ок вот только работать прога не захотела. подозреваю что BDE Не установилась..

спасибо всем за помощ

Евгений Р. (2008-07-31 20:49:00) [27]
DatabaseName:=ParamStr(1);

Medbe}I{onok XML (2008-07-31 20:06:00) [28]
2. Указываем относительные пути: "..\Zakaz"

У него бд в подкаталоге рабочей папки а не в одном уровне с ней.

Desdechado (2008-07-31 20:05:00) [29]
1. Используем компонент TDatabase, прицепляя уже к нему TTable.
2. Указываем относительные пути: "..\Zakaz"

ЗЫ Использовтаь TTable - дурной тон. Хранить данные в папке программы - тоже. Еще хуже не использовать инсталлятор, т.к. следующая твоя проблема - таскать за своей программой BDE.

Medbe}I{onok XML (2008-07-31 20:02:00) [30]
... И не менять текущий каталог процесса

Medbe}I{onok XML (2008-07-31 20:01:00) [31]
DatabaseName:='.\Zakaz';

Страницы: < 1 2

Наверх

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