Zeoslib Portal

Code: Select all

program ZeosPgDecimalTest;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Classes,
  Windows,
  Data.DB,
  ZDbcIntfs, ZConnection, ZDataset;

var
  ZConn: TZConnection;
  ZQuery: TZQuery;
begin
  try
    ZConn := TZConnection.Create(nil);
    ZConn.Protocol := 'postgresql';
    ZConn.User := 'mark';
    ZConn.Password := 'zeosRox';
    ZConn.HostName := 'myserver';
    ZConn.Database := 'testdb';
    ZConn.LibraryLocation := 'C:\U\DbClients\Postgres\32bit\libpq.dll';
    ZConn.Connect;

    if ZConn.Connected then
      Writeln('Connected');

    ZConn.ExecuteDirect('create table if not exists dectest (id bigint primary key, mydecimal decimal(10,6))');
    ZConn.ExecuteDirect('delete from dectest');

    ZQuery := TZQuery.Create(nil);
    ZQuery.Connection := ZConn;

    // Note that we have to double the :: on := to escape it from the parser.
    ZQuery.SQL.Text := 'select * from dectest';

    ZQuery.Open;

    ZQuery.Insert;
    ZQuery.Fields[0].Value := 1;
   // It doesn't seem to matter how we enter it...
    // ZQuery.Fields[1].Value := 23.82;   // truncates to 23
    // ZQuery.Fields[1].Value := '23.82';    // truncates to 23
    ZQuery.Fields[1].AsFloat := 23.82;   // truncates to 23

    Writeln('Input value: 23.82');

    ZQuery.Post;

    ZQuery.Close;

    ZQuery.SQL.Text := 'select mydecimal from dectest where id = 1';
    ZQuery.Open;
    while not ZQuery.Eof do
    begin
      Writeln('Output value: ' + ZQuery.Fields[0].AsString);
      ZQuery.Next;
    end;

    Writeln('Done');

    ZConn.Disconnect;
    ZQuery.Free;
    ZConn.Free;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

  Write('Press Enter to quit...');
  ReadLn;

end.

Code: Select all

  NBASEDigit := (PWords - Dst - 8) shr 1; //calc count of nbase digits

Code: Select all

  NBASEDigit := Max((PWords - Dst - 8), 1); //calc count of nbase digits
  NumBasedDigits := NBASEDigit;

Code: Select all

  Size := (pWords - Dst); //return size in bytes

Code: Select all

  Size := (4 + NumBasedDigits) * SizeOf(Word); // Size in bytes.

Code: Select all

  {$IFNDEF ENDIAN_BIG}
  if (FactorIndexOrScale <> 0) then begin
    NBASEDigit := PWord(pWords)^;
    PWord(pWords)^ := (NBASEDigit and $00FF shl 8) or (NBASEDigit and $FF00 shr 8);
    Inc(PWords, SizeOf(Word));   // This is what I added.
  end;
  {$ENDIF !ENDIAN_BIG}