Solved

Routine returning multiples of 65536

Posted on 1998-08-13
8
197 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
Technology Partners: 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 50 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

Independent Software Vendors: 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!

Question has a verified solution.

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

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …

688 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