请问：dephi中WEBBROWSER控件的NAVIGATE方法怎么提交POST数据

Question

就直接写在URL参数中：
如：http://cns.3721.com/cns.dll?act=go&name=中国人

Answer 1

方法如下：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;

Answer 2

老兄误会了，我是要向SOHU提交我自己的数据，并不是接受别人的数据！