Envoyer une chaîne via SendMessage depuis l'intérieur dll

Question

J'ai deux applications qui utilisent une DLL commune. De l'application « A » J'ai envoyé un message avec le paramètre de chaîne comme indiqué ci-dessous

txt := 'Test String' 
SendMessage(Handle, MyMessage, 0, lParam(PChar(txt))); 

et dans la même DLL J'ai une autre fonction pour lire ce message, mais j'ai reçu un message vide. Je ne sais pas où je fais erreur.

procedure MyClass.WndMethod(var Msg: TMessage); 
var 
    Str: string; 
begin 
    case Msg.Msg of 
    MyMessage: 
    begin 
     Str := string(PChar(Msg.LParam)); 
     ShowMessage(Str); // Empty message 
    end; 
end; 

Answer 1

Vous envoyez un message privé entre les processus. le système ne marshal pas les données d'un processus à l'autre. Cela est nécessaire parce que les processus ont des espaces d'adresses virtuelles isolées privées.

Vous envoyez un pointeur, une adresse à la mémoire dans le processus d'envoi. Cette adresse est reçue, mais elle n'est d'aucune utilité parce que le processus de réception ne peut pas accéder à la mémoire du processus d'envoi. D'où la nécessité de rassembler les données entre les processus.

Si vous souhaitez rassembler des données entre des processus utilisant des messages, vous devez utiliser le message WM_COPYDATA.