下面这几行xmlhttp.get异步发送请求的代码用delphi怎么写？

Question

xmlhttp.open("GET",?"default.aspx",?true); 
xmlhttp.onreadystatechange=function() 
{ 
if(xmlhttp.readyState==4) 
{ 
alert(xmlhttp.responseText); 
} 
} 
xmlhttp.send(null); 
用DELPHI怎么写呢？关键是这句xmlhttp.onreadystatechange=function()，是什么意思呢？DELPHI应该怎么写？
拜托了，各位老大。

Answer 1

xmlhttp.onreadystatechange=function()定义回调函数。相当于先定义函数
function() 
{ 
if(xmlhttp.readyState==4) 
{ 
alert(xmlhttp.responseText); 
} 
} 
再给xmlhttp.onreadystatechange赋值xmlhttp.onreadystatechange=function()。当xmlhttp.readyState改变时就回调用回调函数进行处理 

Answer 2

if(xmlhttp.readyState==4)  不知道你这个条件是什么意思，是不是说请求-响应完成？如果这样的话，那用var
  str : string;
begin
  str := idhttp1.get('');  
  ShowMessage(str);
end;是一样的。你在 get 的时候是无法异步的。

Answer 3

不同请求你自己设定的回调函数是不一样的。内部肯定有机制识别是由谁发送请求，谁处理返回的。你可以看看ajax的原理。