Passer un TStringList en paramètre dans une DLL

Version imprimable

10/09/2007, 21h41
bubulemaster

Passer un TStringList en paramètre dans une DLL

Bonjour,

je souhaites passer à une DLL un objet TStringList. J'ai donc lu avec attention la FAQ qui indique comment passer un objet en paramètre.

Une question me vient. Si je passe par exemple le contenu de mon TStringList comme ça :
machaine1#0machaine2#0#0
et que j'instancie dans dans ma DLL un objet TStringList dans lequel je vais recopier les chaines.
Dois-je inclure l'unité ShareMem ?

Merci d'avance
10/09/2007, 21h48
Pedro

Salut :)

Citation:

Envoyé par bubulemaster

Bonjour,

je souhaites passer à une DLL un objet TStringList. J'ai donc lu avec attention la FAQ qui indique comment passer un objet en paramètre.

Une question me vient. Si je passe par exemple le contenu de mon TStringList comme ça :
machaine1#0machaine2#0#0
et que j'instancie dans dans ma DLL un objet TStringList dans lequel je vais recopier les chaines.
Dois-je inclure l'unité ShareMem ?

Merci d'avance

En fait, si tu passes directement une TStringList, tu passes le pointeur vers cette liste donc ça peut marcher ;) C'est justement en faisant comme tu veux faire que le problème se pose :P
Sinon, si tu as BDS2006, il existe une nouvelle unité qui permet de faire ça: SimpleShareMem (incluse dans BDS)

Comme le dit Pedro, le passage par pointeur fonctionne SANS Soucis, tient voici ce que je fais ...

tient, j'envoie le contenu d'un Memo et le nom du fichier pour faire un SaveToFile

Coté Appli

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFrmTestDivers.WriteStringList(const FileName: string; const Strings: TStrings);
var
  HandleDLL: HMODULE;
  _WriteStringList: procedure(const FileName: string; const Strings: TStrings); stdcall;
begin
  HandleDLL := LoadLibrary('DLLTest.dll');
 
  if HandleDLL > 0 then
  begin
    try
      @_WriteStringList := GetProcAddress(HandleDLL, 'WriteStringList');
      if Assigned(@_WriteStringList) then
        _WriteStringList(FileName, Strings);
    finally
      FreeLibrary(HandleDLL);
    end;
  end;
end;

coté DLL

Code:

1
2
3
4
5
procedure WriteStringList(const FileName: string; const Strings: TStrings); stdcall;
begin
  if Assigned(Strings) then
    Strings.SaveToFile(FileName);
end;

Tant que l'on ne modifie pas les chaines de Strings, cela ne pose aucun problème ... tu peux même echanger des forms, font juste encapsuler au possible toute manipulation de la Form ...

tu peux aussi le faire comme cela, envoyant comme le disait le Text ...

Coté Appli

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TFrmTestDivers.SetDLLFormMemo(const Form: TForm; const Lines: string);
var
  _SetDLLFormMemo: procedure(const Form: TForm; const Lines: string); stdcall;
begin
  if Form.Tag > 0 then
  begin
    @_SetDLLFormMemo := GetProcAddress(Form.Tag, 'SetDLLFormMemo');
    if Assigned(@_SetDLLFormMemo) then
    begin
      try
        _SetDLLFormMemo(Form, Lines);
      except
        on E: Exception do ShowMessage(E.Message);
      end;
    end;
  end;
end;

coté DLL

Code:

1
2
3
4
5
procedure SetDLLFormMemo(const Form: TForm; const Lines: string); stdcall;
begin
  if Form is TFrmDLL then
    TFrmDLL(Form).MemoDLL.Lines.Text := Lines;
end;

11/09/2007, 11h20
sjrd
Citation:
Envoyé par ShaiLeTroll

Code:

1 2 3 4 5 procedure SetDLLFormMemo(const Form: TForm; const Lines: string); stdcall; begin if Form is TFrmDLL then TFrmDLL(Form).MemoDLL.Lines.Text := Lines; end;
Le is ne passera pas. Il sera toujours considéré comme False. Les DLL ne partagent pas les RTTI avec l'application.

Mais le premier exemple fonctionne.
11/09/2007, 15h16
Clorish

Outch ... ya des choses qui me font quand meme bien dresser els Zoreil ;)

Passer des classes, des objets, et des pointeurs vers une Dll .... :aie:

Pour faire propre, l'ideal est la creation de classe interfacees.
Une classe dans la Dll qui implemente une Interface via laquelle on va transmettre une a une les elements de la Liste est quand meme la meilleur solution.

Une solution plus simple serait de transmettre via un parametre PChar la property "Text" des TStringList ... parametre qui sera reaffecté dans un TStringList cree dans la Dll via la meme property Text.

