Topic: подключение DLL
Добрый день.
Возможно ли подключить библиотеку DLL, хочу использовать бесплатную библиотеку распознавания авто номеров iANPR_vc14_x86.dll
В документации приведён вот такой код для Delphi, но адаптировать к MVDB не получается:
Определение типов:
type
ANPR_OPTIONS = Record
min_plate_size:integer;
max_plate_size:integer;
Detect_Mode:integer;
max_text_size:integer;
type_number:integer;
flags:integer;
end;
type
CvRect = Record
x:integer;
y:integer;
width:integer;
height:integer;
end;
type
PRect = ^CvRect;
Подключение функции:
function anprPlateMemoryRect( in_buffer: PChar; size_buffer: integer; Rect: CvRect; Options: ANPR_OPTIONS; AllNumber: PInt; Rects: PRect; Texts: PPChar ): integer; stdcall; external 'iANPRinterface_vc12_x86.dll'
name 'anprPlateMemoryRect';
Чтение из файла и вызов функции:
with TFileStream.create(File_, fmOpenReadWrite) do
try
GetMem(p, Size);
read(p^, Size);
s := Size;
finally
free;
end;
all := 100;
anpr.min_plate_size := 500;
anpr.max_plate_size := 25000;
anpr.Detect_Mode := 6; // ANPR_DETECTMODE2 | ANPR_DETECTMODE3;
anpr.max_text_size := 20;
anpr.type_number := 0; // ANPR_RUSSIAN_BASE
anpr.flags := 0;
pr := @rect;
GetMem( ptext, all * sizeof(pchar));
for i := 0 to all-1 do
GetMem( ptext[i], 20 *sizeof( char ) );
RectArea.x := 0; RectArea.y := 0;
RectArea.width := 640; RectArea.height := 480;
r := anprPlateMemoryRect( p, s, RectArea, anpr, @all, pr, @ptext[0] );
FreeMem(p);