Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

JPG 


Тупой Олень!   (2002-01-16 12:50) [0]

Можно ли из буфера скриншот экрана вставить в jpg-файл?



Velocity   (2002-01-19 10:03) [1]

Разумеется. Как - уже не помню, но если надо, придётся напрячься. Помню только что просто делается.



Ghost.   (2002-01-19 12:23) [2]

procedure ......(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
MyJpeg: TJpegImage;
scale: Double;
begin
bmp:=TBitmap.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
MyJpeg:= TJpegImage.Create;
MyJpeg.Assign(bmp);
try
if MyJpeg.Height>MyJpeg.Width then scale:={тут размер будующего изображения}/MyJpeg.Height
else scale:={тут размер будующего изображения}/MyJpeg.Width;
try
bmp.Width:=Round( MyJpeg.Width*scale );
bmp.Height:=Round( MyJpeg.Height*scale );
bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, MyJpeg);
Self.Canvas.Draw(100,10,bmp);
MyJpeg.Assign(bmp);
MyJpeg.SaveToFile(название создаваемого файла);
finally
bmp.free;
end;
finally
MyJpeg.free;
end;
form1.Close;
end;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.032 c
4-57570           oblom                 2002-01-16 23:34  2002.03.18  
найти приложение


3-57280           ивкен                 2002-02-17 17:02  2002.03.18  
Как изменить одну таблицу, на основании информации в другой


1-57352           xpyctuk               2002-03-04 15:22  2002.03.18  
ISAPI приложение - WebModule, Свойства Request and Response


3-57334           AlexOb                2002-02-19 12:02  2002.03.18  
Как конвертнуть Paradox -> MySQL ?


1-57355           Eraser                2002-03-04 16:01  2002.03.18  
Как программно добавить строку меню и подменю в TMainMenu