Error in VCLTee.TeeSHP
Posted: Wed Oct 28, 2015 3:10 pm
I am playing a little bit around with the LoadMap function because we want to extend our tool to deal with GIS data. The funtion works well but I guess there's a bug in the Code right here:
As you may see, the code is doubled. That leads to a false record number in the following code
Is this a known issue? The resulting map Chart then mirrors that error as one can see, when you make the legend visible or just have a look at the data. There are too many data rows in the map.
Regards
Markus
Code: Select all
{$IFDEF CLR}
ReadSHPHeader(ShpStream,SHPHeader);
{$ELSE}
ShpStream.ReadBuffer(SHPHeader,SizeOf(TSHPHeader));
{$ENDIF}
VerifySignature(SHPHeader.FileCode);
{$IFDEF CLR}
ReadSHPHeader(ShxStream,SHPHeader);
{$ELSE}
ShxStream.ReadBuffer(SHPHeader,SizeOf(TSHPHeader));
{$ENDIF}
VerifySignature(SHPHeader.FileCode);
Code: Select all
NumRecords:=RecordCount(SHPHeader);
Regards
Markus