Discussion :

[bouzaidi]

Bonjour Tous le monde:

En fait je suis en train de developpez une DLL en delphi et je veux utiliser des variables dans les fonctions qui sont de types string, du coup je devais declarer Sharemem en premier dans la clause uses dans le code de la DLL... En fait tout le monde me déconseille d'utiliser String mais d'utiliser Pchar. Le probleme c'est que je dois aussi utiliser des TStringList dans les fonctions implementé dans ma DLL comment je fait alors pour remplacer TStringList dans la DLL..

J'ai aussi une autre petite question est ce que je peux trouver en delphi un type liste d'entier, car tous les elets de ma TStringList que j'utilise dans ma DLL je les convertis en entier vu que j'ai besoin d'une liste d'entier..
Merci d'avance les gas

[philnext]

Pour passer une tstringList tu utilise sa propriété text qui est une string que tu 'cast' en Pchar.
Dans ta dll tu fais l'inverse.

[bouzaidi]

Pour passer une tstringList tu utilise sa propriété text qui est une string que tu 'cast' en Pchar.
Dans ta dll tu fais l'inverse.

Peux tu m'expliquer sur un exemple STP car je ne suis que débutant en delphi. Merci d'avance.

[CapJack]

bouzaidi, regarde comment je fais dans le code source que je t'ai donné par ailleurs (au fait, merci pour les remerciements en mp ).

