Delphi Sharemem - Kiedy nie jest potrzebna

Question

Wiem, że kiedy dzielę strings pomiędzy APP i Delphi Delphi DLL muszę dodać Sharemem zarówno aplikacji i dll źródła projektu jako pierwsza jednostka w uses klauzuli.

Ale jeśli funkcja eksportu dll akceptuje tylko Pchars, ale wewnątrz niektórych metod dll używam strings, czy powinienem również użyć sharemem? Pozwól mi pokazano przykładowy kod:

procedure ShowMyCustomMessage(aMessage : Pchar); 
var 
    vUselessString : string; 
begin 
    vUselessString := aMessage; 
    ShowMessage(vUselessString); 
end; 

exports 
    ShowMyCustomMessage; 

w tym prosty i bezużytecznej przypadku dll jest przyjęcie Pchar ale wewnątrz eksportowanego metody DLL tworzy string var. Czy powinienem również dodać ShareMem?

Co z numerem WideString? Czy podanie parametrów WideString wymaga użycia Sharemem?

Answer 1

Musisz używać Sharemem wtedy i tylko wtedy, gdy pamięć jest przydzielona w jednym module (tj. DLL/EXE) i zwolniony w innym module. Zwykle dzieje się tak, gdy pracujesz, przechodząc między modułami.

W podanym przykładzie nie ma potrzeby używania Sharemem. Pamięć do PChar jest przydzielana przez wywoływaną i nie jest zwolniona przez wywoływacza. Łańcuch w adresie jest przydzielany i zwalniany w adresat.

Oto przykład, gdzie będzie trzeba Sharemem:

function GetString: string; 
begin 
    Result := 'hello'; 
end; 

Tutaj pamięć dla łańcucha jest przydzielana w wywoływany ale będą zwalniane przez rozmówcę.

Sprawa z WideString jest dość wyjątkowa. Model WideString jest opakowaniem typu COM BSTR. Przydziela i zwolni przy użyciu współużytkowanego przydziału COM. Więc nie używa alokatora Delphi i możesz bezpiecznie przekazać WideString między modułami bez użycia Sharemem.