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

[lu_jian]

当网站是get方法好用,如www.163.com?aaa=xxx
但Post方法，如何处理？
多谢各位高手的指点！！!

[cgxp]

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;