Si SL est un TStringList, la propriété SL.Text contient le texte formaté comme le serait un fichier texte (avec des séparations CR/LF = #13#10 entre les lignes).

On convertit l'intégralité du contenu du TStringlist en PChar avec le transtypage PChar(SL.Text). On obtient alors un PChar où toutes les chaînes du tableau sont à la suite, séparées par des séquence CR/LF.

A l'inverse, un tel PChar P se récupère en TStringList par SL.Text := string(P). Pas plus difficile.

[bouzaidi]

bouzaidi, regarde comment je fais dans le code source que je t'ai donné par ailleurs (au fait, merci pour les remerciements en mp ).

Si SL est un TStringList, la propriété SL.Text contient le texte formaté comme le serait un fichier texte (avec des séparations CR/LF = #13#10 entre les lignes).

On convertit l'intégralité du contenu du TStringlist en PChar avec le transtypage PChar(SL.Text). On obtient alors un PChar où toutes les chaînes du tableau sont à la suite, séparées par des séquence CR/LF.

A l'inverse, un tel PChar P se récupère en TStringList par SL.Text := string(P). Pas plus difficile.

Merci bocou... c'était très clair

[Pedro]

Salut

Je dis peut-être un bêtise mais si tu passes directement la TStringList en paramètre (son pointeur en fait) ça ne pose pas de problème As-tu essayé?

[bouzaidi]

Bonjour,
J'ai une dll écrite en delphi que j'appelle depuis un programme C++, mon problème c'est que je dois interfacer la fonction de la dll appelée par c++ pour que ça devient adapté avec les types de delphi...
Bref voila l'entête de la fonction dans C++ et dans La dLL:
code C++

Code :

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

1
2
3
4
5
6
7
 
  typedef void (_stdcall *ProcDllPtr)(int ExportType, char* Listerefcon, 
                                      int DestinationType, bool MajStatuts,
                                      bool choixRepertoire, char* RepertoireCible,
                                      bool CreerUnitaire);
//et lors de l'appel je teste comme suit:
 ProcExportDll(1, "4031589", 1, true, true, "G:\\Nouveau dossier", false);

code delphi

Code :

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

1
2
3
4
5
6
7
 
library ma_dll;
uses Sharemem,.....
 
procedure ProcExportDll(ExportType : Integer; Listrefcon : Pchar; DestinationType: Integer;
                        MajStatuts,choixRepertoire : Boolean; RepertoireCible : Pchar;
                        CreerUnitaire : Boolean); stdcall;

Je pense que ca peut aussi etre un probleme de convention d'appel. Je note qu'au début je travaillais avec des string et des TStringList, mais tous des amis du forum me l'ont déconseillé, le blem c est que ca marche pas aussi avec des PChar aussi!!!!!!!!
Merci de m'aider si vous voyez comment

[ShaiLeTroll]

On dirait que deux sujets on été fusionné, du coup, cela a planté ma réponse

Bon, je vais faire court

Boolean = 1 Byte
Bool = 4 Bytes (cf http://support.microsoft.com/kb/199315/fr)
donc faut utilise
LongBool = 4 Bytes en Delphi

sinon ShareMem, devient inutile, personnellement, moins je vois cette unité et sa DLL mieux je me porte !

[Pedro]

sinon ShareMem, devient inutile, personnellement, moins je vois cette unité et sa DLL mieux je me porte !

Utilise FastShareMem
http://delphi.developpez.com/faq/?pa...rstringdansdll

[ShaiLeTroll]

J'ai fait quelques DLL ou ActiveX mais dans un FrameWork de mes employeurs, donc j'ignore tout ce qui pouvait trainer derrière, ... mais quand je fais une DLL, j'utilise les PChar ou les ShortString, qui fonctionne bien puisque c'est un type simple et borné ...

Sinon, personnellement, faudrait que je teste un truc sur une machine sans Delphi car j'ai une form et autres classes delphi, et cela fonctionne sans avoir mis ShareMem, j'avoue que j'y comprends rien à ce sujet, car pourquoi cela fonctionne ??? surement parce que j'ai delphi installé !

WriteStringList enregisre nickel ... et ma form est la à aussi ... je la modifie dans le programme appelant en plus :

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
71
72
73
74
75
76
77
78
79
80
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;
 
procedure TFrmTestDivers.BtnWriteStringListClick(Sender: TObject);
begin
  WriteStringList('toto.txt', MemoDLL.Lines);
end;
 
procedure TFrmTestDivers.GetDLLForm(out Form: TForm);
var
  HandleDLL: HMODULE;
  _GetDLLForm: procedure(out Form: TForm); stdcall;
begin
  HandleDLL := LoadLibrary('DLLTest.dll');
 
  if HandleDLL > 0 then
  begin
    @_GetDLLForm := GetProcAddress(HandleDLL, 'GetDLLForm');
    if Assigned(@_GetDLLForm) then
      _GetDLLForm(Form)
    else
      Form := nil;
    if Assigned(Form) then
    begin
      Form.OnClose := DLLFormClose;
      Form.Tag := HandleDLL;
      Form.Caption := Form.Caption + ' - ' + Application.ExeName;
    end;
  end;
end;
 
procedure TFrmTestDivers.FreeDLLForm(const Form: TForm);
var
  _FreeDLLForm: procedure(const Form: TForm); stdcall;
begin
  if Form.Tag > 0 then
  begin
    @_FreeDLLForm := GetProcAddress(Form.Tag, 'FreeDLLForm');
    if Assigned(@_FreeDLLForm) then
    begin
      _FreeDLLForm(Form);
      FreeLibrary(Form.Tag);
    end;
  end;
end;
 
procedure TFrmTestDivers.DLLFormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caHide;
end;
 
var
  Form: TForm;
 
procedure TFrmTestDivers.BtnGetDLLFormClick(Sender: TObject);
begin
  GetDLLForm(Form);
  Form.Show();
end;
 
procedure TFrmTestDivers.BtnFreeDLLFormClick(Sender: TObject);
begin
  FreeDLLForm(Form);
end;

Composant à copier dans une Form, un copier coller directement en RAD colle le text et créé les composants !

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
 
object BtnWriteStringList: TButton
  Left = 8
  Top = 8
  Width = 75
  Height = 25
  Caption = 'WriteStringList'
  TabOrder = 0
  OnClick = BtnWriteStringListClick
end
object MemoDLL: TMemo
  Left = 8
  Top = 40
  Width = 185
  Height = 89
  Lines.Strings = (
    'MemoDLL')
  TabOrder = 1
end
object BtnGetDLLForm: TButton
  Left = 8
  Top = 136
  Width = 75
  Height = 25
  Caption = 'GetDLLForm'
  TabOrder = 2
  OnClick = BtnGetDLLFormClick
end
object BtnFreeDLLForm: TButton
  Left = 88
  Top = 136
  Width = 75
  Height = 25
  Caption = 'FreeDLLForm'
  TabOrder = 3
  OnClick = BtnFreeDLLFormClick
end

J'ai mis en fichier les sources qui vont avec,