Подскажите как вставить свою фотку в прогу

← →
smartleds (2008-02-08 14:53) [0]

Написал я программу для пользователей , планирую раздавать бесплатно, но хотелось бы вставить нее свой E-Mail и фотку.
Как мне фотографию поместить внутрь программы , а не отдельным файлом? Чтобы она была встроена в exeшник.

← →
Palladin © (2008-02-08 14:54) [1]

TImage + F1

Интересно... тебя в начинающим или сразу в прочее...

:)

← →
Dib@zol © (2008-02-08 14:55) [2]

В ресурсы пихнуть.
ЗЫЖ: чо хоть за прога-то?

← →
Dib@zol © (2008-02-08 14:59) [3]

> TImage

А это ваще мега зло =) В нем любая картинка становится больше во много раз из-за нереально тупого способа хранения: каждый байт записывается в два...

← →
Anatoly Podgoretsky © (2008-02-08 15:03) [4]

> smartleds (08.02.2008 14:53:00) [0]

Рано тебе еще раздавать, сначала научись картинку вставлять, потом иконку вставлять.

← →
smartleds (2008-02-08 15:05) [5]

Очень хочется попинать?

← →
ketmar © (2008-02-08 15:10) [6]

>[5] smartleds (2008-02-08 15:05:00)
да. судя по уровню вопросов — программу можно брать только с доплатой от автора. и ни в коем случае не запускать.

---
Understanding is not required. Only obedience.

← →
Джо © (2008-02-08 15:12) [7]

> [6] ketmar © (08.02.08 15:10)
> >[5] smartleds (2008-02-08 15:05:00)
> да. судя по уровню вопросов — программу можно брать только
> с доплатой от автора. и ни в коем случае не запускать.
>
> ---
> Understanding is not required. Only obedience.

Почему же? Это очень полезно, знать автора в лицо если чо, пусть вставляет :)

← →
Джо © (2008-02-08 15:14) [8]

По сабжу.
Делаем файлик образца:
MY_FACE BITMAP MY_FACE.BMP
Называем его MY_FACE.RC
После этого включаем файл в проект — Project/Add to project...
Загружать картинку: Image.Bitmap.LoadFromResource

← →
Dib@zol © (2008-02-08 15:18) [9]

> Очень хочется попинать?

Очень хочется посмотреть, что возможно реализовать на уровне, когда не знаешь такой элементарщины...
ЗЫ Тут может помочь только грамотный обстоятельный учебник, типа фароновского "Делфи 6: язык высокого уровня".

← →
Джо © (2008-02-08 15:21) [10]

> [8] Джо © (08.02.08 15:14)

Не, вместо BMP нужно BITMAP и загружать
Image.Picture.Bitmap.LoadFromResourceName (HInstance,"MY_FACE")

← →
smartleds (2008-02-08 15:22) [11]

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

← →
smartleds (2008-02-08 15:23) [12]

Спасибо Джо

← →
Игорь Шевченко © (2008-02-08 15:24) [13]

Dib@zol © (08.02.08 14:59) [3]

> В нем любая картинка становится больше во много раз из-за
> нереально тупого способа хранения: каждый байт записывается
> в два...

С этого момента подробнее.

> Тут может помочь только грамотный обстоятельный учебник,
> типа фароновского "Делфи 6: язык высокого уровня".

Архангельский - рулез фарева

← →
Dib@zol © (2008-02-08 15:25) [14]

Откуда принимается сигнал? Если с микрофона (или с другого имеющегося у меня устройства), то с удовольствием бы посмотрел.

← →
ketmar © (2008-02-08 15:25) [15]

[9] Dib@zol © (2008-02-08 15:18:00)
>Очень хочется посмотреть
а мне — нет. %-)

---
Understanding is not required. Only obedience.

← →
Amoeba © (2008-02-08 15:30) [16]

> smartleds (08.02.08 15:22) [11]
>
> Программа реализует дискретное преобразование фурье входящего
> сигнала и отображением его спектра.
> С математикой проблем нет , а вот графический антураж дается
> с трудом.
>

Это смотрел?
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1295

← →
smartleds (2008-02-08 15:30) [17]

Как доделаю вышлю

← →
Dib@zol © (2008-02-08 15:31) [18]

Вот откопал у себя ВЦЛ проект. Тут только SpeedButton, имеджа не нашёл... Но сомневаюсь, что там по-другому.

