我正在尝试从资源文件中读取一些 gif 和位图,我正在使用资源黑客将图像包含到 project.res 文件中,但我使用的代码似乎没有返回正确的图像数量。
下面是我想要做的
Stream := TResourceStream.Create(HInstance,'EMOTES','BIN');
GetMem(Buffer,40000);
Stream.Read(StreamCount,4);
For I := 0 To StreamCount - 1 Do Begin
Stream.Read(StreamSize,4);
Stream.Read(Buffer^,StreamSize);
ImageStream := TMemoryStream.Create;
ImageStream.Write(Buffer^,StreamSize);
ImageStreamList.Add(ImageStream);
ImageStream.Free;
End;
FreeMem(Buffer);
Stream.Free;