众位大虾在设置Bitmap大小的时候我是这样设置的
Bitmap := TBitmap.Create;
Bitmap.width := 5000;
Bitmap.height := 5000;
可是这样,就无法通过,好像是内存不够.是不是可以设置默认的点的存储大小.好像应该可以设置Bitmap的每个点的存储大小,比如可以将每个点变成两位色,不就站的少了么.可是我不知道怎么设呀.
拜托,另外Save框怎么做呀,用什么命令.
Bitmap := TBitmap.Create;
Bitmap.width := 5000;
Bitmap.height := 5000;
可是这样,就无法通过,好像是内存不够.是不是可以设置默认的点的存储大小.好像应该可以设置Bitmap的每个点的存储大小,比如可以将每个点变成两位色,不就站的少了么.可是我不知道怎么设呀.
拜托,另外Save框怎么做呀,用什么命令.
我现在有bmp转jpeg的例子,并且存储到数据库中
BitMap1,BitMap2 : TBitMap;
MyFormat : Word;
begin
BitMap2 := TBitMap.Create;
BitMap1 := TBitMap.Create;
try
BitMap1.LoadFromFile('c:\Program Files\common Files\Borland Shared\Images\Splash\256color\factory.bmp');
BitMap2.Assign(BitMap1); // Copy BitMap1 into BitMap2
BitMap2.Dormant; // Free up GDI resources
BitMap2.FreeImage; // Free up Memory.
Canvas.Draw(20,20,BitMap2); // Note that previous calls don't lose the image BitMap2.Monochrome := true;
Canvas.Draw(80,80,BitMap2);
BitMap2.ReleaseHandle; // This will actually lose the bitmap;
finally
BitMap1.Free;
BitMap2.Free;
end;
end;帮助里的代码.
Bitmap.Pixelformat := 1;
你可以试试