高分求助--改写一段- Delphi代码！

[ssyfrank]

type
PInteger = ^Integer;


procedure snmpget(ipaddress : Pchar; oid : Pchar; Value : Pchar; ValueLength : PInteger; State:PInteger; VERSION : Integer; const Community : PChar); cdecl; external 'snmp_pp.dll' name 'snmpget';

procedure TForm1.Button1Click(Sender: TObject);
var
ipaddress,oid,Value: array[0..999] of char;
ValueLength,State:PInteger;
begin
ipaddress := '172.24.224.10';
oid := '.1.3.6.1.2.1.1.1.0';
Value := '';
New(ValueLength);
ValueLength^ := 0;
New(State);
State^ := 0;

snmpget(ipaddress,oid,Value,ValueLength,State,1,'public');

if (State^ = 0) then
ShowMessage(Value);

Dispose(ValueLength);
Dispose(State);
end;

[barbaraboy]

int* PInteger;
　extern "C" __declspec(dllimport) void __cdecl snmpget(Pchar ipaddress,Pchar oid, Pchar Value,int* ValueLength,int* State,int VERSION, const Pchar Community);

void _fastcall TForm1::Button1Click(Sender: TObject)
{
char ipaddress[]="172.24.224.10";
char oid[] = ".1.3.6.1.2.1.1.1.0";
char Value[] = "";
int* ValueLength=new int;
*ValueLength= 0;
int *State=new int;
*State= 0;
snmpget(ipaddress,oid,Value,ValueLength,State,1,"public");
if (*State== 0)
ShowMessage(Value);

delete ValueLength;
delete State;
}




}

[ssyfrank]

To:barbaraboy(小威)
Pchar如何改？

[FengSC]

Pchar 为 char *

[barbaraboy]

Pchar改为PChar,
实际上PChar 就是char*
typedef char* PChar;