请教如何从Dll中把这种数据传出来??? ( 积分: 50 )

type
TShareMem = packed record
ComPortFile:array[0..255] of char;
FileHandle:THandle;
DatToWriteFile:array[0..255] of char;
DatToReadFile:array[0..255] of char;
end;
PShareMem = ^TShareMem;

procedure SaveForWriteFile(const s;bytes:dword);
var
h:integer;
begin
if bytes=0 then exit;
if fileexists(pShMem^.DatToWriteFile) then
begin
h:=fileopen(pShMem^.DatToWriteFile,fmOpenWrite);
fileseek(h,0,2);
end
else h:=filecreate(pShMem^.DatToWriteFile);

if h=-1 then exit;
FileWrite(h,s,bytes);
FileClose(h);
end;

这个S它没有类型,我怎么才能把它从Dll中传到程序中呀

type
TShareMem = packed record
ComPortFile:array[0..255] of char;
FileHandle:THandle;
DatToWriteFile:array[0..255] of char;
DatToReadFile:array[0..255] of char;
end;
PShareMem = ^TShareMem;

procedure SaveForWriteFile(const s;bytes:dword);
var
h:integer;
begin
if bytes=0 then exit;
if fileexists(pShMem^.DatToWriteFile) then
begin
h:=fileopen(pShMem^.DatToWriteFile,fmOpenWrite);
fileseek(h,0,2);
end
else h:=filecreate(pShMem^.DatToWriteFile);

if h=-1 then exit;
FileWrite(h,s,bytes);
FileClose(h);
end;

这个S它没有类型,我怎么才能把它从Dll中传到程序中呀

所谓无类型参数可以接收任何类型的值，只是从语法角度而言的。或者说，理论上我们可以实现一个可以使用任何类型变量作为参数的过程。在这里可以传一个数组
s:array[1..100] of char 或 s:array[1..100] of byte;

怎么做说详细点好吗
我是个菜菜哟
我要传出来
给点代码了

什么意思啊
写清楚点啊
看了半天 都不明白

用内存映射，包治！

多人接受答案了。