*RC

[casio23]

подскажите как в файл ресурса загрузить картинки(60 шт), чтобы был одна exe и rc, и с ресурса грузить эти картинки в программу?

[Человек_Борща]

Ну допустим так:
Images.rc

Img0 JPEG "Img0.jpg"
Img1 JPEG "Img1.jpg"
Img2 JPEG "Img2.jpg"
ImgN JPEG "ImgN.jpg"
...
Img60 JPEG "Img60.jpg"

Далее такая штука:

procedure LoadJPEGFromRes(TheJPEG: string; ThePicture: TPicture);
var
  ResHandle: THandle;
  MemHandle: THandle;
  MemStream: TMemoryStream;
  ResPtr: PByte;
  ResSize: Longint;
  JPEGImage: TJPEGImage;
begin
  MemStream := TMemoryStream.Create;
  JPEGImage := TJPEGImage.Create;
try
  ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG');
  MemHandle := LoadResource(hInstance, ResHandle);
  ResPtr := LockResource(MemHandle);
  ResSize := SizeOfResource(hInstance, ResHandle);
  MemStream.SetSize(ResSize);
  MemStream.Write(ResPtr^, ResSize);
  FreeResource(MemHandle);
  MemStream.Seek(0, 0);
  JPEGImage.LoadFromStream(MemStream);
  ThePicture.Assign(JPEGImage);
finally
  JPEGImage.Free;
  MemStream.Free;
 end;
end;

Собираем ресурс, втыкаем его в прогу, далее это:

var
i:integer;
begin
For i:=0 to 59 do //60 интераций(повторений) цикла
LoadJPEGFromRes('Img'+IntToStr(i),Image1.Picture); 
end;

Надеюсь смысл ясен?

[casio23]

Сообщение от Человек_Борща

Ну допустим так:
Images.rc

Img0 JPEG "Img0.jpg"
Img1 JPEG "Img1.jpg"
Img2 JPEG "Img2.jpg"
ImgN JPEG "ImgN.jpg"
...
Img60 JPEG "Img60.jpg"

Далее такая штука:

procedure LoadJPEGFromRes(TheJPEG: string; ThePicture: TPicture);
var
  ResHandle: THandle;
  MemHandle: THandle;
  MemStream: TMemoryStream;
  ResPtr: PByte;
  ResSize: Longint;
  JPEGImage: TJPEGImage;
begin
  MemStream := TMemoryStream.Create;
  JPEGImage := TJPEGImage.Create;
try
  ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG');
  MemHandle := LoadResource(hInstance, ResHandle);
  ResPtr := LockResource(MemHandle);
  ResSize := SizeOfResource(hInstance, ResHandle);
  MemStream.SetSize(ResSize);
  MemStream.Write(ResPtr^, ResSize);
  FreeResource(MemHandle);
  MemStream.Seek(0, 0);
  JPEGImage.LoadFromStream(MemStream);
  ThePicture.Assign(JPEGImage);
finally
  JPEGImage.Free;
  MemStream.Free;
 end;
end;

Собираем ресурс, втыкаем его в прогу, далее это:

var
i:integer;
begin
For i:=0 to 59 do //60 интераций(повторений) цикла
LoadJPEGFromRes('Img'+IntToStr(i),Image1.Picture); 
end;

Надеюсь смысл ясен?

да все расписано на отлично )))) СПасибо

[casio23]

а если не в цикле то как загружать?на пример по одной картинке

[casio23]

и что то не работает все сделал как описано,собрал рес файл, подключил его, о выдает ошибку jpeg error #42