當使用了長字符串類型的參數、變量時，如string，要引用ShareMem。

　　雖然Delphi中的string功能很強大，但若是您編寫的Dll文件要供其它編程語言調用時，最好使用PChar類型。如果您要堅持使用string類型的參數時、變量甚至是記錄信息時，就要引用ShareMem單元，而且這個單元必須是第一個引用的，即在uses語句后的第一個單元。

?

　　下面通過一個項目示例來講解怎么使用ShareMem。

先新建一個DLL項目　　　　　　　　　　　　　　　　　

　　先新建一個DLL項目，然后再新建一個Unit1單元。

　　工程文件是這樣的

library Project2;{ Important note about DLL memory management: ShareMem must be thefirst unit in your library's USES clause AND your project's (selectProject-View Source) USES clause if your DLL exports any procedures orfunctions that pass strings as parameters or function results. Thisapplies to all strings passed to and from your DLL--even those thatare nested in records and classes. ShareMem is the interface unit tothe BORLNDMM.DLL shared memory manager, which must be deployed alongwith your DLL. To avoid using BORLNDMM.DLL, pass string informationusing PChar or ShortString parameters. }usesShareMem,SysUtils,Classes,Unit1 in 'Unit1.pas';{$R *.res}exportstest;beginend.

　　單元文件里面實現了test函數

unit Unit1;interfacefunction test(const input: string): string; stdcall;implementationfunction test(input: string): string; stdcall;beginResult:= '我是DLL中的test函數，輸入是：' + input;end; end.

　　引入ShareMem的注意事項

1. 因為DLL中使用到string類型，所以一定要引入ShareMem單元。如果沒有用到string就不需要ShareMem，但是為了保險起見，還是建議引入ShareMem單元

2. 以這個項目為例，注意要在DLL的項目文件中引入ShareMem單元，而不是在函數的聲明和實現單元Unit1里面引入ShareMem單元

3. 在項目文件中可能會引入很多單元，但是ShareMem單元一定要第一個引入，為了第一個加載

?

新建加載這個DLL的項目（生成可執行文件）　　　　　

　　先新建一個項目，然后再新建一個Unit1單元。

　　上面的那個DLL的項目編譯生成了Project2.dll動態鏈接庫，將該動態鏈接庫文件放到這個可執行項目的項目目錄下方便加載

　　項目文件的源碼是這樣的

program Project1;usesShareMem,Forms,Unit1 in 'Unit1.pas' {Form1};{$R *.res}beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.Run; end.

　　單元文件的代碼是這樣的（這個單元文件中主要是窗體相關代碼）

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)btn1: TButton;procedure btn1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject); typeTAddc= function(const input: string): string; stdcall; varhh: THandle;addc: TAddc; beginhh:= LoadLibrary('Project2.dll');tryif hh<>0 then@addc:= GetProcAddress(hh, PChar('test'));if not (@addc = nil) thenbeginShowMessage(addc('lsls'));end;finallyFreeLibrary(hh);end;end;end.

　　這個可執行項目加載了上面的DLL，而上面的那個DLL里面使用到了string，所以這個項目文件中也需要引入ShareMem單元。

　　但是也是有注意事項的：

1. 加載了使用string的DLL的項目也需要引入ShareMem。如果沒有用到string就不需要ShareMem，但是為了保險起見，還是建議引入ShareMem單元

2.?以這個項目為例，注意要在該可執行項目文件中引入ShareMem單元，而不是在函數的聲明和實現單元Unit1里面引入ShareMem單元

3. 在項目文件中可能會引入很多單元，但是ShareMem單元一定要第一個引入，為了第一個加載

?

　　我在實驗時候出現的問題

　　因為我在可執行項目中引入ShareMem單元時候沒有注意到應該在項目文件而不是在單元文件中引入，所以在編譯執行之后，可以正確運行，但是當關閉程序的時候卻報錯，如下圖

　　報錯：不合法的指針。

　　將引入ShareMem單元的引入改到項目文件而不是在單元文件中，然后問題就解決了。

轉載于:https://www.cnblogs.com/xumenger/p/4724862.html

總結

以上是生活随笔為你收集整理的Delphi在创建和使用DLL的时候如果使用到string，请引入ShareMem单元的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。