According to the Free Pascal Programmers manual chapter 4.1 it is possible to specify an external Windows function with:
Procedure ProcName(Args: TProcArgs); external 'Name' index SomeIndex

But where can I get information on which function has which index in which DLL?

Hans M.

Hello, List!

Just try without the "index SomeIndex". I think you don't even need the <Name> if it matches the pascal name. But I'm almost sure it will work without mentioning the index.

If you really need indices, you might find them in microsoft's (API?) documentation.

Hope this helps,

Anton Tichawa.

----------

"Adas Methode war, wie sich zeigen wird, Tagträume in offenbar korrekte Berechnungen einzuweben."

Doris Langley Moore: Ada, Countess of Lovelace (London 1977).

----------

Anton Tichawa
Volkertstrasse 19 / 20
A-1020 Wien
mobil: +43 664 52 07 907
email:

----------

Hello, List!

.. and I remember some sort of 'DLL viewer', or 'Quick View', at least in winnt (or Windows Commander?), that showed dll porperties, including procedure names and indices .. it's difficult to work with indices, isn't it?

Anton Tichawa.

----------

"Adas Methode war, wie sich zeigen wird, Tagträume in offenbar korrekte Berechnungen einzuweben."

Doris Langley Moore: Ada, Countess of Lovelace (London 1977).

----------

Anton Tichawa
Volkertstrasse 19 / 20
A-1020 Wien
mobil: +43 664 52 07 907
email:

----------

That sounds simple ... problem is that it doesn't work that way. If I omit 'Name' I get a linking error.
If I put in some 'Name', I get the run time error: Missing Name.DLL. So it looks like there has to be the reference to the correct DLL file.

If you really need indices, you might find them in microsoft's (API?) documentation.

I hoped so, but I cannot find them in Microsoft's home page.

Hans M.

In , on 02/04/03
at 11:18 PM, Hans Mårtensson said:

You can get the SDK help files from Borland:

ftp://ftp.borland.com/pub/delphi/techpubs/delphi3/d3ms.zip

Be warned, this is a 15M download.

Rolf Grunsky

hello,

please post the 'uses' clauses and the function declaration from your source. that should make it easier.

anton.

----------

"Adas Methode war, wie sich zeigen wird, Tagträume in offenbar korrekte Berechnungen einzuweben."

Doris Langley Moore: Ada, Countess of Lovelace (London 1977).

----------

Anton Tichawa
Volkertstrasse 19 / 20
A-1020 Wien
mobil: +43 664 52 07 907
email:

----------

wait some minutes ..

anton.

On Wednesday 05 February 2003 03:50, you wrote:

nothing found yet. may be half an hour work.

Thank you for the link, but I have allready got these help files allthough in an older version, and they don't include the information of DLL names and indices.

My problem is that I want to use some win32 functions that are not included in the FreePascal Windows unit, e. g. OpenPrinter or SetPrinter. According to the FreePascal Programmers' manual (ch. 4.1) the easyist way to do this is declaring an external procedure. But then you have to know the name of the DLL and the index where the function resides. The Borland help files have all the information of the win32 functions except in which DLLs they resides.

Hans M.

you wrote

please post the 'uses' clauses and the function declaration from your

source.

that should make it easier. anton.

Here is a test program I have used:

program x_prog;
{$APPTYPE GUI}
uses windows;
var pPrinter: LPHANDLE;
    prd: PRINTER_DEFAULTS;
Procedure OpenPrinter(pPintername: LPSTR; phPrinter: LPHANDLE; pDefault:
PRINTER_DEFAULTS); external;
begin
  OpenPrinter('HP-printer', pPrinter, prd);
end.

This gives linking error during compilation because it has not been defined what to link with. A NAME can be added after the word 'external', but then I need to know the name of the DLL that includes the OpenPrinter function.

Hans M.

HM> This gives linking error during compilation because it has not been defined HM> what to link with. A NAME can be added after the word 'external', but then HM> I need to know the name of the DLL that includes the OpenPrinter function.

I think in "winspool.drv" :)

http://msdn.microsoft.com/library/

function OpenPrinter(pPrinterName: PChar; var phPrinter: THandle; pDefault: PPrinterDefaults): BOOL; stdcall;    external 'winspool.drv' name 'OpenPrinterA';

Will work.

Matt

Hello, Hans!

You may use the GetProcAddress (Win32 API function) to retrieve the procedure's START-ADDRESS, wehre the input parameter is EITHER an index, I think of limited size, OR a name, that must be SPELLED CORRECTLY.

If you try both, and look for MATCHING ADDRESSES, you should be able to get all (?) you need.

The function's interface is:

GetProcAddress returns address of specified DLL functions:

FARPROC GetProcAddress(HMODULE hModule, LPCSTR lpProcName);

hModule = handle returned by LoadLibrary or GetModuleHandle

lpProcName

Either hi-word = 0 and lo-word = index; or ASCIIZ string

returns: 0 = error (call GetLastError); else address of DLL function

Hope this Helps.

Anton Tichawa.

<snip>

I've tried this before with poor succes, may be the problem was the point with the correct spelling.
Thank you very much for your help.

Hans M.

If you have a copy of Delphi's ImageHlp unit,
( or h2pas + imagehlp.h winapi header )
you might want to take a look at this:
http://www.blueorbsoft.com/CodeTips/DelphiCodeTips2.html#ListDLLFunctions

__________________________________________________ Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now. http://mailplus.yahoo.com

Thanks for the tip. Unfortunately I haven't got the unit mentioned, but the link looks interesting for other reasons.

Hans M.