Перенос проекта на другой сервер

[vyacheslav]

Добрый день, подскажите пожалуйста возникла проблема! Нужно перенести весь проект на другой сервер, в проекте используется огромное множество скриптов с указанием пути к файлу на сервере для его открытия. После переноса путь к файлу поменяется, как мне быстро изменить все скрипты? или есть еще какая нибудь возможность изменить путь..?

[Simple-Scada]

Здравствуйте.

Правильнее всего - не использовать полный путь при указании имени файла. Вместо этого нужно либо использовать относительный путь, либо хранить свои файлы в папке с проектом (лучший вариант) и получать путь к папке с проектом через функцию GetProjectPath, тогда при переносе проекта проблем не возникнет.
Также можно создать переменную типа string с начальным значением указывающим путь к файлу и использовать её значение в скриптах при обращении к файлу. Тогда при переносе проекта достаточно было бы изменить значение переменной на новый путь. В Вашей ситуации нужно либо изменить пути описанными выше способами, либо проходить по скриптам и в каждом из них вписывать новый полный путь для нового ПК.

[vyacheslav]

хранить свои файлы в папке с проектом (лучший вариант) и получать путь к папке с проектом через функцию GetProjectPath, тогда при переносе проекта проблем не возникнет.

Да этот вариант предпочтительней. подскажите как правильно будет выглядеть код?
допустим у меня папка которую нужно открыть находиться \Simple-Scada 2\Projects\serv3\files\soderzanie_fotos\Ленина,33

используя

Код: (delphi)

var
  Path: string;
begin
  Path := GetProjectPath; // получить путь к папке проекта Simple-Scada на сервере.
end.

и в дальнейшем нужно будет этот скрипт прописывать каждому объекту, меняя только папку? все равно все переделывать, ну это будет с защитой на будущее. верно?

[Simple_Scada]

Например, если Ваш файл имеет имя "MyTextFile.txt", то пример скрипта будет таким:

Код: (delphi)

begin
  { открыть файл для записи либо создать если файл не существует }
  TextFileOpen('MyTextFile.txt', GetProjectPath + 'files\soderzanie_fotos\Ленина,33\', fomRewrite, fcpUTF8);
end.

Аналогично нужно будет исправить пути во всех остальных скриптах.

[vyacheslav]

Например, если Ваш файл имеет имя "MyTextFile.txt"

У меня два вида это либо папка(просто открыть папку) или exel файл. как будет выглядеть тот или иной код?

[Simple-Scada]

Если вы хотите открывать не текстовые файлы, а документ в Excel, или папку в проводнике, то нужно просто запускать их как приложение, через RunApplication (примеры в статье).

Код: (delphi)

RunApplication(GetClientName, 'excel.exe', 'Здесь путь к файлу, который нужно открыть в Excel'); // открываем документ Excel
RunApplication(GetClientName, 'explorer.exe', 'D:\');  // открываем диск D в проводнике Windows

[vyacheslav]

Я это понял, Спасибо большое. просто теперь путь нужно будет писать к примеру такой: GetProjectPath + 'files\soderzanie_fotos\Ленина,33\   верно?

[Simple-Scada]

Да, верно, при указании путей в любых скриптах можно использовать либо абсолютный, либо относительный путь, по желанию.