Добрый день, уважаемые коллеги.
Пытаюсь использовать указанную библиотеку, внимательно читаю документацию, но не могу понять, как с ее помощью создать новый shape.
Среда разработки Delphi 7.0, исходный код:
procedure CreateShape;
var
MyNewShape: _ShapeFiles;
I: TOleEnum;
HelpOle: OleVAriant;
begin
CoInitialize(nil);
MyNewShape := CreateComObject(CLASS_ShapeFiles) as _ShapeFiles;
MyNewShape.OpenShape('Shp\X.shp', shpCreate, shpPoint);
MyNewShape.ShapeFields.CreateField('TEST', shpInteger, 2, 1);
HelpOle := 1;
MyNewShape.AppendFieldDefs;
MyNewShape.ShapeFields.Item[HelpOle].Value := HelpOle;
MyNewShape.MoveNext;
MyNewShape.CreateShape; // ОШИБКА (run-time)! Invalide procedure
// call or argument
end;
Спасибо за ответы. Другие корректные замечания по коду принимаются с благодарностью.
