New build UniDAC incorrect Fields.Count on 64 bit Xe2
Posted: Fri 30 Dec 2011 15:27
Hello,
I Created simple application in XE2 Delphi and Windows 7 64 Bits.
I created two platform builds
a) 32 bit app
b) 64 bit app.
For 64 bit application I get bad Field.Count property
It seams that this property for 64 platform returns 6 fields only (for 32 I get 8 fields).
I Created simple application in XE2 Delphi and Windows 7 64 Bits.
I created two platform builds
a) 32 bit app
b) 64 bit app.
For 64 bit application I get bad Field.Count property
Code: Select all
unit UniDac;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, MemDS, DBAccess,
Uni, UniProvider, SQLServerUniProvider;
type
TForm1 = class(TForm)
SQLServerUniProvider1: TSQLServerUniProvider;
UniConnection: TUniConnection;
UniQuery1: TUniQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
FQuery: string =
' SELECT ''Data1'', ''Data2'', ''Data3'', ''Data4'', ''Data5'', ''Data6'', ''Data7'', ''Data8'' ';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
UniQuery1.SQL.Clear;
UniQuery1.Params.Clear;
UniQuery1.SQL.Add(FQuery);
UniQuery1.Open;
while not UniQuery1.Eof do
begin
ShowMessage(IntToStr(UniQuery1.Fields.Count));
UniQuery1.Next;
end;
end;
end.