[Илья С.]

Вопрос следющий. Есть некий файл 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;


Помогите, пожалуйста, разобраться.

[Decoding]

По порядку

1) код взят отсюда: http://decoding.narod.ru/practic/resource/resource.html.

2)

Сама функция у меня, кажется, рабочая

функция рабочая на 100%, в этом ты можешь убедиться, если скачаешь исходники и откомпилируешь их

3)

Почему нужно полное описание, как это сделать

Что ты имеешь в виду? О каком полном описании идет речь? Поподробнее, что именно непонятно...

[Илья С.]

да просто исходник то сам не качается. Есть только пример с радаром - картинки и прога для загона. А самого примера нет - потому и спрашиваю. Я просто чайник в некотором роде и без примера/документации с ходу не могу понять..

[Decoding]

Странно, все нормально качается... Я отправил тебе исходники по почте, проверь...

[Safuat]

Вобщем дело так скачай исходник загрузки картинок и всего остального у http://macrosscd.narod.ru там более понятно и любую картинку можно взять хоть самую последнию.

[Илья С.]

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

Странно, все нормально качается... Я отправил тебе исходники по почте, проверь...

архив битый, кажется. На почте посмотрел - пусто.
Попробуй сюда:

overkill@pisem.net

[Decoding]

Отправил, смотри.

[Илья С.]

Спасибо.
Теперь глупый вопрос. Идет вызов из файла - тут разобрался, все относительно просто. ВОт только как сделать, чтобы у меня на форме они отображались? Знаю, вопрос весьма глупый, я в дельфе разбираюсь урывками, без знания азов тяжко..

[Decoding]

Код:

PaintBox.Canvas.Draw( 0, 0, LoadJPEGfromEXE( TrackBarNum.Position ) );

Здесь рисуется на PaintBox. А если нужно на форме, то пиши

Код:

Form1.Canvas.Draw( 0, 0, LoadJPEGfromEXE( TrackBarNum.Position ) );

[Илья С.]

странное дело. Пишет, что не [Error] main.pas(81): Undeclared identifier: 'AutoPlay'

хотя я вроде в типах его описал. Правда он почему то отказывался его принимать...

[Decoding]

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