Laut diesem Code:
Delphi-Quellcode:
for i:=1 to 3 do
begin
RStream := TResourceStream.Create(HInstance, 'A'+IntToStr(i), RT_RCDATA);
try
jpgLogo := TJpegImage.Create;
Try
jpgLogo.LoadFromStream(RStream);
tuer[i].LoadFromStream(RStream);
.. hast du doch schonmal 3 Resourcen A1 bis A3, welche alle ein JPEG enthalten.
Das Problem ist, dass du JEDES MAL 2 JPEGS ausliest. Das erste
LoadFromStream
wird funktionieren; das Zweite allerdings nicht, weil die Leseposition des Streams sich dann schon entsprechend an das Ende gesetzt hat.