Adaptation de type C++ et delphi (Pchar et char*)

Version imprimable

23/04/2007, 16h39
bouzaidi

Adaptation de type C++ et delphi (Pchar et char*)

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
23/04/2007, 16h47
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.
23/04/2007, 17h08
bouzaidi

Citation:

Envoyé par 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.

Peux tu m'expliquer sur un exemple STP car je ne suis que débutant en delphi. Merci d'avance.
23/04/2007, 18h35
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.
23/04/2007, 18h44
bouzaidi

Citation:

Envoyé par 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.

Merci bocou... c'était très clair :king:
23/04/2007, 19h01
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é?
23/04/2007, 19h10
bouzaidi

Citation:

Envoyé par 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é?

Je n'ai pas encore essayé cela, c'est pour ça que je voulé demander pour eviter des pbs ;) mais bon je vais voir ... Merci quand meme

1 pièce(s) jointe(s)

Citation:

Envoyé par 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é?

Il doit interfacer sa Dll Delphi avec un programme C++. Donc, non... ;)

Sinon, je n'avais pas vu la deuxième partie de la question.

Ça fait des années que j'ai programmé un TIntegerList inspiré de TList. Outre les propriétés de TList, il ajoute les fonctions/procédures suivantes :
Code:

1 2 3 4 5 6 7 8 9 10 procedure SortUp; procedure SortDown; procedure ShowList(StringList:TStrings;Descriptor:TIntegerDescriptor;ClearIt:Boolean); function Minimum:Integer; function Maximum:Integer; function Range:Integer; function Sum:Extended; function Average:Extended; procedure CopyFrom(List:TIntegerList); procedure CopyTo(List:TIntegerList);
Je le mets en fichier joint, mais je suppose qu'il y a d'autres unités qui existent. Sinon, le plus simple est d'utiliser un TList avec un transtypage systématique des items en Integer, mais c'est pénible au bout d'un moment.

Mon source aurait peut-être sa place quelque part sur le site, je ne sais pas ?

23/04/2007, 20h49
Pedro

Citation:

Envoyé par CapJack

Il doit interfacer sa Dll Delphi avec un programme C++. Donc, non... ;)

Oui vu sous cet angle-là on peut le voir comme ça :lol:

Citation:

Envoyé par CapJack

Mon source aurait peut-être sa place quelque part sur le site, je ne sais pas ?

Mais bien sûr :) N'hésitez pas à proposer vos codes à l'équipe de modération qui se fera un plaisir de les recevoir :D
24/04/2007, 12h15
bouzaidi

Troop riche comme idée... thx a lot folks :lol:
24/04/2007, 13h29
Pedro

Citation:

Envoyé par bouzaidi

Troop riche comme idée... thx a lot folks :lol:

Si c'est résolu, clique sur le bouton :resolu:
:merci:

PS: c'est quelle solution que tu as adopté au fait? :roll:
24/04/2007, 18h02
ShaiLeTroll
Code:

MaList.Text := StrPas(PointerChar);

il suffit que PointerChar un PChar (ou Char*) contiennet des retours charriots (#13 et #10)...

ou sinon,
Code:

1 2 3 4 MaList.Delimiter := ';'; MaList.QuoteChar := '"'; MaList.DelimitedText:= StrPas(PointerChar);
ça donne un découpage à la csv ou comma text ...

ton problène n'est pas lié au DLL mais à une méconnaissance de la TStringList ... CapJack a déjà expliqué cela dans l'autre sujet

Citation:

Envoyé par 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.
26/04/2007, 10h19
bouzaidi

Je veux tester ma dll ecrite en delphi par un apel de c++.

l'un des paramètres utilisé dans la DLL est de type TStringList, donc lors de l'appel dans C++ j'ai utilisé une variable char*. Le Problème c est que je ne sais pas comment tester, c'est à dire comment fournir la liste des string dans C++. Si je doit fournir une liste qui contient les trois string suivant "coucou", "toto","titi" est ce que je doit donner comme parametre en c++ le char "coucou#13#10toto#13#10titi" ????

Merciii 8-)

Adaptation de type C++ et delphi (Pchar et char*)

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:

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:

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;)

26/04/2007, 19h38
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 !
26/04/2007, 19h39
Pedro

Citation:

Envoyé par ShaiLeTroll

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

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:

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:

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,