?
Solved

Routine returning multiples of 65536

Posted on 1998-08-13
8
Medium Priority
?
203 Views
Last Modified: 2010-04-04
here's a strange one: I'm using this sort routine from a 3rd party vendor. It's in the form of a DLL...one of its parameters is a LONGINT which returns back to the calling program the final number of sorted records output. I was instructed to put a VAR in front of the parameter when I call this DLL.
  When I call the DLL when sorting a file...it sorts the file correctly, but always returns a crazy number in this recnum count field. And it always seems to be in multiples of 65536! If my input file has less than 65536 records, it'll return 0...if it has between 65536 and 131072, it'll return 65536...weird!
  I tried asking the people who make this sort routine, but they're idiots and they couldn't give me an answer. All they said is that it looks like the low order byte is being taken as the high order byte and so on. But didn't provide a solution. If this is in fact the case, is there a way to flip the bytes around in this longint field to yield the correct answer?

Thanks!
   Shawn Halfpenny
   drumme59@sprint.ca
0
Comment
Question by:aztec
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
8 Comments
 
LVL 4

Expert Comment

by:erajoj
ID: 1362014
Is your declaration using stdcall as calling convention?

I.e: procedure ExtSort( var cRec: LongInt ); stdcall; // <<<<<<
external 'sort.dll' name 'Sort';

Could be it.

/// John
0
 
LVL 1

Expert Comment

by:pjdb
ID: 1362015
do you use 32bit integer and do they use 32bits integer?

JDB
0
 

Author Comment

by:aztec
ID: 1362016
Hi John...
   Nah...tried every type of calling convention...none worked.
And in reply to JDB, I called the sort routine people and they say their sort routine in 32 bit also...I'm stumped!

Shawn
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Accepted Solution

by:
EmmDieh earned 200 total points
ID: 1362017
first try a DWORD as a Parameter, then a pointer to a DWORD.
Otherwise swap hi and lo word with something like
swapped := {Highword->Lo}(Res div 65536) +
           {Loword->Hi}(Res mod 65536) * 65536.
this does not work for negative values of course.
method 2:
var
  l: longint;
  r: record r1, r2: word; end absolute l;
  h: Word;
begin
  h := r.r1; r.r1 := r.r2; r.r2 := h;
end;

or method 3:
var
  l: record
     case boolean of
     true : (l: Longint);
     false: (r1, r2: word);
     end;
  h: Word;
begin
  h := l.r1; l.r1 := l.r2; l.r2 := h;
end;

0
 
LVL 3

Expert Comment

by:rickpet
ID: 1362018
Can  you give me some return values and what the real value should be???
0
 

Author Comment

by:aztec
ID: 1362019
Hello EmmDieh...
   Success! Simply declaring that field as a DWORD (instead of Longint) seems to solve the problem! How large a number can a DWORD variable hold? It's a 32-bit field, yes? I would imagine it's a very large value.

Cheers
   Shawn
0
 
LVL 1

Expert Comment

by:EmmDieh
ID: 1362020
Yes, a DWORD is a 32bit unsigned integer. Strange enough that
this solves your problem. I would have thought that high
and low word had to be swapped. Guess I'll have to look it
up in the SDK,
0
 

Author Comment

by:aztec
ID: 1362021
Right on! DWORD works great!

Cheers
   Shawn Halfpenny
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In this video we outline the Physical Segments view of NetCrunch network monitor. By following this brief how-to video, you will be able to learn how NetCrunch visualizes your network, how granular is the information collected, as well as where to f…
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…
Suggested Courses
Course of the Month15 days, 15 hours left to enroll

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question