Водяные знаки. Delphi

[SultanOFF]

Здравствуйте. Появтлась необходимость накладывать в своей проге водяной знак на картинку(JPG). Водяной знак также представляет из себя обычную картинку. Собственно исходник по наложению картинки на картинку Я нашел. Но там 1-ая картинка полностью накладывается на вторую(ну только с прозрачностью), а Мне нужно на определенный участок первой картинки. Вот код
var
bmp1, bmp2: TBitMap;
Blend: TBlendFunction;
begin
bmp1 := TBitMap.Create;
bmp2 := TBitMap.Create;
bmp1.LoadFromFile('C:\1.bmp'); // загружаем 1 битмап
bmp2.LoadFromFile('C:\2.bmp'); // и второй битмап
bmp1.PixelFormat := pf32bit; // переводим оба в 32 бит
bmp2.PixelFormat := pf32bit;
Blend.BlendOp := AC_SRC_OVER;
Blend.BlendFlags := 0;
Blend.SourceConstantAlpha := 128; // прозрачность 50% (0 - 255)
Blend.AlphaFormat := AC_SRC_ALPHA; // либо = 0 (другой алгоритм)
// накладываем битмап 2 на битмап 1. Результат в bmp1
if Windows.AlphaBlend(bmp1.Canvas.Handle, 0, 0, bmp1.Width, bmp1.Height,
bmp2.Canvas.Handle, 0, 0, bmp2.Width, bmp2.Height, Blend) then
Canvas.Draw(0, 0, bmp1) // рисуем результат на форме
else ShowMessage(IntToStr(GetLastError)); // или код ошибки, если наложить не удалось
bmp1.Free; bmp2.Free; // уничтожаем битмапы
end;
Помогите пожалуйста :(

[slesh]

спрашивается: млять ты каким местом смотришь????????????????????????????????
тебе случайно ничего не говорят эти цифры:
if Windows.AlphaBlend(bmp1.Canvas.Handle, 0, 0, bmp1.Width, bmp1.Height, bmp2.Canvas.Handle, 0, 0, bmp2.Width, bmp2.Height, Blend) then

Или впадлу глянуть в MSDN и увидеть

BOOL AlphaBlend(
HDC hdcDest, // handle to destination DC
int nXOriginDest, // x-coord of upper-left corner
int nYOriginDest, // y-coord of upper-left corner
int nWidthDest, // destination width
int nHeightDest, // destination height
HDC hdcSrc, // handle to source DC
int nXOriginSrc, // x-coord of upper-left corner
int nYOriginSrc, // y-coord of upper-left corner
int nWidthSrc, // source width
int nHeightSrc, // source height
BLENDFUNCTION blendFunction // alpha-blending function
);



Когда задаете подобные вопросы, вы хотябы ищите сначало ответы в инете или хоть чуть сами подумайте над ответом. Тем более что на 99% вопросов по WinAPI - в MSDN есть ответы. Влом канать? Ну тогда юзайте онлайн версию. Не знаете англ языка, ну так смотрите уже переведенный вариант или кормите гуглопереводчика.

[SultanOFF]

Slesh, простите Меня за такие глупые вопросы :( действительно про MSDN Я впервые узнал.. впредь обещаю быть более внимательным.. Вот Я сделал так Windows.AlphaBlend(bmp1.Canvas.Handle, bmp1.Width-bmp2.Width, bmp1.Height- bmp2.Height, bmp1.Width, bmp1.Height,
bmp2.Canvas.Handle, 0, 0, bmp2.Width, bmp2.Height, Blend)
по Моим суждениям вторая картинка должна появится в правом нижнем углу. Однако картинки вообще не видно.

[Chrome~]

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

[SultanOFF]

Мне на скриншоты нужно накладывать водяной знак, этой прогой особо опытные люди не будут пользоваться :)

[slesh]

if Windows.AlphaBlend(
bmp1.Canvas.Handle, // главная картинка
bmp1.Width - bmp2.Width, // место куда начнет выводиться вторая картинка по X
bmp1.Height - bmp2.Height, // место куда начнет выводиться вторая картинка по Y
bmp2.Width, // сколько будет выводиться вторая картинка по X
bmp2.Height, // сколько будет выводиться вторая картинка по Y
bmp2.Canvas.Handle, // накладываемая картинка
0, // откуда наложить X
0, // откуда наложить Y
bmp2.Width, // сколько наложить по X
bmp2.Height, // сколько наложить по Y
Blend) then


Выражаясь простым языком команда принимает значения:
Положение и размер региона куда впихиваются данные и положения и размер региона впихиваемых данных. Если первый меньше второго, то автоматически картинка уменьшится (масштаб станет меньше), если первый больше второго, то наоборот увеличится. т.е. чтото типа изменение размера еще можно тут реализовать.

AC_SRC_ALPHA - мешивание светов + прозрачность
AC_SRC_OVER - смешивание цветов без использование прозрачности

[SultanOFF]

все, спасибо большое Slesh. Теперь постараюсь меньше задавать подобные вопросы. :)