高手来

Question

procedure TForm1.Button1Click(Sender: TObject);
var
winhttp:olevariant;
url,date:string;
begin
date:='username=aaaa,paw=1234567';
url:='http://www.aaa.com';
winhttp:=CreateOLEObject('WinHttp.WinHttpRequest.5.1');
winhttp.setTimeouts(10000,10000,10000,10000);
winhttp.Option(4):= 13056;
winhttp.Option(6):=0;
winhttp.open('post',url,false);
winhttp.setrequestheader('Referer','http://*******/');
winhttp.setrequestheader('Content-Type','application/x-www-form-urlencoded');
winhttp.setrequestheader('User-Agent','Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)');
WinHttp.SetRequestHeader('Content-Length',Length(date));
WinHttp.Send(date);
memo1.Text :=winhttp.responseText;
end;这代码问题出在那里呢?

Answer 1

winhttp.responseText;没有响应？还是神马回事