关于模拟post

Question

delphi:
procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo:TStrings;
Response:TStringStream;
begin
  Response := TStringStream.Create('');  
  LoginInfo := TStringList.Create;
try
LoginInfo.Clear;
  LoginInfo.Add('abc=sdsdg');
try
  IdHTTP1.Post('http://local/test1.asp',LoginInfo,Response);
except
  showmessage('登陆失败');
end;
  showmessage(Response.DataString); 
finally
LoginInfo.Free;
Response.Free;
end;  
end;asp:
<%response.write(request("abc"))%>
为什么我showMessage不出结果呢！？
如果是直接response.write( "abc" )，就有结果。说明没有post字段过去，我到底应该怎么做?

Answer 1

Post  是提交。   Response  是 提交 Request 後返回的東西 .你應該用 idhttp.get 

Answer 2

为什么我showMessage不出结果呢！？ 
如果是直接response.write( "abc" )，就有结果。说明没有post字段过去，我到底应该怎么做?你没看清楚我的问题。

Answer 3

procedure TForm1.Button1Click(Sender: TObject); 
var 
LoginInfo:TStrings; 
Response:TStringStream; 
begin 
  Response := TStringStream.Create('');  
  LoginInfo := TStringList.Create; 
try 
LoginInfo.Clear; 
  LoginInfo.Add('abc=sdsdg'); 
try 
  IdHTTP1.get('http://local/test1.asp',LoginInfo,Response); 
except 
  showmessage('登陆失败'); 
end; 
  showmessage(Response.DataString); 
finally 
LoginInfo.Free; 
Response.Free; 
end;  
end; 
response  就是請求返回 id

Answer 4

procedure TForm1.Button1Click(Sender: TObject); 
var 
LoginInfo:TStrings; 
Response:TStringStream; 
begin 
  Response := TStringStream.Create('');  
  LoginInfo := TStringList.Create; 
try 
LoginInfo.Clear; 
  LoginInfo.Add('abc=sdsdg'); 
try 
  IdHTTP1.get('http://local/test1.asp',LoginInfo,Response); 
except 
  showmessage('登陆失败'); 
end; 
  showmessage(Response.DataString); 
finally 
LoginInfo.Free; 
Response.Free; 
end;  
end; 

Answer 5

starluck：你试下，看你的代码是否可以运行。

Answer 6

IdHTTP1.Get('http://local/test1.asp?abc=sadgsd',Response);

Answer 7

 我是告訴你是用GET， 代碼還是你的代碼。好了，  我同你討論問題不是跟你斗氣的。 我技術不行，無能為力