Question

sharedMemory的这个限制是实际的吗？我已经传递到DLL字符串长度大约370个字符和DLL读取它没有问题。

我在问，因为我将PChar从DLL返回到EXE程序。在DLL中我使用GetMem（）函数，在EXE程序中我使用了FreeMem（）函数，并且

我可以通过写入获得Acces Violation - 我调用导出的函数，我使用构造函数，它可能会崩溃。

当我从Exec中删除FreeMem时，未显示此AV。也不总是显示，它取决于PChar变量中的字符：

255 x a - 可以通过但是ąłćłąłłąłśćłąśććłłć：//可能会崩溃。

示例 - 在DLL中创建消息：

function TPDF.wiadomosciBledow(kod: kodyBledow): TWynik;
var
  tmp: string;

begin

  case kod of
    kbOK: tmp := ''; //natomiast tutaj tego nie zauważyłem
    kbBladLogowania: tmp := 'Nie można zalogować się do serwera Archiwum';
    kbBrakAdresSerwera: tmp := 'Wprowadź adres serwera, np.: http://arch.lpwik:5984/';
    kbBrakDanychJSON: tmp := 'Wprowadź dane do logowania w formacie JSON - API _session';
    kbBladPobrania: tmp := 'Nie można pobrać wskazanego pliku';
    kbBrakURL: tmp := 'Wprowadź adres URL do pobrania, np.: http://arch.lpwik:5984/baza/dok_1/zal_1.pdf';
    kbBrakProtokolu: tmp := 'Wymagane jest wprowadzenie protokołu http:// lub https://'; //z jakiegoś powodu wprowadzenie tutaj dwóch slashy // powoduje błąd
  end;

  result.kod := ord(kod);
  GetMem(result.wiadomosc, sizeof(WideChar) * Length(tmp) + 1);
  result.wiadomosc := StrPCopy(result.wiadomosc, tmp);
end;

并且在Exec freemem中：

procedure TOkno.pokazPDFClick(Sender: TObject);
var
  wejscie: TZalacznik;
  wyjscie: TWynik;
  t: string;

begin
  if @wyswietlPDF = nil then exit();

  {inicjalizacja pamięci - widechar na jeden znak potrzebuje 2 bajty}
  GetMem(wejscie.pelnyAdresURL, 2 * Length(adresURL.Text) + 1);

  {przekopiowanie danych}
  StrPCopy(wejscie.pelnyAdresURL, adresURL.Text);

  {wywołanie metody z DLL}
  wyjscie := wyswietlPDF(wejscie); //dll function

  {wyświetlenie wyniku w grupie}
  wynikKod.Caption := IntToStr(wyjscie.kod);
  wynikWiadomosc.Caption := wyjscie.wiadomosc;

  {zwalnianie przydzielanej pamięci}
  FreeMem(wejscie.pelnyAdresURL);

  FreeMem(wyjscie.wiadomosc); //if commented I do not have AV
end;

Answer 1

主机可执行文件和DLL有两个独立的内存管理器副本。

要共享这样的内存，您需要使用shared memory manager。

作为替代方案，您可以重新设计API，以便分配和释放仅在一侧发生，在DLL中都有（公开要解除分配的功能），或者在主机可执行文件中都发生（公开要返回的函数）缓冲区大小，让调用者分配和解除分配）。

Delphi DLL PChar

1 个答案: