CopyMarkers example for Delphi
procedure TForm1.CopyMarkersClick(Sender: TObject);
var
i: Integer;
begin
LEADMarker1.LoadMarkers ( 'e:\image1.jpg', 0 );
LEADMarker2.CreateMarkers ( );
LEADImage1.CopyMarkers ( LEADMarker2, LEADMarker1 );
for i:= 0 to LEADMarker2.Count - 1 do
begin
LEADMarker2.GetMarker ( i );
ShowMessage ( 'Marker Type= ' + IntToStr(LEADMarker2.MarkerType) + Chr(13) +
'Marker Element Count= ' + IntToStr(LEADMarker2.ElementCount) );
end;
end;