|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Чтение из файла картинок
Вопрос следющий. Есть некий файл Image.rec. В нем лежит куча картинок. Мне нужно вызвать их из него, и поместить в открывшемся окне. Каким образом можно это осуществить? Желательно с самого начала, то есть с самого верха . Сама функция у меня, кажется, рабочая:
function LoadJPEGfromREC( Number: integer ): TJPEGImage; var ResStream: TResourceStream; begin Result := TJPEGImage.Create; ResStream := TResourceStream.CreateFromID( HInstance, Number, RT_RCDATA ); Result.LoadFromStream( ResStream ); ResStream.Free; end; Почему нужно полное описание, как это сделать - просто этот кусок взят со стороны, и я пока что вообще никак не разбираюсь по данному вопросу. Есть еще процедура: procedure TForm1.AutoPlayClick(Sender: TObject); var i: integer; tmpJPG : TJPEGImage; begin Tag := 0; for i := 1 to 127 do begin TrackBarNum.Position := i; tmpJPG := LoadJPEGfromREC( i ); PaintBox.Canvas.Draw( 0, 0, tmpJPG ); Application.ProcessMessages; tmpJPG.Free; Sleep( TrackBarSpeed.Position ); if Tag <> 0 then Break; end; end; Помогите, пожалуйста, разобраться. |
#2
|
||||
|
||||
По порядку
1) код взят отсюда: http://decoding.narod.ru/practic/resource/resource.html. 2) Цитата:
3) Цитата:
|
#3
|
|||
|
|||
да просто исходник то сам не качается. Есть только пример с радаром - картинки и прога для загона. А самого примера нет - потому и спрашиваю. Я просто чайник в некотором роде и без примера/документации с ходу не могу понять..
|
#4
|
||||
|
||||
Странно, все нормально качается... Я отправил тебе исходники по почте, проверь...
|
#5
|
||||
|
||||
Ещё вариант
Вобщем дело так скачай исходник загрузки картинок и всего остального у http://macrosscd.narod.ru там более понятно и любую картинку можно взять хоть самую последнию.
|
#6
|
|||
|
|||
Цитата:
архив битый, кажется. На почте посмотрел - пусто. Попробуй сюда: overkill@pisem.net |
#7
|
||||
|
||||
Отправил, смотри.
|
#8
|
|||
|
|||
Спасибо.
Теперь глупый вопрос. Идет вызов из файла - тут разобрался, все относительно просто. ВОт только как сделать, чтобы у меня на форме они отображались? Знаю, вопрос весьма глупый, я в дельфе разбираюсь урывками, без знания азов тяжко.. |
#9
|
||||
|
||||
Код:
PaintBox.Canvas.Draw( 0, 0, LoadJPEGfromEXE( TrackBarNum.Position ) ); Код:
Form1.Canvas.Draw( 0, 0, LoadJPEGfromEXE( TrackBarNum.Position ) ); |
#10
|
|||
|
|||
|
#11
|
||||
|
||||
Так я тебе ничего сказать не могу, надо смотреть, что ты там написал. Если хочешь, высылай исходник почтой, гляну.
|