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

[uberchel]

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

Вот эт да )

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

Ну скажи а Application - что такое, или если взять такой код:
Label1.Caption - то это, что получиться ??

[Stilet]

Так хватит спорить. Четкий ответ дан в 6-ом посте - тему в принципе можно закрывать, так что заканчивайте помидорами марафет наводить друг-другу.
Ждем автора.

[DeKot]

Если загрузить рисунок не программно, а через Инспектор объектов, то рисунок потом вобще не нужен.Он будет в скомпилированном экзешнике.И, еще как вариант - сохранять в файле ресурсов сам рисунок ( смотри вложение в соседней теме "Как запихнуть .bmp в .exe") и потом программно загружать из ресурсов.

[Lifefine]

Сообщение от Вавел из ГМТУ

Допустим у тебя есть программа и есть картинки. Предположим ты создал папку 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: и так указывать пути надо везде, ибо это правильно, ибо это гениально.

Спасибо за помощь, все получилось! Код ExtractFilePath(ParamStr(0)) + 'Images\PIC.bmp' сработал! Я всем очень благодарен!

[raxp]

а какой код нужно написать чтобы картинка была внутри в ехе файле?

...нужно загнать в ресурсы
делаем rc файл с содержимым

1 RCDATA ваша картинка.bmp

...в командной строке компилим brcc32 ваш ресурс.rc ваш ресурс.res

и в поректе подключаем...после implementation добавляем {$R res\ваш ресурс.RES}
грузим из ресурсов...

var ResStream: TResourceStream;
begin
 ilogo:= TBitmap.Create;
 ResStream:= TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
 ilogo.LoadFromStream(ResStream);
 ResStream.Free;

[Lifefine]

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

...нужно загнать в ресурсы
делаем rc файл с содержимым

1 RCDATA ваша картинка.bmp

...в командной строке компилим brcc32 ваш ресурс.rc ваш ресурс.res

и в поректе подключаем...после implementation добавляем {$R res\ваш ресурс.RES}
грузим из ресурсов...

var ResStream: TResourceStream;
begin
 ilogo:= TBitmap.Create;
 ResStream:= TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
 ilogo.LoadFromStream(ResStream);
 ResStream.Free;

Спасибо за помощь! А что такое 1 RCDATA? Компилить на обычной командной строке виндовс?

[raxp]

А что такое 1 RCDATA? Компилить на обычной командной строке виндовс?

ccылка на 1 ресурс. да

[Lifefine]

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

ccылка на 1 ресурс. да

Понял, это писать в программу 1 RCDATA или в командной строке, извините за много вопросов, я чайник))


Еще такой вопрос в командной строке я пишу brcc32 Project1. rc Project1.res, когда компилю выдается ошибка Error Could not open input file Project1.rc, что это может быть? Хотя я в своем проекте заметил что нет Project1 с расширением .rc, есть только .res.

[r9m]

тебе нужно файл project1.rc положить в папку с компилятором ресурсов (самое простое решение), ну и после компилинга назад её в папку с проектом. и яб её переименовал во что нить другое, отличное от Project1.rc, например myres.rc и включил бы в проект как показал тебе уже raxp

и в поректе подключаем...после implementation добавляем {$R res\ваш ресурс.RES}

Только положи свой "ваш ресурс.RES" в подпапку \res, своей проектной папки, если будешь делать как сказал raxp

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

Ну скажи а Application - что такое, или если взять такой код:
Label1.Caption - то это, что получиться ??

TApplication - класс. TLabel - тоже. Получится что Caption - это поле экземпляра класса. Так как Tlabel - сын TCustomLabel, который в свою очередь сын TGraphicControl, который оказался сыном TControl который имеет поле Caption, который можно писать и читать метоами GetText & SetText. Вот такая Санта-Барбара.

[uberchel]

Ну и что, а я о чём? Я и говорю что Компонент передает свою функцию, то есть и получаться что юзаеш функцию компонента!
Application.exeName .