Библиотека графических эффектов в dll.

[Alex Cones]

Необходимо создать библиотеку графических эффектов (типа "шум","гаусс" etc) алгоритмы эффектов мне известны, единственный вопрос в том, как это вынести в dll? Отправлять TBitMap.Handle, а в dll присваивать этот хендл "свежему" битмапу?

[DomiNick]

У меня тоже была идея создать что-нибудь подобное...
Думаю нужно попробовать передавать процедуре HBITMAP, а там уже как удобнее будет... Напрямую в памяти например...
А что имеется ввиду под "присваивать этот хендл 'свежему' битмапу"?

Кстати было бы интересно посмотреть сами алгоритмы...

[Alex Cones]

Кстати было бы интересно посмотреть сами алгоритмы...

Ну дык курить вику и фантазию

А что имеется ввиду под "присваивать этот хендл 'свежему' битмапу"?

Procedure FVEL_Effect001(BitMap.Handle);

Procedure FVEL_Effect001(H : THandle);
Var
 B : TBitMap;
Begin
 B := TBitMap.Create;
 B.Handle := H;

[DomiNick]

B := TBitMap.Create;

Эм... А зачем в dll тащить VCL? Через указатели прям в памяти и работать...
WinAPI-то думаю полюбому понадобится, а TBitmap это уже как-то не очень...

Ну дык курить вику и фантазию

Ну их же много бывает... Может что-нить особое завалялось, что так просто не найти...

[Alex Cones]

WinAPI-то думаю полюбому понадобится

Не подмогнете с редактированием картинки по HBITMAP? Уже с полгода курю все, что можно, не вставляет... Кайфа все нет как нет...

[DomiNick]

А возможно достаточно даже просто указатель и параметры битмапа передавать... Но там уже нужно будет при использовании следить чтоб всё правильно было...

Можно попробовать... Какой фильтр для пробы сделаем? Преобразовать в ч/б?
Есть шаблон dll'ки? А то я их для себя не делал ни разу (просто не люблю когда кроме моего экзешника чтот ещё нужно)...
exports обязательно в самом конце писать?

[Alex Cones]

Вот например шаблон:

[DomiNick]

Ну вот примерно такое:

Dll:

library FVFL;

uses Windows;

{$R *.res}

procedure FVFL_ConvertToBW(Handle: HBITMAP); stdcall;
var x, y: Integer; c: byte; BMP: BITMAP; p1, p2: PRGBTriple;
begin
Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
p1:=BMP.bmBits;
if BMP.bmBitsPixel=24 then
      for y:=0 to BMP.bmHeight-1 do
            begin
            p2:=p1;
            for x:=0 to BMP.bmWidth-1 do
                  begin
                  c:=(p2.rgbtRed+p2.rgbtGreen+p2.rgbtBlue) div 3;
                  p2.rgbtRed:=c;
                  p2.rgbtGreen:=c;
                  p2.rgbtBlue:=c;
                  inc(p2);
                  end;
            Pointer(p1):=Pointer(Integer(p1)+BMP.bmWidthBytes);
            end
else
      MessageBox(0, 'Function works with 24bit bitmaps only!', 'Error', MB_OK);
end;

exports FVFL_convertToBW;

begin
end.

Test:

procedure FVFL_ConvertToBW(Handle: HBITMAP); StdCall; External 'FVFL.dll';

...

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
FVFL_ConvertToBW(Image1.Picture.Bitmap.Handle);
Image1.Refresh;
end;

[Alex Cones]

procedure FVFL_ConvertToBW(Handle: HBITMAP);

Если мы послыем и выуживаем обратно, разве не нужно указывать разрешение "вытяжки"?

procedure FVFL_ConvertToBW(Var Handle: HBITMAP);

[DomiNick]

Эм..... А зачем?
Оно же и не измениться.....