Сохранить изображение из буфера

Изображение сделано с помощью PrintScreen и соответсвенно оно в формате *.BMP

volod3000:
Тогда можно так :



procedure SaveAsBitmap(Graphic: TGraphic; FileName: String);

var

Bitmap: TBitmap;

begin

Bitmap := TBitmap.Create;

try

Bitmap.PixelFormat := pf24bit;

Bitmap.Width := Graphic.Width;

Bitmap.Height := Graphic.Height;

Bitmap.Canvas.Draw(0, 0, Graphic);

Bitmap.SaveToFile(FileName);

finally

Bitmap.Free;

end;

end;

.............................................

...........................
     image1.Picture.Assign(Clipboard);

     Bitmap := TBitmap.Create;

     SaveAsBitmap(Image1.Picture.Graphic, 'Whatever.bmp');

     Bitmap.LoadFromFile('Whatever.bmp');

     Image2.Picture.Assign(Bitmap);

Результат :

Если интересно , вот функция скриншота экрана :

function ScreenShot(Width, Height: Integer; Filename: string): Boolean;

var

  Bih: TBitmapInfoHeader;

  Bfh: TBitmapFileHeader;

  CDC, DC: HDC;

  CBmp: HBitMap;

  Bmp: Pointer;

  BmpInfo: TBitMapInfo;

  F, Size, Written: LongWord;

begin

 try

  Width  := GetSystemMetrics(SM_CXSCREEN);

  Height := GetSystemMetrics(SM_CYSCREEN);

  DC := GetDC(0);

  CDC := CreateCompatibleDC(DC);

  Bih.biSize := SizeOf(TBitmapInfoHeader);

  Bih.biWidth := Width;

  Bih.biHeight := Height;

  Bih.biPlanes := 1;

  Bih.biBitCount := GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES);

  if Bih.biBitCount = 32 then Bih.biBitCount := 24;

  Size := 3 * Width * Height;

  Bfh.bfType := $4D42;

  Bfh.bfOffBits := SizeOf(TBitmapFileHeader) + SizeOf(TBitmapInfoHeader);

  BmpInfo.bmiHeader := Bih;

  CBmp := CreateDIBSection(DC, BmpInfo, 0, Bmp, 0, 0);

  SelectObject(CDC, CBmp);

  StretchBlt(CDC, 0, 0, Width, Height, DC, 0, 0, GetSystemMetrics(SM_CXSCREEN),

    GetSystemMetrics(SM_CYSCREEN), SRCCOPY);

  F := CreateFile(PChar(Filename), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);

  WriteFile(F, Bfh, SizeOf(TBitmapFileHeader), Written, nil);

  WriteFile(F, Bih, SizeOf(TBitmapInfoHeader), Written, nil);

  WriteFile(F, Bmp^, Size, Written, nil);

  CloseHandle(F);

  Result := true;

 except

  Result := false;

 end;

end;

ScreenShot(ширина, высота: Integer; куда/имя файла: string)

тема на форуме

Последние записи

Сохранить изображение из буфера

Похожие статьи