Tant que l'on reste dans le domaine Delphi/Delphi pour creer Exe//dll ca passe avec sharemem, ... mais des que l'on cherche a aller plus loin ca va vite casser. D'ailleur c'est pas non plus le role des Dll de faire ce genre de choses.
A la limite, passer par des Packages est mieux sur ce point la.

Au moins on assure la la restriction Delphi/Delphi et en plus on beneficie des infos RTTI.
11/09/2007, 15h30
ShaiLeTroll

Citation:

Envoyé par sjrd

Le is ne passera pas. Il sera toujours considéré comme False. Les DLL ne partagent pas les RTTI avec l'application.

Mais le premier exemple fonctionne.

Sauf si la Form est instancié du côté DLL ^_^, ce qui est le cas dans mon programme ... tout le monde s'ait que l'on instancie d'un côté, que l'on manipule du même coté, et que l'on échange juste des pointeurs pour savoir sur quoi agir entre Appli et DLL ...

Ensuite, si Exe et DLL sont construits avec paquet d'execution, il n'y pas plus aucun problème les classes sont communes au deux, tient voir ici, on en parlait déjà, ou encore là, où j'ai bidouillé le partage des classes !
Je ne retrouve pas, j'avais expliqué grossièrement, pourquoi on partagerais pas les classes, une histoire de compilation et d'identifiant calculé à ce moment (l'emplacement mémoire aussi, j'ai fouillé dans TypInfo, c'est des grands malades, quand même chez Borland)

Citation:

Envoyé par Clorish

Outch ... ya des choses qui me font quand meme bien dresser els Zoreil ;)

Passer des classes, des objets, et des pointeurs vers une Dll .... :aie:

Pour faire propre, l'ideal est la creation de classe interfacees.

Je sais bien mais quand tu n'as pas le temps ou que tu n'y arrive pas bien avec ces interfaces (je n'en ai pas refait depuis une lib trop propriétaire, faut que je lises le Tuto de Laurent Dardenne), quand tu pense que dans une des société où je suis passé (2 ans), ils avaient une lib commune partagé par une 50aine de développeur, et que pour passer les Forms et Panel, ils passait via un integer qui n'était un cast de la référence, alors que tout était développé sous la forme d'Activex (plus d'un milliers de dll, deux fois plus d'objets) et que les mécanismes de base était fait par des bidouilles, aulieu d'un IStandardxxxForm ... par exemple exploité jusqu'au bout (il en existait une partiellement, et la moitié des fonctions dans cette Interface, donc on utilisait l'ancienne lib en pointeur)

Sinon, pour les Chaines, effectivement, le PChar a l'avantage d'être standard ... contrairement à la chaine delphi qui est très particulière mais en const, cela ne pose pas de problème, on peut même le récupéré en C (une chaine delphi contient toujours un #0 à la fin en plus (2 pour un Wide), et sinon il y a la longueur en p-4)

En tous cas, le nombre de fois que je bidouille un truc pour envoyer des structures entre deux exe par pointeur avec un message WM_COPYDATA, que l'on doit considérer comme lecture seule, ... tient windows indique la même limite que les string ... perso, je préfère me débrouiller sans BordelMM.dll soit en respectant les types C (on a l'habitude avec l'API Windows), soit par bidouille (même si j'évite, mais avec les Forms hum ...)
17/09/2007, 18h35
bubulemaster

Et si je passe un pointer de TStrings (@MaTString) est-ce je m'affranchis des contrainte de ShareMem ?
17/09/2007, 18h38
sjrd

Non, certainement pas.

On te l'a déjà dit. Le meilleur moyen de passer ta liste est de passer via PChar le contenu de sa propriété Text, puis de refaire la conversion inverse côté DLL.

Comme te l'a dit Pedro, c'est possible dans des cas très limité, il vaut mieux déployer la DLL Borland et ShareMem ou FastShareMem, ...

Si la TStrings n'est pas modifié dans la DLL, c'est possible mais absolument pas recommandé, et il vaut mieux compiler l'Exe et la DLL avec les paquets d'execution pour le partage des informations de classes (RTTI), mais bien sur, il ne fait faire AUCUNE modification, cela doit être que de la lecture seule, pour des insertions, tri (sort), effacement, ... tu dois le passer via des PChar

EXE
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TFrmTestDivers.SendStringList(const Strings: TStrings); var HandleDLL: HMODULE; _SendStringList: procedure(AText: PChar); stdcall; begin HandleDLL := LoadLibrary('DLLTest.dll'); if HandleDLL > 0 then begin try @_SendStringList:= GetProcAddress(HandleDLL, 'SendStringList'); if Assigned(@_WriteStringList) then _SendStringList(PChar(Strings.Text)); finally FreeLibrary(HandleDLL); end; end; end;
DLL
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure SendStringList(AText: PChar); stdcall; var SL: TStrings; begin SL := TStringList.Create(); try SL.Text := AText; ... Calcul finally SL.Free(); end; end;