[D7][idée?]transmettre une string d'une dll à un prog ?

Version imprimable

16/01/2007, 07h26
jbat

[D7][idée?]transmettre une string d'une dll à un prog ?

Bonjour.

Depuis quelques semaines déjà, j'essaye de faire en sorte qu'une application (une dll sans interface graphique) puisse transmettre à un progamme indépendant des informations sous chaine de caractère. Lorsque l'information à transmettre est de type numérique, les messages windows sont parfaitement adaptés, mais là, lorsqu'il s'agit de chaines, je galère et je piétine.
Avez-vous des idées ?

J'ai essayé plusieurs solutions, mais aucune n'est véritablement satisfaisante.

Need Help :(

jbat
16/01/2007, 09h24
Cl@udius

Salut

Tu as regardé dans la FAQ ?
http://delphi.developpez.com/faq/?pa...nededllversapp

@+

L'utilisation des ATOMs semble intéressante, mais à l'essai, j'ai rencontré des problèmes étranges...

Je préfèrerai utiliser le message WM_COPY_DATA.

Voici ce que j'ai essayé :

Emetteur (une dll utilisant des threads et sans interface ni objet dérivant de TWinControl)

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
function TGlobal.RI_SendStringWindowMessage(iRio : integer ; sMsg, sRecepteur: string ; h : thandle):integer;
    var
        DataEnvoyes:TDataEnvoyes;
        CopyDataStruct:TCopyDataStruct;
    begin
 
        result := -1 ;
        if(h=0)then
        begin
            m_h:=FindWindow(nil,PChar(sRecepteur));
        end
        else
        begin
            m_h := h ;
        end;
 
        with DataEnvoyes do
        begin
            m_sChaine := sMsg ;
            m_iRio := iRio ;
            m_iTraitee := 0 ; // non traité.
        end;
        CopyDataStruct.cbData:=SizeOf(DataEnvoyes); //taille des données à envoyer
        CopyDataStruct.lpData:=@DataEnvoyes; //adresse de nos données à envoyer
 
        SendMessage(m_h,WM_COPYDATA,0,LongInt(@CopyDataStruct));
 
    end;

Recepteur (une application windows tout ce qu'il y a de plus simple)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.RunCopyDataMessage(var Msg: TMessage);
    type
        TPCopyDataStruct=^TCopyDataStruct;
        TPDataEnvoyes=^TDataEnvoyes;
    Var
        DataEnvoyes:TDataEnvoyes;
        PDataEnvoyes:TPDataEnvoyes;
        PCopyDataStruct:TPCopyDataStruct;
        iCpt : integer ;
        sChaine : string ;
    begin
        PCopyDataStruct:=TPCopyDataStruct(msg.LParam);
        PDataEnvoyes:=PCopyDataStruct^.lpData;
        DataEnvoyes:=PDataEnvoyes^; // <= PLANTAGE
        ShowMessage(DataEnvoyes.m_sChaine);
    end;

Je ne comprends pas pourquoi ça plante :(

17/01/2007, 09h03
jbat

Citation:

Envoyé par jbat

Je ne comprends pas pourquoi ça plante :(

Personne ne sais ? J'ai du faire une erreur bête, mais je ne vois vraiment pas... :ouin:
17/01/2007, 10h01
jbat

Réponse probable :

Dans la structure que vous envoyez (celle dont vous donnez l'adresse dans lpData), ne mettez pas de string, mais plutôt un tableau de caractères... :?

En tout cas, maintenant, ça fonctionne mieux...