Làm thế nào để vượt qua mảng động của chuỗi vào một thư viện dll (dll và khách hàng được viết bằng d7) mà không có đơn vị ShareMem?

Question

Tôi đã đọc trên trang này rằng mảng động cần đơn vị ShareMem hoạt động bình thường.

Tuy nhiên tôi muốn viết một dll mở cho các ngôn ngữ khác.

Bất cứ ai có thể cho tôi biết làm thế nào tôi có thể khai báo hàm và các tham số của nó để truyền mảng String?

Thực sự không giống như điều này không được phép mà không có ShareMem?

var 
    templates : array of WideString; 
begin 
    SetLength(templates, 2); 
    templates[0] := 'template1'; 
    templates[1] := 'template2'; 
end 
DLLFunction(@templates[0]); 

Cảm ơn bạn đã trợ giúp!

Answer 1

Mảng chuỗi động đã là một mảng của PWideChar/PAnsiChar (đối với WideString or UnicodeString/AnsiString).

mảng động này có thể được ánh xạ trực tiếp như là, không có bản sao bộ nhớ, từ hầu hết các ngôn ngữ, như là một mảng của PWideChar/PAnsiChar:

Từ người gọi:

DLLFunction(length(templates),pointer(templates)); 

Từ dll:

type 
    TPAnsiCharArray = array[0..MaxInt div SizeOf(PAnsiChar)-1] of PAnsiChar; 
    PPAnsiCharArray = ^TPAnsiCharArray; 
    TPWideCharArray = array[0..MaxInt div SizeOf(PWideChar)-1] of PWideChar; 
    PPWideCharArray = ^TPWideCharArray; 

procedure DLLFunction(argc: integer; argv: PPWideCharArray); 
var i: integer; 
begin 
    for i := 0 to argc-1 do 
    writeln(argv[i]); 
end; 

Ví dụ: từ dll C, bạn có thể sử dụng char **argv thay vì PPAnsiCharArray và void **argv thay vì PPWideCharArray.

Sau đó, bạn có thể dễ dàng chuyển đổi lại PWideChar/PAnsiChar thành loại chuỗi gốc của ngôn ngữ.

Nếu bạn chỉ cần phải viết một dll Delphi, bạn có thể sử dụng

type 
    TAnsiStringArray = array[0..MaxInt div SizeOf(AnsiString)-1] of AnsiString; 
    PAnsiStringArray = ^TAnsiStringArray; 
    TWideStringArray = array[0..MaxInt div SizeOf(WideString)-1] of WideString; 
    PWideStringArray = ^TWideStringArray; 

procedure DLLFunction(argc: integer; argv: PWideStringArray); 
var i: integer; 
begin 
    for i := 0 to argc-1 do 
    writeln(argv[i]); 
end; 

hoặc thậm chí

DLLFunction(templates); 

procedure DLLFunction(const templates: array of WideString); 
var i: integer; 
begin 
    for i := 0 to high(templates) do 
    writeln(templates[i]); 
end;