Devart Forums

Code: Select all

procedure TfmMain.Button5Click(Sender: TObject);
var
  fld: TField;
  pgfld: TPgGeometricField;
  pGeom: TPgGeometric;
  pPoint: TPgPoint;
  pCBlob: TCompressedBlob;
  x,y: Double;
begin
  PgQuery1.SQL.Clear;
  PgQuery1.SQL.Add('SELECT * FROM test_geom');
  PgQuery1.Open;
  fld := PgQuery1.FieldByName('geometry');
  pgfld := TPgGeometricField(fld);

  pGeom := pgfld.AsPgGeometric;
  pCBlob := TCompressedBlob(pGeom);//works, but how to decode geometry data?

  pPoint := TPgPoint(pGeom);//don't work
  x := pPoint.X;
  y := pPoint.Y;

Code: Select all

  PgQuery1.SQL.Add('SELECT ST_AsText(geometry) FROM test_geom');
  PgQuery1.Open;

Code: Select all

CREATE TABLE test_geom_point
(
  geometry point,
  id integer NOT NULL
);

INSERT INTO test_geom_point(
            geometry, id )
    VALUES (point(2,1), 1);