ToDataset produce corrupted data

swierzbicki · 2014-11-20 09:24:18

Hello AB,

I'm getting weird issue with ToDataset function where produced dataset is corrupted.
Server is connected to a postgresql database using UniDAC library.

When using ToDataset function, string data is corrupted and fields have values from other fields

Here is my server code

  
    Var
    Props: TSQLDBConnectionProperties;
    HttpServer: TSQLDBServerAbstract;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Props := TSQLDBUniDACConnectionProperties.Create(
  TSQLDBUniDACConnectionProperties.URI(dPostgreSQL,'localhost'),
  'db', 'STEPH', 'me');
  HttpServer := TSQLDBServerHttpApi.Create(Props,'root','8080','user','pass' );
end;

Here is my client code

 
    Var
    fProps: TSQLDBConnectionProperties;


procedure TForm2.chkFromSQLClick(Sender: TObject);
var
  proxy: TSQLDBConnectionProperties;
  stmt: TSQLDBStatement;
  Timer: TPrecisionTimer;
begin
  ds1.DataSet.Free;
  Timer.Start;
  proxy := fProps;
  try
    proxy := TSQLDBWinHTTPConnectionProperties.Create('localhost:8080', 'root',
      'user', 'pass');

    stmt := proxy.NewThreadSafeStatement;
    try
      // stmt.Execute('select * from users where "User""=?',['STEPH']);
      stmt.Execute('select * from utilisateurs', true);
      if chkViaTClientDataSet.Checked then
        ds1.DataSet := ToClientDataSet(self, stmt)
      else
        ds1.DataSet := ToDataSet(self, stmt);
    finally
      stmt.Free;
    end;
  finally
    if proxy <> fProps then
      proxy.Free;
  end;
  lblTiming.Caption := 'Processed in ' + Ansi7ToString(Timer.Stop);
end;

Last edited by swierzbicki (2014-11-20 12:39:27)

ab · 2014-11-20 09:32:40

Are you using the latest nightly build?
Ensure you included http://synopse.info/fossil/info/98535d019c

swierzbicki · 2014-11-20 10:04:34

Yes, I'm using the latest version...

I've also an "cosmetic" issue with TTime Fields that are displayed as TDateTime Fields

itSDS · 2014-11-20 12:25:03

Hi AB this is the same issue i have already reported !

Last edited by itSDS (2014-11-20 12:25:17)

mORMot Open Source

#1 2014-11-20 09:24:18

ToDataset produce corrupted data

#2 2014-11-20 09:32:40

Re: ToDataset produce corrupted data

#3 2014-11-20 10:04:34

Re: ToDataset produce corrupted data

#4 2014-11-20 12:25:03

Re: ToDataset produce corrupted data

Board footer