Как сделать Screensave в формате bmp?

[Kytx]

Помогите советом... Нужно сделать скринсайв в формате bmp и сохранить его в указанное место переменной место ПутьКСкринсайву = "e:\0001.bmp"

[baha76]

Сначала уточним вопрос, потом ответим.
Как я понял, ты хочешь снять изображение с рабочего стола и сохранить ее в файле, так?

[Sirik]

Размещаешь на форме Picture1
Код модуля:

Код: Выделить всё

Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020


Код формы (процедуры):

Код: Выделить всё

Sub Desk()
  Dim hDesk, hDeskDC
 
  hDesk = GetDesktopWindow()
  hDeskDC = GetDC(hDesk)
  BitBlt Picture1.hDC, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY

  SavePicture Picture1.Image, [b]"C:\Picture.bmp"[/b]

End Sub


[Kytx]

Именно

[baha76]

Ну вот, тебе уже ответили.

[Sirik]

Хотя мне больше нравиться сохранять в формате JPG. Меньше места при не большой потере качества.
Для сравнения: BMP - 2,3Mb, JPG - 76Kb !!!!

[EUR]

Хотя мне больше нравиться сохранять в формате JPG. Меньше места при не большой потере качества.
Для сравнения: BMP - 2,3Mb, JPG - 76Kb !!!!

А каким образом (я использую savtojpeg.dll, но, может быть, есть способ лучше)?

[Sirik]

Хотя мне больше нравиться сохранять в формате JPG. Меньше места при не большой потере качества.
Для сравнения: BMP - 2,3Mb, JPG - 76Kb !!!!

А каким образом (я использую savtojpeg.dll, но, может быть, есть способ лучше)?

Конечно есть: у меня есть библиотека, которая в 2 мига преобразует:
BMP, JPG и GIF в друг друга.

Если надо - дай мыло, вышлю

[EUR]

Кинь, плиз

[Kytx]

А если у меня формы нет в принципе??? Неужели нужно ее обязательно создать? Я понимаю, что ее можно и не показывать, но разве нельзя без ее обойтись?

[Kytx]

А bmp мне нужен для декодирования картинки, в этом формате все понятно - три байта на пиксель и при желании можно анализировать, что на экране, что с этим происходит и т.п. А вот jpeg фиг разгадаешь, если кто знает как пусть подскажет...

[Kytx]

Sirik кинь плиз библиотеку на мыло kytx@mail.ru и научи как ей пользоваться

[Matew]

У меня похожая проблема! Я тут на пикчербоксе нарисовал всяких апи-функций и мне надо его в БМП сохранить. Подскажите,
SavePicture pbDoc.Picture, "c:\Picture.bmp" не помогает! Пишет не тот формат!
SavePicture pbDoc.Image,"C:\Picture.bmp"
работает тока так, но не сохраняет мои линии.

[Kytx]

Наверное у меня кривые руки или мозги, но как ты сказал, сделать не получилось:(

Путем долгих мытарств я догнал, что GetDesktopWindow() и DetDC() тоже нужно декларировать, т.е. код в модуле был исправлен так:

Public Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Public Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Long) As Long
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020

sub main ()
call form1.desk
end sub

a в коде формы так из-за ошибки "Comple error: Syntax error":

Sub Desk()
Dim hDesk, hDeskDC
hDesk = GetDesktopWindow()
hDeskDC = GetDC(hDesk)
BitBlt Picture1.hDC, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY
SavePicture Picture1.Image, "C:\Picture.bmp"
End Sub

Однако, после запуска программы в C:\Picture.bmp находился либо серый прямоугольник, либо картинка которую предворительно устанавливал в picture1.picture, вернее даже ее часть которая помещалась в picture1. Объясни плиз, где я напортачил.

[Faust]

А bmp мне нужен для декодирования картинки, в этом формате все понятно - три байта на пиксель и при желании можно анализировать, что на экране, что с этим происходит и т.п. А вот jpeg фиг разгадаешь, если кто знает как пусть подскажет...

http://www.wotsit.org Вам в помощь! Правда, нужно знание английского.
2Sirik: А мне можно приобщиться к чудо-библиотеке?

[Sirik]

По просьбе трудящихся вот.

Если будут проблеммы пишите.