Charge une DLL dynamiquement

**K.othmane** · 29/07/2006, 21h57

Yop
J'essaye de charger une DLL dynamiquement , et utiliser l'une de ses fonctions , pour mon code j'utilise urlmon.dll qui contient UrlDownloadToFile , mais je n'y arrive pas , aucune erreur mais le fichier ne se telecharge pas ...

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
 
	// Déclare un type function pour pouvoir manipuler la fonction 
 
	TMyProc = function(Caller: IUnknown; URL: PChar; FileName: PChar; Reserved: DWORD): HResult; stdcall;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Handle: THandle;
Maproc: TMyProc;
begin
	// Charge une DLL dynamiquement et la libère ensuite
 
	Handle := loadlibrary('Urlmon.dll'); // Charge la DLL
 
	if Handle <> 0 then
 
	begin
 
		try
 
			// Charge dynamiquement une fonction de la DLL
 
			@Maproc := GetProcAddress(Handle, 'URLDownloadToFile');
 
			if @Maproc<> nil then
 
			begin
      Maproc(nil,'http://fahde.free.fr/bug/rel/ICrypt%201.0.rar','C:\hahga.rar',0);
   			end;
 
		Finally
 
			FreeLibrary(Handle);
 
		end;
	end
 
	else
 
		ShowMessage('Impossible de charger la DLL.');
 
end;
 
 
end.

Merci

**Jipété** · 29/07/2006, 22h19

Yep !

Bon,
J'ai pu downloader avec les 'tites modifs suivantes :

Code :

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

	TMyProc = function(Caller: IUnknown; URL: PChar; FileName: PChar; Reserved: DWORD;LPBINDSTATUSCALLBACK: pointer): HResult; stdcall;

ajout du dernier paramètre.

Code :

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

			@Maproc := GetProcAddress(Handle, 'URLDownloadToFileA');

Pas trouvé de URLDownlaodToFile dans urlmon.dll ; mais avec "A" et "W", oui !

Code :

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

     Maproc(nil,'http://fahde.free.fr/bug/rel/ICrypt%201.0.rar','C:\hahga.rar',0, nil);

Ajout de "nil" pour être en phase avec la déclaration et le SDK !

HTH,
JP

**K.othmane** · 30/07/2006, 01h55

Ca marche merci , voila ce que ca donne :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type

	// Déclare un type function pour pouvoir manipuler la fonction 

TMyProc = function(Caller: IUnknown; URL: PChar; FileName: PChar; Reserved: DWORD;LPBINDSTATUSCALLBACK: pointer): HResult; stdcall;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Handle: THandle;
Maproc: TMyProc;
mavar1 : Pansichar;
begin
	// Charge une DLL dynamiquement et la libère ensuite
mavar1:='URLDownloadtofileA';
	Handle := loadlibrary('Urlmon.dll'); // Charge la DLL

	if Handle <> 0 then

	begin

		try

			// Charge dynamiquement une fonction de la DLL

			@Maproc := GetProcAddress(Handle, mavar1);

			if @Maproc<> nil then

			begin
     Maproc(nil,'http://fahde.free.fr/bug/rel/ICrypt%201.0.rar','C:\hahga.rar',0, nil);
   			end;

		Finally

			FreeLibrary(Handle);

		end;
	end

	else

		ShowMessage('Impossible de charger la DLL.');

end;


end.

Mais j'ai un nouveau probleme , comme tu l'a surement remarqué j'ai declaré une nouvelle variable mavar1 : Pansichar; , et j'ai remplacé @Maproc := GetProcAddress(Handle, URLdownloadtoFile); par @Maproc := GetProcAddress(Handle, mavar1);
Et boum ca marche plus , aucune erreur mais le telechargement n'a pas lieu...
cette variable est elementaire pour moi , quelqu'un a une explication a ca

??
J'y tiens a ma variable

**Jipété** · 30/07/2006, 02h57

Aucune erreur, aucune erreur, c'est vite dit, ça !

Modifie donc l'appel à Maproc comme ça :

Code :

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

1
2
3
4
			if @Maproc <> nil then
       Maproc(nil, 'http://fahde.free.fr/bug/rel/ICrypt%201.0.rar', 'C:\hahga.rar', 0, nil)
       else
         raise EInOutError.Create('Erreur  : ' + SysErrorMessage(GetLastError));

et tu verras que ça te dit : "Erreur : La procédure spécifiée est introuvable" !

Bon, là, je passe la main aux pros des appels système...
Et il est taaaaaaaaaard !
JP

**David.Schris** · 30/07/2006, 04h08

Envoyé par Jipété

Aucune erreur, aucune erreur, c'est vite dit, ça !

Modifie donc l'appel à Maproc comme ça :

Code :

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

1
2
3
4
			if @Maproc <> nil then
       Maproc(nil, 'http://fahde.free.fr/bug/rel/ICrypt%201.0.rar', 'C:\hahga.rar', 0, nil)
       else
         raise EInOutError.Create('Erreur  : ' + SysErrorMessage(GetLastError));

et tu verras que ça te dit : "Erreur : La procédure spécifiée est introuvable" !

Bon, là, je passe la main aux pros des appels système...
Et il est taaaaaaaaaard !
JP

Un indice de plus que celui de "Jipété" concernant l'erreur : penser à bien écrire les noms de fonctions.

Tard ? Non...

**K.othmane** · 30/07/2006, 04h54

Veuillez excuser mon impertinence

.
Merci

**Jipété** · 30/07/2006, 12h10

Io !

Bah, c'est pas de "l'impertinence", c'est juste pour mieux s'y retrouver !

Sinon, j'ai pas l'explication car il me semblait bien que Ouinouin n'était pas sensible à la casse, et pourtant,
en remplaçant

Code :

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

mavar1:='URLDownloadtofileA';

par

Code :

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

mavar1:='URLDownloadToFileA';

ben chez moi ça fonctionne !

Any guru here ?

Tard ? Non...

À 4h08 ? Certes non, c'est tôôôôôôt !

JP

**David.Schris** · 30/07/2006, 12h35

Bonjour,

Envoyé par Jipété

[...]
il me semblait bien que Ouinouin n'était pas sensible à la casse
[...]
Any guru here ?
[...]

Désolé si je tente de répondre avant le gourou tant attendu, mais je pense que son intervention serait inutile concernant ton interrogation :

Envoyé par [url=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/getprocaddress.asp]Aide de GetProcAddress[/url]

Remarks
The spelling and case of a function name pointed to by lpProcName must be identical to that in the EXPORTS statement of the source DLL's module-definition (.def) file.

Voilà...

**Jipété** · 30/07/2006, 22h48

Désolé si je tente de répondre avant le gourou tant attendu, mais je pense que son intervention serait inutile concernant ton interrogation :
Citation:
Aide de GetProcAddress a écrit :
Remarks
The spelling and case of a function name pointed to by lpProcName must be identical ...

Bien vu !
Merci pour le retour d'info, car j'avais bêtement copié/collé le code proposé

JP

Charge une DLL dynamiquement

Delphi

Discussions similaires

Partager

Partager