OLE procedure problem

Hi all,
I have an automation object with 1 procedure which is get computername, but it wont compile because of the result:=Pccomputer.

heres the procedure
function GetComputerName : String;

 var
    pcComputer : PChar;
    dwCSize    : DWORD;
 begin
    dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
    GetMem( pcComputer, dwCSize );
    try
       if Windows.GetComputerName( pcComputer, dwCSize ) then
          Result := pcComputer;
    finally
       FreeMem( pcComputer );
    end;
end;

it works in a normal delphi app but not in activex.
LVL 3
smurffAsked:
Who is Participating?
 
msediConnect With a Mentor Commented:
Hello,

try
  StrPas(pcComputer);

Good luck, MArtin
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.