Discussion :

[Coussati]

bonjour

j'utilise une dll (dont je n'ai pas les sources biensur) dans mon application delphi et j'aimerais l'incorporer à mon exécutable (mise en ressource)

je voudrais continuer à l'utiliser, mais sans avoir à l'extraire sur le disque dur

pas facile à trouver sur le net, j'aimerais savoir si c'est faisable ?

je vous remercie d'avance

[Ph. B.]

Bonjour,

Possible de l'intégrer comme ressource à ton application.
Impossible à utiliser sans l'avoir extrait et enregistré sur un disque...

Tu aurais un code Objet de cette bibliothèque, tu pourrais sous certaine condition l'intégrer et l'appeler directement depuis ton application (comme le fait ZLib par exemple).
--
Philippe.

[Coussati]

Tu aurais un code Objet de cette bibliothèque, tu pourrais sous certaine condition l'intégrer et l'appeler directement depuis ton application (comme le fait ZLib par exemple).
--
Philippe.

je n'ai pas compris ce passage

pour l'utilisation de la dll, j'ai entendu parlé d'exécuter en mémoire; es tu certains que c'est impossible sans extraire ?

[tourlourou]

DllMemoryLoader :

Code :

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

1
2
3
4
5
6
7
8
 DLL Loader by Aphex
  http://www.iamaphex.cjb.net
  unremote@knology.net
 
  Based on code from gmm@ufacom.ru
 
  function xLoadLibrary(Src: Pointer; Imports: array of TImportItem): TLibInfo;
  procedure xFreeLibrary(hModule: TLibInfo);

je ne me rappelle plus si je l'ai testé, ou juste gardé en attendant le besoin !

[Ph. B.]

je n'ai pas compris ce passage

La bibliothèque zlib développée par Jean-loup Gailly et Mark Adler, est écrite en C (C++). Le code a été compilé par Borland C++ qui a généré des fichiers *.obj que l'on peut intégrer directement dans le code delphi après avoir déclaré les fonctions en question.

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
 // Extrait du code source pour Delphi
{$L deflate.obj}
{$L inflate.obj}
{$L inftrees.obj}
{$L trees.obj}
{$L adler32.obj}
{$L infblock.obj}
{$L infcodes.obj}
{$L infutil.obj}
{$L inffast.obj}
 
procedure _tr_init; external;
procedure _tr_tally; external;
procedure _tr_flush_block; external;
procedure _tr_align; external;
procedure _tr_stored_block; external;
procedure adler32; external;
procedure inflate_blocks_new; external;
procedure inflate_blocks; external;
procedure inflate_blocks_reset; external;
procedure inflate_blocks_free; external;
procedure inflate_set_dictionary; external;
procedure inflate_trees_bits; external;
procedure inflate_trees_dynamic; external;
procedure inflate_trees_fixed; external;
procedure inflate_trees_free; external;
procedure inflate_codes_new; external;
procedure inflate_codes; external;
procedure inflate_codes_free; external;
procedure _inflate_mask; external;
procedure inflate_flush; external;
procedure inflate_fast; external;

pour l'utilisation de la dll, j'ai entendu parlé d'exécuter en mémoire; es tu certains que c'est impossible sans extraire ?

En fait, j'en étais persuadé mais j'ai trouvé cet article qui montre que j'avais tort et propose une méthode : delphi-load-resource-dll-into-memory
C'est en anglais, mais très compréhensible...
--
Philippe.

[Coussati]

merci tourlourou mais il y a peu d'explication et le site d'aphex ne fonctionne pas

Ph. B. je cherche à faire ça depuis assez longtemps (j'avais laissé tombé) et j'étais déjà tombé sur ce site, mais je ne sais plus pourquoi je n'avais pas réussi à faire fonctionner ... peut être parce que je souhaite utiliser une fonctionne de la dll et non une procédure ? je ne sais pas ...

vu comme ça sur le site ça l'air faisable ...

une fois sur mon pc delphi, je vais essayer à nouveau et te tiendras informé

merci à toi

[tourlourou]

http://www.hackchina.com/en/cont/190870 fournit un exemple d'utilisation de DllMemoryLoader sur une dll en ressource

une modification rapide du code doit permettre de transformer le tableau de TImportItem en TStringList avec l'adresse des fonctions en Objects => affectation facile des pointeurs de fonctions grâce à IndexOf :

Code :

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

@DllFunc:=Pointer(slDLLFuncs.Objects[slDLLFuncs.IndexOf('Nom fonction désirée')]);