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

[Shouldercannon]

Как поместить изображение из буфера например сюда:

var
  b: tbitmap;
begin
  b := tbitmap.create;
...

[mss]

Смотря в каком формате оно попало в буфер

[volod3000]

Вот три способа :

image1.Picture.Assign(Bitmap);
image1.picture.bitmap.handle:=clipboard.getashandle(cf_bitmap);
image1.Picture.Assign(Clipboard);

Но, есть но, с родным буфером windows, почему-то, не работает.

Прикрепленный файл для чтения :

[Shouldercannon]

Изображение сделано с помощью PrintScreen и соответсвенно оно в формате *.BMP. В Image ничего втавлять не надо так как размеры изображения неизвестны.

[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);

Результат :

[volod3000]

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

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)

[Shouldercannon]

  keybd_event(VK_SNAPSHOT, 0, 0, 0);
  keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);
  if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Assign(Clipboard);
  Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + 'temp.bmp');

Имитирую нажатие кнопки PrintScreen. Далее помещаю изображение из буфера в Image и потом из Image сохраняю в файл. С имитацией нажатия PrintScreen новое изображение сохраняется только со второго раза. В чем проблема?

[volod3000]

Попробуйте так :

keybd_event(VK_SNAPSHOT, 0, 0, 0);
  keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);
  if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Assign(Clipboard);
  sleep(100);
  Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + 'temp.bmp');

Дайте время процессору закончить операции.

[Пепел Феникса]

Дайте время процессору закончить операции.

и что за бред пишите?(я именно про совокупность местанахождения слипа и того что я процитировал)
код последовательно выполняется, а не многопоточно.

а вот слип, после имитации нажатия клавиш стоит поставить.
(и между нажатием отпусканием кстати тож желательно)

[volod3000]

Поспешил, сори.