Call Watcom 32 bit DLL from Delphi 16 bit

Posted on 1997-04-08
Last Modified: 2013-12-03
I have a 16-bit Dephi Main program and I want to call a 32-bit DLL written in Watcom C.  The provider of the DLL used special Watcom Compiler feature to generate a Thunk DLL to handle the environment crossing, but it does not appear to work with Delphi.  The DLL writer doesn't have a clue since 'it works with other C main programs'.  They or I need help in getting this to work since they say it will take to long to recode their 32-bit DLL to 16-bit code, and will be less efficient.
Question by:jeffg2
LVL 15

Expert Comment

ID: 1334479
If you provide more information, may be...

1. How you call thunk DLL - at run time using LoadLibrary & GetProcAddress or at link time using LIB file?
2. How many functions exported by DLL?
3. What kind of work DLL does?
4. Is there any manuals for thunk DLL?

Writting your own thunk DLL is not simple, but possible.
May be better try to use provider's thunk DLL.

Author Comment

ID: 1334480
1. I use the standard Delphi method of calling the DLL which
creates a link at compile time, not LoadLibrary

2. 4 functions open, close, encode, decode

3. Voice compression/decompression

4. For now I cannot release info due to Non Disclosure Agreement.

Other info:

The DLL uses calloc() to create a block of storage upon
opening, and stores 32-bits of info (the flat address?)
in a Long whose address I provide in the open call.

The THUNK was written by the developer of the 32-bit DLL
using a special tool provided by Watcom.

Expert Comment

ID: 1334481
Please post headers for the C functions, and the 'external' declarations you use in Delphi.

If it works with 16-bit C, it also works with the Delphi. The only exception are functions taking variable number of parameters, which is a bit more tricky.


Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.


Expert Comment

ID: 1334482
Please post headers for the C functions, and the 'external' declarations you use in Delphi.

If it works with 16-bit C, it also works with the Delphi. The only exception are functions taking variable number of parameters, which is a bit more tricky.



Expert Comment

ID: 1334483
There are different thunking mechanisms, for the
different platforms 3.1, 95 and NT.  You need to know
which platform he created it for, and make sure that it
is the same as the one that you are using.  The different
mechanisms are mutually exclusive.

Author Comment

ID: 1334484
The Problem is solved.  Thanks for trying. For all of your info the problem was related to floating point traps.  Delphi enables them, most other languages apparently do not.  The DLL caused floating underflows which normally had no affect, but with a Delphi Main, caused a trap.

Case Closed.


Accepted Solution

Shrif earned 200 total points
ID: 1334485
You don't want to use the thunk compiler that's been so far discussed.  Here's why.  There are three types of thunking that has to do with 32-bit to 16-bit and vice versa calls: Generic thunking, Flat thunking and Universal thunking.  Universal thunking is for Win32s so we won't even go into that.  Generic thunking is a clean interface, first introduced with Windows NT 3.1.  It allows 16-bit EXE's to call 32-bit DLL's.  It does not, however, allow 32-bit EXE's to call 16-bit DLL's.  Generic thunking is available on all Win32 platforms (NT 3.1, 3.5, 3.51, 40 and Windows 95).  Thus, if you are attempting to call 32-bit DLL's from 16-bit EXE's, generic thunking is the best choice because: It is easier and the program will work with NT and Windows 95.  The third thunking method, flat thunking, is Windows 95 only.  It does not work under NT.  Flat thunking lets 32-bit EXE's call 16-bit DLL's AND 16-bit EXE to call 32-bit DLL's.  Flat thunking requires that you use the MIDL compiler to create proxy DLL's on both sides -- Assemlby code is created for you.  It takes a bit of doing to get right and requires that you be be able to link in objs and compile assembly.  So, for your application, it is best to Generic thunk.  I've done this to call 32-bit DLL's from VB3(which is 16-bit only).  Here's some sample code.  The following code was written to call the 32-bit DLL "kernel32.dll", function GetShortPathName so that I could convert a long pathname that the user entered into something a 16-bit program can use.  extern "C" {
      BOOL FAR PASCAL FreeLibrary32W( DWORD );
      DWORD FAR CallProcEx32W(DWORD nParams, DWORD fAddressConvert,
            LPVOID lpProcAddress, ...);

// GetShortPathName
extern "C" void WINAPI BezDeek( LPSTR lpszLongName, LPSTR lpszShortName )
      DWORD      ghLib = NULL;
      LPVOID      hProc;
      DWORD      dw;

      if( NULL == (ghLib = LoadLibraryEx32W( "kernel32.dll", NULL, 0 )) )
            MessageBox( NULL, "Cannot load Kernel32", 0, MB_OK );
            goto leave;

      if( NULL == (hProc = GetProcAddress32W( ghLib, "GetShortPathNameA" )))
            MessageBox( 0, "Cannot get procedure address", "GetShortPathNameA", MB_OK );
            goto leave;

      *lpszShortName = 0;
      dw = CallProcEx32W( 3, 3, hProc, lpszLongName, lpszShortName, 256L );

      if ( ghLib )
            FreeLibrary32W( ghLib );

} // BezDeek

See how much easier this is than flat thunks.  No extra files needed.  You just do it all in source code!Let me know if you have any more questions about this.  You should be able to get far with this.  If you don't, I can explain further.Shrif

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

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

Suggested Solutions

This article describes how to programmatically preset the "Pages per Sheet" option that's available with most printer drivers.   This setting lets you do "n-Up" printing, where two, four, or more pages are printed on each sheet of paper. If your …
This article describes a technique for converting RTF (Rich Text Format) data to HTML and provides C++ source that does it all in just a few lines of code. Although RTF is coming to be considered a "legacy" format, it is still in common use... po…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA.…

813 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now