Discussion :

[nonoxp]

Bonjour,

Actuellement en charge d'intégrer les fonctions d'une dll crée sous Delphi dans le monde .NET, je sollicite votre avis pour avoir la stratégie la plus efficace.

L'existant :
- Dll exposant une interface (delphi) non taggée stdcall (utilisant des types complexes et classes en param)
- Accès au code source de tous les éléments
- Pas le droit de toucher l'existant (seulement des sur-couches)

Faut-il opter pour :
-une intégration directe dans une classe C# avec un type d'appel fastcall ?
-une intégration avec un wrapper C++/CLI par la suite utilisé en C# ?
-wrapper natif exposant du stdcall puis wrapper C# ?
-wrapper natif orienté COM puis intégration .NET ?

Je pense me souvenir que le marshalling ne va pas trop apprécier les types delphi genre WideString... des recommandations ?

[nonoxp]

Re,

Je continue à fouiller mais je suis tombé sur un os.

Côté Delphi :

Code :

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

1
2
3
4
5
6
7
procedure TestDOCManager4(Msg : WideString ; out Msg2 : WideString);stdcall;
 
procedure TestDOCManager4(Msg : WideString ; out Msg2 : WideString);
begin
  ShowMessage(Msg);
  Msg2 := Msg + ' coucou de TestDOCManager4';
end;

Côté .NET :

Code :

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

1
2
DllImport("Project1.dll",CallingConvention=CallingConvention.StdCall,CharSet=CharSet.Auto,SetLastError=true]
public static extern void TestDOCManager4(string msg, out StringBuilder msg2);

En jouant sur la CallingConvention, lorsque l'on est sur Ansi, rien ne passe. Lorsque l'on est sur Unicode, seule la moitié des caractères passe. WideString est composé de plusieurs WideChar qui codent un caractère sur 2 octets.

Des suggestions ?

[nonoxp]

Changement de stratégie. Suite et fin de l'épisode portage.

Je me suis créé un petit objet COM comme un grand sous delphi, il sert de wrapper à la lib que je veux porter en .net.

Pwned le WideString :

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
FGetManager est mon pointeur de procédure qui permet de charger mon FManager...
 
function TComManager.GetType(DOCID: PWideChar; out Type_: PWideChar): WordBool;
var
  retour : WideString;
begin
    Result := False;
    try
      if Assigned( FGetManager ) then
        Result := FManager.GetType(DOCID, retour);
      if Result and (Length(retour)<>0) then
      begin
        Type_ := PWideChar(LocalAlloc(LPTR, (Length(retour)+1)*SizeOf(WideChar)));
        CopyMemory(Type_, PWideChar(retour), (Length(retour)+1)*SizeOf(WideChar));
      end
      else
      begin
        Type_ := nil;
      end;
    except
      on e:Exception do ShowMessage('Erreur GetType : '+e.Message);
    end;
 
end;