Discussion :

[Roland Chastain]

Bonjour !

Je voudrais faire une DLL avec MinGW, qui soit utilisable dans un programme Free Pascal. Voici le modèle actuel de ma DLL, avec un programme de test (en C) et un script pour compiler le tout :

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
/* mydll.c */
 
#include <string.h>
 
__declspec(dllexport) int __cdecl MaFonction(char ch[])
{
  return strlen(ch);
}

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
/* usemydll.c */
 
#include <stdlib.h>
#include <stdio.h>
 
__declspec(dllimport) int __cdecl MaFonction(char ch[]);
 
int main(int argc, char** argv)
{
  char c[] = "";
 
  printf("%d\n", MaFonction(c));
 
  return EXIT_SUCCESS;
}

Code BAT :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
@echo off
 
rem build-all.cmd
 
for %%f in (*.dll *.exe *.o) do del %%f
 
set path=c:\mingw\bin
set dll=mydll
set exe=usemydll
 
rem http://www.transmissionzero.co.uk/computing/building-dlls-with-mingw/
 
gcc.exe -c -o %dll%.o %dll%.c
gcc.exe -o %dll%.dll -s -shared %dll%.o -Wl,--subsystem,windows
 
gcc.exe -c -o %exe%.o %exe%.c
gcc.exe -o %exe%.exe -s %exe%.o -L. -l%dll%
 
call %exe%
 
pause

A votre avis, cette DLL est-elle utilisable avec Free Pascal ? Avec quel code ?

[Roland Chastain]

Je viens de réaliser que j'avais moi-même posté un exemple (dont je n'étais pas l'auteur) dans le forum il y a quelques mois.

Je m'en suis inspiré pour faire le code suivant, qui semble fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
program usemydll;
{$APPTYPE CONSOLE}
{$MODE DELPHI}
 
uses
  Windows, SysUtils;
 
type
  TFunction = function(c: pchar): integer; cdecl;
 
const
  CFunction: TFunction = nil;
 
var
  dllHandle: THandle;
  arg: array[0..255] of char;
 
begin
  dllHandle := LoadLibrary('mydll.dll');
  if dllHandle <> 0 then
  begin
    @CFunction := GetProcAddress(dllHandle, 'MaFonction');
 
    StrPCopy(arg, 'abc');
    WriteLn(CFunction(@arg));
 
    FreeLibrary(dllHandle);
    ReadLn;
  end;
end.