Мастера 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;

Denis__ (2008-08-01 19:21:00) [1]

> мне как говорится 1 раз увидеть код проще чем о нем 10 раз
> почитать.

И Скопи-пастить? Ты с этим заканчивай!

dars73 (2008-08-01 18:35:00) [2]
Спасибо всем за обсуждение и помощь

Вы все правы у этой программы только один пользователь маленькая фирма.
Прога написана конкретно под нее и служит только для ускорения того что можно былобы сделать ручками.

Папка просто копируется на комп этой фирмы через интернет по системе AnyPlace.

Я не профи я только учусь. с соображалкой впорядке а вот язык для меня пока еще нов. Много чего не знаю. Спасибо что не отфутболили в библиотеку так как у меня очень мало было времени. всего пару дней. сейчас както с горем попалам заработало и начало считать. Надеюсь Что смогу ее довести до преличного вида (Чтобы не стыдно было исходники показывать) и надеюсь на дальнейшую помощ. Книг много у меня есть но я практик. мне как говорится 1 раз увидеть код проще чем о нем 10 раз почитать.

Всем спасибо.

А с инсталлером конечно бы хотел разобраться но на русском ничегшо не нашел.

И если бы у кого было бы желание прокоментирровать мо так называемый код был бы очень рад.

Medbe}I{onok XML (2008-08-01 18:09:00) [3]
Дай определение Рабочая папка.

Даю. записывайте:
это то где у него лежит exe.

Leonid Troyanovsky (2008-08-01 17:55:00) [4]

> Anatoly Podgoretsky © (01.08.08 16:24) [25]

> Дай определение Рабочая папка.

Да, пусть уж нормально, по-татарски, говорит.
Мы ж говорим: папка - рабочий, мамка - колхозница.

--
Regards, LVT.

Leonid Troyanovsky (2008-08-01 17:45:00) [5]

> dars73 © (31.07.08 19:55)

> Профессионалы подскажите пожалуйста. как отвязать програму
> от определенного места положения.

Для того, чтобы что либо почистить, надо что-то испачкать.
Т.е., отвязав программу от некоего местоположения,
необходимо привязать его к другому.

Иначе, получится ужасающая картина: идешь ты, скажем, по скверу,
а на каждом дереве - по солдату, безо всякой дисциплины.

--
Regards, LVT.

oldman (2008-08-01 16:29:00) [6]
Удалено модератором

Anatoly Podgoretsky (2008-08-01 16:24:00) [7]
> Medbe}I{onok XML (01.08.2008 10:32:24) [24]

Дай определение Рабочая папка.

Medbe}I{onok XML (2008-08-01 10:32:00) [8]
так я и говорю, что
У него бд в подкаталоге рабочей папки а не в одном уровне с ней.

Плохиш (2008-08-01 10:30:00) [9]

> Ох и намучаются еще пользователи с ним

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

Anatoly Podgoretsky (2008-08-01 09:35:00) [10]
> Medbe}I{onok XML (31.07.2008 20:06:04) [4]

Неправда, у него в подкаталоге в папке с программой, а то что это не Program Files, так видимо по зубам получил от ОС вот и воткнул в отдельную папку. Ох и намучаются еще пользователи с ним, покак не уволят.

Нат (2008-08-01 02:23:00) [11]
Про "подробнее" - ошибся темой... :-(
Можно удалить.

Нат (2008-08-01 02:21:00) [12]
Свое решение подробнее, плиз.
Вдруг, кто еще заинтересуется.

dars73 (2008-08-01 01:21:00) [13]
Спасибо всем вроде продвинулся.

Для меня проще оказалось определять где я и цеплять хвостики.

Нат (2008-08-01 00:49:00) [14]
В Дизайн-тайме не указывать пути вообще (т.е. настроили, проверили, убрали).
Вставить диалоги выбора путей и файлов.
Создать файл настроек или прописать свои пути в константы или переменные, подставлять пути и подключаться в обработчиках создания ДатаМодулей, или форм которые будут использовать наборы данных...

А с BDE не так все однозначно. Без инсталляции, даже если заработает, можно наловить тараканов.

Поросенок Винни-Пух (2008-08-01 00:42:00) [15]
ParamStr(0) + ExtractFileDir

dars73 (2008-08-01 00:39:00) [16]

> Поросенок Винни-Пух © (

да есть. А можно при помощи этой функции вычислить только путь откуда запущена программа??

Поросенок Винни-Пух (2008-08-01 00:23:00) [17]
ну а теперь посмотри на это:

ShowMessage(ExpandFileName('.\Zakaz'))

И посмотри есть ли такая папка и есть ли в ней твой дбф

dars73 (2008-08-01 00:19:00) [18]
прошу прощения я баран!!!

одна точка перед слешем

Поросенок Винни-Пух (2008-08-01 00:18:00) [19]
DatabaseName:='.\Zakaz';

Одна точка если заказ это подкаталог рабочей папки программы.
или вообще без точки. Но никак не две точки.

и при чем здесь опендиалог?

dars73 (2008-08-01 00:16:00) [20]
Пардон не ток кусок

А я нигде не увидел в проге у меня

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

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

Наверх

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