pointer Dll 函数传值问题
下面例子可以正常执行
procedure TForm1.Button2Click(Sender: TObject);
var strData:String[50];
pData:pointer;
begin
strData:= 'Delphi ';
pData:= @strData[1];
edit2.Text:=strpas(pData);
end;
但我想把这函数写在DLL里面调用 如下：
procedure TForm1.Button2Click(Sender: TObject);
var strData:String[50];
pData:pointer; //必须用无类型
CMD,RCode:integer;
begin
CMD:=1; //CMD不同返回的字符串不同
RCode:=MyDll(CMD,pData); //RCode返回不同的数值以执行不同的命令
edit2.Text:=strpas(pData);
end;
实验了1天了也没测试成功这个DLL 请教高手这个DLL怎么写啊！
[解决办法]
MyDll的定义?
