如何将Pbyte类型中的图片存入bitmap中。 我得到了一个Pbyte类型的图片,可是如何将它存入到Tbimap类型中呢,我需要做一些后期处理。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 什么意思???????要保存到数据库中吗>>>>>>>>> 你要知道这缓冲区的图片的宽,高,位深,才能正确显示出来给你个例子看下,ph 里包含了这些信息function OnPreview(ph : PBitmapInfoHeader; buff: pbyte): HRESULT; stdcall; var dc : HDC; iw,ih : Integer; bmp : TGpBitmap; bd : TBitmapData; gp : TGpGraphics;begin dc := GetDC(form1.pnlDc.Handle); bmp := TGpBitmap.Create(ph^.biWidth,ph^.biHeight,pf24bppRGB); bd := bmp.LockBits(GpRect(0,0,bmp.Width,bmp.Height),[imRead],pf24bppRGB); CopyMemory(bd.Scan0,buff,bd.Height * bd.Stride); bmp.UnlockBits(bd); bmp.RotateFlip(rfX180); iw := form1.pnlDc.Width; ih := Round(ph^.biHeight * iw/ph^.biWidth);// StretchDIBits(dc,0,0,iw,ih,0,0,ph^.biWidth,ph^.biHeight,buff,pBITMAPINFO(ph)^,DIB_RGB_COLORS, SRCCOPY);//拉伸显示时效果不好,所以用TGPBITMAP类来转换 gp := TGpGraphics.Create(dc); gp.DrawImage(bmp,GpRect(0,0,iw,ih),0,0,bmp.Width,bmp.Height,utPixel); FreeAndNil(bmp); FreeAndNil(gp); ReleaseDC(Form1.pnlDc.Handle,dc);end; 报错:测试连接失败,因为初始化提供程序时发生错误。 求一条sql插入语句!怎样在Delphi中把不同类型的字段插入数据库??? 如何在免费邮箱中建新文件夹?并对其操作? 如何制作组合组件! reportbuilder中如何加入空的行。 一个关于TStringList操作的简单问题 关于COM的问题,有较深理解的朋友来看看 几个菜鸟级问题,请勿见笑!:) 谁来教我用fastreport??!! 2个Dataset如何合并?3个呢? delphi 开发完一个系统后,客户要求源码,也一起给他们吗。 急急急!十进制ascii码转换成string时出现乱码,请问怎么解决?
要保存到数据库中吗>>>>>>>>>
给你个例子看下,ph 里包含了这些信息function OnPreview(ph : PBitmapInfoHeader; buff: pbyte): HRESULT; stdcall;
var dc : HDC;
iw,ih : Integer;
bmp : TGpBitmap;
bd : TBitmapData;
gp : TGpGraphics;
begin
dc := GetDC(form1.pnlDc.Handle);
bmp := TGpBitmap.Create(ph^.biWidth,ph^.biHeight,pf24bppRGB);
bd := bmp.LockBits(GpRect(0,0,bmp.Width,bmp.Height),[imRead],pf24bppRGB);
CopyMemory(bd.Scan0,buff,bd.Height * bd.Stride);
bmp.UnlockBits(bd);
bmp.RotateFlip(rfX180);
iw := form1.pnlDc.Width;
ih := Round(ph^.biHeight * iw/ph^.biWidth);
// StretchDIBits(dc,0,0,iw,ih,0,0,ph^.biWidth,ph^.biHeight,buff,pBITMAPINFO(ph)^,DIB_RGB_COLORS, SRCCOPY);//拉伸显示时效果不好,所以用TGPBITMAP类来转换
gp := TGpGraphics.Create(dc);
gp.DrawImage(bmp,GpRect(0,0,iw,ih),0,0,bmp.Width,bmp.Height,utPixel);
FreeAndNil(bmp);
FreeAndNil(gp);
ReleaseDC(Form1.pnlDc.Handle,dc);
end;