Mega Code Archive
How can i use a true dword value passed to my delphi application
<![CDATA[
Question:
How can I use a true DWORD value passed to my Delphi application?
Answer:
One solution is to convert the DWORD to a comp.
Example:
{$IFOPT Q+}
{$DEFINE OVERFLOWSON}
{$Q-}
{$ENDIF}
function DWordToComp(dw : longint) : comp;
var
c : comp;
begin
if u >= 0 then
c := dw else begin
c := $7FFFFFFF;
if dw = -1 then
c := c + c + 1
else
c := c + abs($7FFFFFFF - dw);
end;
result := c;
end;
{$IFDEF OVERFLOWSON}
{$UNDEF OVERFLOWSON}
{$Q+}
{$ENDIF}
]]>