PChar, string, & Co

Version imprimable

PChar, string, & Co

Bonjour à tous,

j'ai un soucis avec un passage de paramètre PChar à une DLL (une dll maison).

Voici l'appel de la DLL:

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
procedure Dll_ExcelToCSV(sCheminFicXl, sCheminFicCsv : string; fsFormAttente : TForm);
var
   MaDLL   : THandle;
   sCheminDll : string;
   MaProcedure : procedure (sCheminFicExcel, sCheminFicCSV: PChar;
                                       fsFormAttente : TForm;
                                       sSeparateur   : PChar = PChar(';');
                                       bTerminerParUnSeparateur : boolean = False;
                                       bPrendreEnComptePremiereLigne: boolean = False;
                                       bSeparateurSurLaPremiereLigne: boolean = True);
begin
   sCheminDll := Dll_TabXl;
   sCheminDll := sCheminApplication + sCheminDll;
   MaDLL      := yLoadLibrary(PChar(sCheminDll));
   if MaDLL = 0 then
      raise Exception.Create('Le fichier ' + sDll_TabXl + ' est introuvable.');
   @MaProcedure := GetProcAddress(MaDLL, 'ExcelToCsv');
   if @MaProcedure = nil then
      raise Exception.Create('Le fichier ' + sDll_TabXl + ' ne contient pas la fonction demandée.');
   try
      MaProcedure(PChar(sCheminFicXl), PCHAR(sCheminFicCsv), fsFormAttente, PChar(';'), False, False, True);
   finally
      FreeLibrary(MaDLL);
   end;
end;

Et voici la fonction dans la DLL:

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
procedure ExcelToCsv(sCheminFicExcel, sCheminFicCSV: PChar;
                        fsFormAttente : TForm;
                        sSeparateur   : PChar = PChar(';');
                        bTerminerParUnSeparateur : boolean = False;
                        bPrendreEnComptePremiereLigne: boolean = False;
                        bSeparateurSurLaPremiereLigne: boolean = True);
var
sl : TStringList;
iLigne, iCol, iMax_col : integer;
s:string;
sMonSeparateur : string;
begin
//   showmessage('trace toto');
   try
      Application.ProcessMessages;
      Application.CreateForm(TmdTabXl, mdTabXl);
      CoInitialize(nil);
      lcidExcel := GetUserDefaultLCID;
      mdTabXl.EaModeleTabXl.Visible[lcidExcel] := True;
      if Assigned(fsFormAttente) then
         fsFormAttente.BringToFront;
      Application.ProcessMessages;
      mdTabXl.EaModeleTabXl.DisplayAlerts[lcidExcel] := False;
      mdTabXl.EaModeleTabXl.Connect;
      mdTabXl.EwbModeleTabXl.ConnectTo(mdTabXl.EaModeleTabXl.Workbooks.Open(VerifValiditePath(sCheminFicExcel),
              emptyparam, emptyparam, emptyparam, emptyparam,
              emptyparam, emptyparam, emptyparam, emptyparam,
              emptyparam, emptyparam, emptyparam, emptyparam,
              lcidExcel));
      mdTabXl.EwsModeleTabXl.ConnectTo(mdTabXl.EwbModeleTabXl.Worksheets[1] as _Worksheet);
      if FileExists(VerifValiditePath(sCheminFicCSV)) then
         if not MessageDlg('Le fichier ' + sCheminFicCSV + ' existe déjà. Voulez vous le remplacer ?', mtWarning, [mbYes, mbNo], 0) = mrYes then
         begin
            MessageDlg('Opération abandonnée', mtInformation, [mbOK], 0);
            exit;
         end;
      //initialisation de variable
      sl := TStringList.Create;
      iLigne    := 1;
      iCol      := 1;
      iMax_col  := 0;
      //détermination du nombre de colonnes
      while trim(mdTabXl.EwsModeleTabXl.Cells.Item[iLigne,iCol]) <> '' do
      begin
         inc(iMax_col);
         inc(iCol);
      end;
      //on parcours le fichier excel
      if not bPrendreEnComptePremiereLigne then
         iLigne := 2;
      //s := StrPas(sSeparateur);
      sMonSeparateur := ';' ;
      if bSeparateurSurLaPremiereLigne then
         sl.Append(sMonSeparateur);
      while trim(mdTabXl.EwsModeleTabXl.Cells.Item[iLigne,1]) <> '' do
      begin
         s := '';
         for iCol := 1 to iMax_col do
            s := s + mdTabXl.EwsModeleTabXl.Cells.Item[iLigne,iCol].Text + ifthen(iCol <> iMax_col, sMonSeparateur, ifthen(bTerminerParUnSeparateur, sMonSeparateur, ''));
         sl.Append(s);
         inc(iLigne);
      end;
      sl.SaveToFile(sCheminFicCSV);
      mdTabXl.EwbModeleTabXl.Close(True);
      mdTabXl.EaModeleTabXl.DisplayAlerts[lcidExcel] := True;
      mdTabXl.EaModeleTabXl.Quit;
   finally
      mdTabXl.EwsModeleTabXl.Disconnect;
      mdTabXl.EwbModeleTabXl.Disconnect;
      mdTabXl.EaModeleTabXl.Disconnect;
      if Assigned(mdTabXl) then
         FreeAndNil(mdTabXl);
   end;
 
