如何提取出DLL中的位图资源呢？（简单问题）(20分)

mylem · 2003-07-31

谁能帮我完成如下的代码： 说明：bmp.dll是包含位图的dll,'WB'是dll中的位图的名称 由于loadimage函数得到的是位图的句柄，但我要的是位图本身的数据 procedure TForm1.Button1Click(Sender: TObject); VAR HbmpLib:THandle; tmpbmp:TBitmap; begin HbmpLib:=LoadLibrary('bmp.dll'); tmpbmp:=Tbitmap.Create; loadimage(Hbmplib,'WB',IMAGE_BITMAP,0,0,LR_DEFAULTCOLOR); ///////在下面该写什么把把位图调入一个imagelist中呢 //////////////////// end;

wfzha · 2003-07-31

下面的代码保存到image中，imagelist用imagelist.add...... var rshandle,h:THandle;     bmp:TBitmap;     S:TMemoryStream; //    s1:TFileStream;     i:integer;    JPEGImg: TJPEGImage; begin   h:=LoadLibrary('FormImages');   if h<=0 then     showMessage('Load Dll Error')   else begin   S:=TMemoryStream.Create;   s.Clear;   rshandle:=FindResource(h,pchar('My'),PChar('UNKNOW'));   i:=LoadResource(h,rshandle);   s.WriteBuffer(ptr(i)^,SizeOfResource(h,rshandle));   s.Position:=0;   JPEGImg:=TJPEGImage.Create;   JPEGImg.LoadFromStream(S);   Image1.Picture.Assign(JPEGImg);   end;   freeLibrary(h);   s.Free;   jpegimg.free; end;

hfghfghfg · 2003-08-01

var   BitMap1: TBitMap; begin   BitMap1 := TBitMap.Create;   Image1.visible := false;   if hReportLib > 0 then     begin       try //LibraryHandle:= LoadLibrary(pchar('资源.dll'));         BitMap1.LoadFromResourceName(LibraryHandle, 'bmp1');         Image1.Width := BitMap1.width + 2;         Image1.Height := BitMap1.Height + 2;         Image1.Canvas.Draw(1, 1, BitMap1);         Image1.Visible := true;       finally         freeandnil(BitMap1);       end;     end;

mylem · 2003-08-01

谢谢两位，不过我希望把位图放入imagelist中，不是image控件中，该怎么实现呢？

mylem · 2003-08-01

如何提取出DLL中的位图资源呢？（简单问题）(20分)

mylem

Unregistered / Unconfirmed

wfzha

Unregistered / Unconfirmed

hfghfghfg

Unregistered / Unconfirmed

mylem

Unregistered / Unconfirmed

mylem

Unregistered / Unconfirmed

Similar threads