DFM:
object SpeedButton1: TSpeedButton Left = 116 Top = 124 Width = 149 Height = 103 Cursor = crHandPoint Glyph.Data = { B2390000424DB239000000000000760000002800000022010000630000000100 0400000000003C390000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF000000F00000000000000000000000000000000000 0000000000000000000000000000000000000000000011919999999999999000 00000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 0000F00000000000000000000000000000000000000000000000000000000000 0000000000000000000019099999999999999000000000000000000000000000 00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F0000000000000000000 0000000000000000000000000000000000000000000000000000000000099999 991010199999900000000000000000000000000000000000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF000000F0000000000000000000000000000000000000000000 0000000000000000000000000000000000199900019999999999900000000000 ...

B2 39 00 00 42 итп. можно было бы представить и не печатными символами (причём ещё с символами переноса строки), а сразу, скажем, класть в RCDATA-раздел, а писать в Data только имя новосозданного битмапа. Дык нет! Декомпиляция проги показывает, что и в ресы Делфи пишет именно в таком "формате"... ужжос.

← →
smartleds (2008-02-08 15:34) [19]

Прям как серпом по одному месту , все уже придумано до нас, спасибо за ссылку .

← →
Джо © (2008-02-08 15:35) [20]

> [18] Dib@zol © (08.02.08 15:31)

Неверно.

← →
Джо © (2008-02-08 15:36) [21]

А неверно потому, что в бинарник зашивается ресурс DFM не в ТЕКСТОВОМ представлении, а в бинарном. И, соответственно, Glyph.Data туда пишется тоже в бинарном виде, а не в текстовом.

← →
ketmar © (2008-02-08 15:40) [22]

>[18] Dib@zol © (2008-02-08 15:31:00)
а ничего, что в ресурсы оно в двоичном виде идёт? или до таких мелочей не снисходим?

---
Understanding is not required. Only obedience.

← →
ketmar © (2008-02-08 15:41) [23]

>[19] smartleds (2008-02-08 15:34:00)
а оно часто так. я давно уже приучился в момент очередного гениального «осеняжа» идти в гугль и успокаиваться, находя тыщусто реализаций моей гениальной задумки. %-)

---
Understanding is not required. Only obedience.

← →
Dib@zol © (2008-02-08 15:48) [24]

Высылаю дамп ресурса (сделан ResBuilder"ом).

http://www.webfile.ru/1732142

Интересующий рес - FORM1 раздела RCDATA.

← →
ketmar © (2008-02-08 15:55) [25]

>[24] Dib@zol © (2008-02-08 15:48:00)
ну и? ты хотел показать, что шикарно газифицировал лужу? тебе удалось.

---
Understanding is not required. Only obedience.

← →
Игорь Шевченко © (2008-02-08 15:59) [26]

Dib@zol © (08.02.08 15:48) [24]

И где там Image каждый байт которого хранится в двух ?

← →
ketmar © (2008-02-08 16:03) [27]

>[26] Игорь Шевченко © (2008-02-08 15:59:00)
следует полагать, он свято уверен, что hex-dump и бинарный вид — одно и то же.

---
Understanding is not required. Only obedience.

Плин. Во мне ResBuilder подляну подкинул :( Он просто всегда при извлечении мне ДФМ-ы из ресов показывает как текст! Извлёк вручную - нифига подобного :( Непечатные символы... Сравнил с ДФМ-файлом - в те самые два раза меньше %) Пойду посыпать голову пеплом =(

> [28] Dib@zol © (08.02.08 16:06)
> Плин. Во мне ResBuilder подляну подкинул :( Он просто всегда
> при извлечении мне ДФМ-ы из ресов показывает как текст!
> Извлёк вручную - нифига подобного :( Непечатные символы...
> Сравнил с ДФМ-файлом - в те самые два раза меньше %) Пойду
> посыпать голову пеплом =(

Не посыпать, не РесБуилдера пинать, а читать [21] ;>

>[28] Dib@zol © (2008-02-08 16:06:00)
если на клетке слона увидишь надпись «буйвол» — не верь глазам своим!

---
Understanding is not required. Only obedience.

> smartleds (08.02.08 15:23) [12]
> Спасибо Джо

Он пошутил.

> [31] Anatoly Podgoretsky © (08.02.08 16:20)
>
> > smartleds (08.02.08 15:23) [12]
> > Спасибо Джо
>
> Он пошутил.

Конечно, пошутил; всегда приятно потом поиздеваться над фоткой автора, лежащей «в открытую» в ресурсе BITMAP ;)

Удалено модератором

← →
Mozgan (2008-02-09 11:59) [34]

Ребят, зачем парня пугать?
Может тебе проще всего, приложить фотофайл в папку с прогой и грузить в Image? Приятней будет взглянуть автора "во весь экран" :)))

image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+"foto.jpg")

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

>[34] Mozgan (2008-02-09 11:59:00)
>зачем парня пугать?
да кто его пугает? развлекаемся мы. потому что вопрос задан с понтами. а за понты не по делу бьют по носу.

---
Understanding is not required. Only obedience.

← →
Mozgan (2008-02-09 12:07) [36]

Удалено модератором
Примечание: Детский сад находится в другом месте

Удалено модератором
Примечание: Offtopic

← →
Mozgan (2008-02-09 12:20) [38]

Удалено модератором
Примечание: Offtopic

Подскажите как вставить свою фотку в прогу Найти похожие ветки