Как сохранить картинку....

[Lifefine]

Создал я приложения...но когда я сохраняю свой проект и проверяю в другом компе картинка в приложениях не появляется, почему? Хотя я создал .ехе файл. Подскажите пожалуйста, что там нужно в программе добавить? Заранее очень благодарен!

[uberchel]

Код загрузки картинки покажите

[Lifefine]

Сообщение от uberchel

Код загрузки картинки покажите

Вот код:
Image1.Picture.LoadFromFile('D:\My work\Images\PIC.bmp');

Сохраняю картинку в папке "Image", там где лежит рядишком проект.
На своем компе приложения показывает картинку, а вот в другом нет((((

[uberchel]

А на другом компе есть диск D и папка Image c картинкой ??
И зачем сохранять на диске D , а не в папке с прогой ?

[Lifefine]

Сообщение от uberchel

А на другом компе есть диск D и папка Image c картинкой ??
И зачем сохранять на диске D , а не в папке с прогой ?

Я понял, но когда в другом компе я исправляю код, то картинка отображается, но это мучительно...
а какой код нужно написать чтобы картинка была внутри в ехе файле? Или так нельзя делать?

Картинка у меня сохраняется в папкой с прогой!

[Вавел из ГМТУ]

Допустим у тебя есть программа и есть картинки. Предположим ты создал папку Images тамже где и .exe и запихнул туда свои картинки.

Теперь немного теории.
1. Есть функции, которые возвращают полный путь, откуда запустилась твоя программа. Я знаю как минимум две, это: ParamStr(0) и Application.Exename. Хотя на счёт того что последнее является функцией я неочень уверен.
Все они вернут строки такого типа:
C:\Program Files\Borland\Delphi7\Projects\Proj ect1.exe
Тоесть полный путь к приложению от куда оно запустилось.

2. Есть функции который могут обрезать эту строку до определёных кусочков. Например расширение файла, диска, директории и пр.
Конкретней тут:
http://www.delphibasics.ru/ExtractFileDir.php

От теории к практике. Теперь напишем как "привязать" все твои картинки к программе и сделать так, чтоб она их находила не зависимо от того, откудо запущена.

ExtractFilePath(ParamStr(0)) + 'Images\PIC.bmp'

Гениально, не правдали?

Image1.Picture.LoadFromFile(Extract FilePath(ParamStr(0)) + 'Images\PIC.bmp');

Вот теперь программа сама найдёт твои картинки в своих папках.

PS: и так указывать пути надо везде, ибо это правильно, ибо это гениально.

[uberchel]

Вавел из ГМТУ - последняя являеться так же функцией как и 1, потому что только в функцию можно задать инфу(присвоить её к типу).

[Вавел из ГМТУ]

Нет, всёже это свойство объекта Application, доступное только для чтения.... Эт ни как не функция

Цитирую:

В каждом приложении автоматически создается объект Application типа TApplication — приложение. Этот компонент отсутствует в палитре библиотеки, вероятно, только потому, что он всегда один в приложении. Application имеет ряд свойств, методов, событий, характеризующих приложение в целом.

Рассмотрим сначала некоторые свойства Application. Булево свойство Active (только для чтения) характеризует активность приложения. Оно равно true, если форма приложения находится в фокусе. Если же пользователь переключился на работу с другим приложением, свойство Active равно false.

Свойство ExeName является строкой, содержащей имя выполняемого файла с полным путем к нему. Это свойство удобно использовать, чтобы определять каталог, из которого запущено приложение и который может содержать другие файлы (настройки, документы, базы данных и т.п.), связанные с приложением. Выражение ExtractFilePath(Application.ExeName ) дает этот каталог. Обычно свойство ExeName тождественно функции ParamStr(0), возвращающей нулевой параметр командной строки — имя файла с путем.

Даниэль Дефо. Робинзон Крузо

[uberchel]

Да не то вы мне показывайте, ведь TStringList - Тоже не функция, нокогда пишем допустим StringList.Items.Text - Она приобретает тип string(т.е у компонента Items.Text - имеет свойство Caption которое имеет свойство String)

Так что когда Мы пишем так Application.ExeName - TАpplication(класс TComponent) принемает тип своей функции String ! )

[r9m]

Вот эт да )

Application.Exename - это поле, типа string, которое изменяется закрытым методом GetExeName: string;