end;

Le paramètre sSeparateur (initialisé à PChar(';') dans l'appel), je ne parviens pas à l'utiliser
si je vais

Code:

s := sSeparateur;

j'ai une erreur d'accès à l'adresse XXXXXXXXX
idem si je fais:

Code:

s := StrPas(sSeparateur);

PS: la bricole que j'ai fait avec sMonSeparateur, qui est une string, fonctionne. Sauf que je n'exploite pas le param de ma procédure.

Merci d'avance pour votre aide

juva

01/07/2009, 10h50
Paul TOTH

bonjour,

alors déjà, tu ne peux pas passer un TForm en paramètre de ta DLL :)

ensuite les valeurs par défaut sur une méthode exportée...à moins que tu n'en faces usage dans la DLL je ne vois pas trop l'intérêt :)

ensuite pour débugger ton code, commence par tout mettre en commentaire et affiche les paramètres dans une console, juste pour voir si c'est cohérent.

La TForm, je le fait toujours et ça se passe très bien

Mon problème est vraiment axé sur le sSeparateur
quand je fais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure... var s:string; begin //... s := sSeparateur; sl.Append(s); //j'ai une violation d'accès sl.Append(sSeparateur); //j'ai une violiation d'accès end;

01/07/2009, 12h01
juvamine

et aussi:
Avec ou sans le TForm, le problème reste le même

merci d'avance

Citation:

Envoyé par juvamine

et aussi:
Avec ou sans le TForm, le problème reste le même

merci d'avance

hihi :) j'ai compris ce qu'il se passe !

pchar(';') n'est pas ce que tu crois :)

en fait c'est un pointeur dont la valeur est $000000C2 !

maintenant, tu peux très bien déclarer dans l'exe un paramètre de type string constant et le traiter comme un PChar dans la DLL, et du coup tu pourras lui donner une valeur par défaut
Code:

1 2 3 4 5 6 7 MaProcedure : procedure (sCheminFicExcel, sCheminFicCSV: PChar; fsFormAttente : TForm; const sSeparateur : string = ';'; bTerminerParUnSeparateur : boolean = False; bPrendreEnComptePremiereLigne: boolean = False; bSeparateurSurLaPremiereLigne: boolean = True);
NB: cela reste une très très mauvaise idée de passer un TForm de l'exe vers la DLL :)

01/07/2009, 12h31
juvamine

:awe: :awe:

ça fonctionne....merci merci merci beaucoup

pour les TForm, c'est pas de moi que ça vient. J'utilise les standart de notre logiciel :)

hihi.

Merci encore ! :ccool:
01/07/2009, 12h47
Paul TOTH

Citation:

Envoyé par juvamine

:awe: :awe:

ça fonctionne....merci merci merci beaucoup

pour les TForm, c'est pas de moi que ça vient. J'utilise les standart de notre logiciel :)

hihi.

Merci encore ! :ccool:

je connais ça :roll:
02/07/2009, 10h52
sjrd

Pourquoi les Delphistes s'escriment encore à utiliser des DLL Delphi vers Delphi ? Alors que les paquets chargés dynamiquement résolvent tellement de problèmes ?
02/07/2009, 12h31
Paul TOTH

Citation:

Envoyé par sjrd

Pourquoi les Delphistes s'escriment encore à utiliser des DLL Delphi vers Delphi ? Alors que les paquets chargés dynamiquement résolvent tellement de problèmes ?

je ne suis pas fan des paquets, je trouve que rien ne vaux un bon executable monolithique :)

maintenant il peut être parfois nécessaire de passer par une DLL pour des raisons techniques.

mais j'ai vu des montages monstrueux ou un exe delphi invoquait un ActiveX qui invoque un serveur COM pour interroger une DLL C...

ou pire encore, un exe Delphi win32 qui invoque via COM une assembly dotNet qui par P/Invoke exploite une DLL win32 sous Delphi :)
02/07/2009, 16h00
juvamine

encore une fois je ne fais qu'appliquer des standarts
:)

Je ne connais pa sle principe des paquets, l'intéret de la DLL est qu'on peut vite la ramplacer chez un client si on trouve un problème...sans pour autant recompiler toute l'appli