delphi里的demo\httpdemo目录的post example如何使用.

Question

function GetPostString(const oPostData: OleVariant): string;
var
  pvd : pvardata;
  pv : PVarArray;
  pd : pbytearray;
  p : pchar;
begin
  //if Postdata = Unassigned then exit;
  try
    pvd := @opostdata;
    //o1 := PostData;
    pvd := pvd .vany;
    if pvd.vtype = 0 then exit;
    pv := pvd.Varray;
    pd := pv.Data;
    getmem(p, pv.bounds[0].ElementCount + 1);
    fillchar(p^, pv.bounds[0].elementcount + 1, 0);
    copymemory(p, pd, pv.bounds[0].elementcount);
    Result := string(p);
    freemem(p);
  except
  end;
end;