Discussion :

[jbat]

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

[Cl@udius]

Salut

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

@+

[jbat]

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 :

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
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 :

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

[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...

[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...