請教Dll問題

Question

我現在有個Dll(Test.Dll)的輸出函數是這樣的Function GetModel (pn,r:pchar):integer;export;stdcall ;此函數返回值為一個整型,
如返回0，r值為空
如返回1，r值為所要的值(1,2,3)
如返回-1，為異常， r值為空
傳入參數pn,p之格式,說明如下:
參數格式為:   
pchar('1234'),ppchar(1234')    : pn字符轉為指針類型
p                    :p為指針地址(初始賦值為512)我现在有一个对应关系是比如“ A12345”，用这支Dll的函数去获取的返回值是“B54321”。
那我现在输入“ A12345”，怎么样才能获取到“B54321”。要怎么写？
请指教，谢谢！

Answer 1

var
  p:PChar;
begin
 p:=allocmem(256);
GetModel(pchar(A12345),p);
//查看结果
freemem(p);end;