怎样传递Http命令给相应的网页，并获得返回信息？

Question

delphi程序需要通过网页认证。

Answer 1

DIGEST网页认证:WebBrowser1: TWebBrowser;
PostData,Headers: OleVariant;
PostStr: String;S:=TStringList.Create;
try
  S.Add('http://username:[email protected]');
  Headers := 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
  PostStr := 'paramName=111'
  PostData := VarArrayCreate([0, Length(PostStr)-1], varByte);
  for i := 0 to Length(PostStr)-1 do begin
    PostData[i] := Ord(PostStr[i+1]);
  end;
  WebBrowser1.Navigate(S.Strings[0],EmptyParam,EmptyParam,PostData,Headers);
finally
  S.Free;
end;