integer overflow; UniDAC6.2.8
Posted: Tue 20 Oct 2015 05:29
hi
DelphiXE2, UniDAC6.2.8
when I try to connect MS SQL SERVER 2008R2 it's raised an error "integer overflow";
I follow error .. in unit DASQLMonitor i've made this changes, the problem is on BobJenkinsHash this function raise "integer overflow" :
function GetObjectID(Obj: TObject): Integer;
var
s: string;
begin
if Obj = nil then
Result := 0
else
Result := Integer(Obj{$IFDEF CLR}.GetHashCode{$ENDIF});
(*
if (Obj is TComponent) and (TComponent(Obj).Name <> '') then
begin
s := IntToHex(NativeInt(Obj), SizeOf(Pointer) * 2) + TComponent(Obj).Name;
Result := BobJenkinsHash(s[1], Length(s) * SizeOf(s[1]), 0);
end
else
Result := Integer(Obj);*)
end;
DelphiXE2, UniDAC6.2.8
when I try to connect MS SQL SERVER 2008R2 it's raised an error "integer overflow";
I follow error .. in unit DASQLMonitor i've made this changes, the problem is on BobJenkinsHash this function raise "integer overflow" :
function GetObjectID(Obj: TObject): Integer;
var
s: string;
begin
if Obj = nil then
Result := 0
else
Result := Integer(Obj{$IFDEF CLR}.GetHashCode{$ENDIF});
(*
if (Obj is TComponent) and (TComponent(Obj).Name <> '') then
begin
s := IntToHex(NativeInt(Obj), SizeOf(Pointer) * 2) + TComponent(Obj).Name;
Result := BobJenkinsHash(s[1], Length(s) * SizeOf(s[1]), 0);
end
else
Result := Integer(Obj);*)
end;