VPF::Функция в DLL - Форум программистов

InfMag

Дата 15.8.2005, 10:02 (ссылка)

(нет голосов)

Загрузка ...

…

Профиль
Группа: Завсегдатай
Сообщений: 1037
Регистрация: 21.11.2004

Репутация: нет
Всего: 4

Люди, мне нужно загнать одну функцию на Delphi в C++Builder. Я зашел в DLL Wizard, но у меня так и не получилось ее туда загнать...
Вот функция (по работе с регионом):

Код


function CreateRgnFromBitmap(rgnBitmap: TBitmap): HRGN;
var
TransColor: TColor;
i, j: Integer;
i_width, i_height: Integer;
i_left, i_right: Integer;
rectRgn: HRGN;
begin
Result := 0;
// Запоминаю размеры окна
i_width := rgnBitmap.Width;
i_height := rgnBitmap.Height;
// Определяю прозрачный цвет
transColor := rgnBitmap.Canvas.Pixels[0, 0];
// Запускаю цикл перебора строк картинки 
// для определения области окна без фона 
for i := 0 to i_height - 1 do 
begin 
i_left := -1; 
// Запускаю цикл перебора столбцов картинки 
for j := 0 to i_width - 1 do 
begin 
if i_left < 0 then 
begin 
if rgnBitmap.Canvas.Pixels[j, i] <> transColor then
i_left := j;
end
else
if rgnBitmap.Canvas.Pixels[j, i] = transColor then
begin 
i_right := j; 
rectRgn := CreateRectRgn(i_left, i, i_right, i + 1); 
if Result = 0 then 
Result := rectRgn 
else 
begin 
CombineRgn(Result, Result, rectRgn, RGN_OR); 
DeleteObject(rectRgn); 
end;
i_left := -1;
end;
end; 
if i_left >= 0 then 
begin 
rectRgn := CreateRectRgn(i_left, i, i_width, i + 1); 
if Result = 0 then 
Result := rectRgn 
else 
begin 
CombineRgn(Result, Result, rectRgn, RGN_OR); 
DeleteObject(rectRgn); 
end; 
end;
end;
end;

Мне нужно, чтобы я спокойно потом обрашался к функции с DLL

_hunter

Дата 15.8.2005, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

так а что именно не получилось? dll сваять?

--------------------

Tempora mutantur, et nos mutamur in illis...

Петрович

Дата 15.8.2005, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

А в C++Builder'е есть тип TBitmap?

--------------------

Все знать невозможно, но хочется

_hunter

Дата 15.8.2005, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

есть. VCL они почти один в один перенесли ( не считая вариантов и сейфАррев )

--------------------

Tempora mutantur, et nos mutamur in illis...

InfMag

Дата 15.8.2005, 12:25 (ссылка)

(нет голосов)

Загрузка ...

…

Профиль
Группа: Завсегдатай
Сообщений: 1037
Регистрация: 21.11.2004

Репутация: нет
Всего: 4

_hunter
Я вобще не понимаю ентой технологии, да если енто засуну в длл, то потом еще буду спрашивать как в си инклудить функцию... smile

Блин, очень тяжко, когда с длл не умеешь работать. Очень хочу научиться, но просто совершенно не из чего...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »