如何存储bmp图像?

Question

我调用一个函数，获得了bmp图像的数据指针，如何将它存为bmp图像？

Answer 1

var
   t:tbitmap;
begin
   t:=tbitmap.Create;
   t.LoadFromResourceName(HInstance,'THEBITMAP');
   t.SaveToFile('c:\test.bmp');
   t.Free;
end;
HInstance:你获得的指针

Answer 2

TBitmap.SaveToFile();
TImage.Picture.SaveToFile();

Answer 3

先谢谢两位，在问一下，我在VC++中调用dll中的函数，用到一下语句：
Byte *lpData;
BITMAPINFOHEADER* m_lpSaveBitmap;
lpData = (BYTE *)m_lpSaveBitmap + sizeof(BITMAPINFOHEADER);
请问：这几句在delphi中用什么语句代替？

Answer 4

var
lpData: ^Byte;
m_lpSaveBitmap:^BITMAPINFOHEADER
begin
  lpData := ......
end;

Answer 5

var
  lpData: PByte;
  m_lpSaveBitmap: PBitmapInfoHeader;
begin
  lpData := PByte(m_lpSaveBitmap + SizeOf(PBitmapInfoHeader));
end;

Answer 6

SORRY. It's lpData := PByte(m_lpSaveBitmap + SizeOf(BitmapInfoHeader));

Answer 7

在问一下，这一句用delphi怎么写？
m_lpSaveBitmap = (BITMAPINFOHEADER *) malloc(Width*3*Height + sizeof(BITMAPINFOHEADER));

Answer 8

Bitmap:TBitmap;
Bitmap2:TBitamp;
Bitamp2:=TBitmap.Create();
Bitamp2.LoadFromFile(FileName)
Bitmap:=TBitmap.Create();
Bitmap.Assign(Bitamp2)
Bitamp.SaveToFile(FileName.bmp)