Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Вниз

Подскажите, как сделать, чтоб jpeg не компилировался в exe-шник?   Найти похожие ветки 

 
Ефимыч   (2006-09-04 16:03) [0]

Во всех учебниках приводится пример:
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
но использовать не получается.
Спасибо.


 
C@N ©   (2006-09-04 16:06) [1]

попробуй без if )))


 
Плохиш ©   (2006-09-04 16:07) [2]


> Ефимыч   (04.09.06 16:03)

<telepator on>
надо подключить модуль jpeg, как и написано в используемых учебниках.
<telepator off>


 
C@N ©   (2006-09-04 16:11) [3]

uses jpeg;
кажись так....


 
Loginov Dmitry ©   (2006-09-04 18:05) [4]

> Подскажите, как сделать, чтоб jpeg не компилировался в exe-
> шник?


Как понимать смысл сабжа?


 
Плохиш ©   (2006-09-04 18:19) [5]


> Loginov Dmitry ©   (04.09.06 18:05) [4]
> Как понимать смысл сабжа?

Что, снова телепатор в ремонте? ;-)


 
Ефимыч   (2006-09-05 23:27) [6]

Подскажите хотя бы какой учебник по Delphi наиболее понятный.


 
Ефимыч   (2006-09-05 23:30) [7]

Или лучше сформулировать вопрос так: как вставить в форму рисунок (не обязательно jpg) чтобы при компиляции он не зашивался в exe?


 
Германн ©   (2006-09-05 23:48) [8]


> как вставить в форму рисунок (не обязательно jpg) чтобы
> при компиляции он не зашивался в exe?

Ты будешь смеяться но вот так:
f OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);


 
palva ©   (2006-09-05 23:48) [9]

> как вставить в форму рисунок (не обязательно jpg) чтобы при компиляции он не зашивался в exe?

Грузить картинку из файла не на этапе проектирования, а при создании формы. Типа так:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Image1.Picture.LoadFromFile("C:\Program Files\Borland\Delphi7\Demos\EarthPng\androm.bmp");
end;


 
Джо ©   (2006-09-05 23:49) [10]

> [7] Ефимыч   (05.09.06 23:30)
> Или лучше сформулировать вопрос так: как вставить в форму
> рисунок (не обязательно jpg) чтобы при компиляции он не
> зашивался в exe?

1. В каталоге с программой разместить графический файл поддерживаемого формата.
2. В обаботчике события OnCreate нужной формы
var
 ImgFn: string;
...
 ImgFn := ExtractFilePath(Application.ExeName)+"myfilename.jpg";
if FileExists(ImgFn) then
 Image1.LoadFromFile();


Для поддержки формата Jpeg, необходимо указать модель Jpeg в uses.


 
Джо ©   (2006-09-05 23:50) [11]

Сорри за многочисленные опечатки.


 
Германн ©   (2006-09-06 00:38) [12]


> Джо ©   (05.09.06 23:50) [11]
>
> Сорри за многочисленные опечатки.

Наговариваешь на себя, Серёга! Нашел всего три:
1. обаботчике
2. var
ImgFn: string;
3. Image1.LoadFromFile
:-)


 
Джо ©   (2006-09-06 00:40) [13]

Еще запятая лишняя в последнем предложении ;(


 
Германн ©   (2006-09-06 00:46) [14]


> Джо ©   (06.09.06 00:40) [13]
>
> Еще запятая лишняя в последнем предложении ;(
>

Пунктуация - всегда была моим больным местом :-(


 
Palladin ©   (2006-09-06 00:46) [15]

:) не расстраивайся, опечатки это не страшно... страшно - это когда: "правельно", "денамически" и т.д. и т.п.

опечатку, в подавляющем большинстве случаев, можно отличить от неграмотности :)


 
Германн ©   (2006-09-06 00:56) [16]


> Palladin ©   (06.09.06 00:46) [15]
>
> :) не расстраивайся, опечатки это не страшно... страшно
> - это когда: "правельно", "денамически" и т.д. и т.п.
>
> опечатку, в подавляющем большинстве случаев, можно отличить
> от неграмотности :)

А кто тут говорил о "расстраивайся"?
Чем больше очепяток, тем ближе к Гендальфу Серому!
Хотя и тем дальше от Гендальфа Белого. Который пока очепятками не страдает. :-)
Ну так нужно же пройти некий путь, чтобы перейти от серого к белому! :-)


 
Palladin ©   (2006-09-06 00:59) [17]


> [16] Германн ©

Да это я по поводу [11] Джо ©
:)


 
Германн ©   (2006-09-06 01:06) [18]


> Palladin ©   (06.09.06 00:59) [17]
>
>
> > [16] Германн ©
>
> Да это я по поводу [11] Джо ©
> :)
>

Да и я тоже, по тому же поводу!
Не думаешь же ты, что я тут в "начинающих" могу затеять спор о Гендальфе?
:-)


 
Palladin ©   (2006-09-06 01:38) [19]

а почему бы нет :)

ну... скажем так... Гэндальф довольно противоречивая фигура...  у Толкиена данная личность описана довольно туманно, Перумов сделал ее более конкретной, но, AFAIK, магической смены цвета он обьяснения все равно не дал...

или предлагаю открыть тему в прочих, а то Анатолий рассвирипеет :)


 
Германн ©   (2006-09-06 01:47) [20]


> Palladin ©   (06.09.06 01:38) [19]
>
> а почему бы нет :)
>
> ну... скажем так... Гэндальф довольно противоречивая фигура.
> ..  у Толкиена данная личность описана довольно туманно,
>  Перумов сделал ее более конкретной, но, AFAIK, магической
> смены цвета он обьяснения все равно не дал...
>
> или предлагаю открыть тему в прочих, а то Анатолий рассвирипеет
> :)
>

Открой тему в "потрепаться". Я лично За!


 
Palladin ©   (2006-09-06 01:48) [21]

ok


 
Ефимыч   (2006-09-06 22:46) [22]

Большое спасибо всем, по примеру  "palva"  всё получилось! 8-)


 
Германн ©   (2006-09-07 02:30) [23]


> Ефимыч   (06.09.06 22:46) [22]
>
> Большое спасибо всем, по примеру  "palva"  всё получилось!
>  8-)
>

Очень рад!
Тихо так говоря: - Но ты понял, почему раньше не получалось, а сейчас получилось? Или и не вникал, но получилось и забыл?
Конференция "Потрепаться" ака "Прочее", имхо не резиновая!


 
Fay ©   (2006-09-07 06:00) [24]

2 Palladin ©   (06.09.06 0:46) [15]
> страшно - это когда: "правельно", "денамически"
IMHO, настоящий шедевр - "правдо"



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.5 MB
Время: 0.056 c
15-1157135123
Nic
2006-09-01 22:25
2006.09.24
ИБП?


15-1157521275
Ega23
2006-09-06 09:41
2006.09.24
Как сказать по-английски?


2-1157445382
Sele
2006-09-05 12:36
2006.09.24
left top Timage


2-1157434617
Handle
2006-09-05 09:36
2006.09.24
Как переименовать много файлов


15-1157346922
Ega23
2006-09-04 09:15
2006.09.24
С Днём рождения! 4 сентября





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский