|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перенос приложения с одного ПК на другой
Создал прогрумму, нужно перенести на другой ПК. Проблема в том, что в ней ссылки на большое кол-во картинок,который находяться на моём жёстком диске. Все картинки в папке с проектом. Пробовал создать инсталлятор,но при установки выдаёт ошибку. Как лучше это сделать? Заранее благодарен.
|
#2
|
|||
|
|||
При загрузке картинок добавлять путь рабочей папки.
Код:
Var path:string; begin GetDir(0,path);//возвращает рабочую папку ... end; |
#3
|
|||
|
|||
Т.е я создаю переменную в процедуре,где идут ссылки на картинки, перед первой ссылкой использую GetDir(0,path)? А если у меня в проге есть фоновая музыка указаная не в коде,а в свойстве TMediaPlayer.FileName,как быть с этом? Сорри если я туплю.
|
#4
|
|||
|
|||
Цитата:
Везде где указывается путь к картинке, прописывать не так(к примеру): Код:
...'c:\myProject\pic\1.jpg' Код:
...path+'\pic\1.jpg' Цитата:
|
#5
|
|||
|
|||
Большое спасибо.
|
#6
|
|||
|
|||
Что-то не получается...всё компелируется, программа запускается,но вылетает с системной ошибкой,что файл не найден. Вот кусок моего кода для вывода на экран одной картинки. В чём я накосячел?
Код:
var jpgpath:string; pict:string; f:file; begin GetPath(0,jpgpath); Pict:= jpgpath+'\123.jpg'; assignfile(f,pict); reset(f); read(f); Form2.Image2.Picture.LoadFromFile(pict); closefile(f); end; |
#7
|
|||
|
|||
Во всем.
Для загрузки картинки в Image не надо дополнительно никаких дейтсвий. Код:
GetPath(0,jpgpath); Pict:= jpgpath+'\123.jpg'; If FileExists(Pict) Then Form2.Image2.Picture.LoadFromFile(pict) Else ShowMessage('Файл не найден ('+Pict+')'); |
#8
|
|||
|
|||
Спасибо большое.
|