Здравствуйте!
У меня стоит задача конвертации bmp в png. Если подробно: пользователь каким-то образом в буфер обмена получает картину(например Screenshot) и в форме приложения на VFP нажимает на кнопку Сохранить картину из буфера, и процедура сохраняет картину в файл, только в формате bmp. Мне хочется в png.
Ниже код сохранения картинки из буфера, где-то этот код скачал, не помню где, если увидите, передайте автору кода спасибо!!! :beer:
[code] hBmp = 0
If OpenClipboard(0) != 0
hBmp = GetClipboardData(CF_BITMAP)
hPal = GetClipboardData(CF_PALETTE)
CloseClipboard()
Endif
If hBmp = 0 Or GetObjectType(hBmp) <> OBJ_BITMAP
Messagebox("Буфер не содержит картинку",64,"")
Return -1
Endif
lcPictDesc = BinToC(16, "4RS") + BinToC(PICTYPE_BITMAP, "4RS") + BinToC(hBmp, "4RS") + BinToC(hPal, "4RS")
iid = IID_IDispatch
IPic = 0
OleCreatePictureIndirect(@lcPictDesc, @iid, 1, @IPic)
=SavePicture(IPic,tcfilename)
DeleteObject(hBmp)
[/code]
Спасибо!