请问delphi如何xmlhttp提交表单并接收返回的网页网址?

[丷与你初见丷]

想用xmlhttp写个自动登录
网上的例子太少了
小白求指教，感谢。

function HTTPPOST1(const url: ansistring): ansistring;
var
  r: OleVariant;
  s: ansistring;
  ceshi:string;
var
  xmlHttp: OleVariant;
begin
  url:='https://auth.eve-online.com.cn/oauth/authorize?client_id=eveclient&scope=eveClientLogin&response_type=token&redirect_uri=https%3A%2F%2Fauth.eve-online.com.cn%2Flauncher%3Fclient_id%3Deveclient';
  ceshi:='Username=123456&Password=123456'';
  xmlHttp := CreateOleObject('MSXML2.XMLHTTP');
  try
    xmlHttp.open('POST',url,false);
    xmlHttp.setRequestHeader('Content-Length', IntToStr(Length(ceshi)));
    xmlHttp.setRequestHeader('Content-type','application/x-www-form-urlencoded');
    xmlHttp.send(ceshi);
    Result:=xmlHttp.ResponseText;
  finally
    xmlHttp:=Unassigned;
  end;
end;

[Y.A.K.E]

一个很神奇的解决方法 xmlHttp.send(ceshi); 这里不用变量。直接写入数据 xmlHttp.send('Username=123456&Password=123456');

[sololie]

看， 有飞碟

[OO_is_just_P]

直接IdHttp搞定