请问用idhttp怎样post提交,提交后怎样得到它的返回的html代码???(在线给分)

时间:2021-01-09 18:39:30
这方面的菜鸟啊,请大家帮帮忙!最好将代码贴出来!万分感激!

8 个解决方案

#1


关注

#2


帮忙up一下啊

#3


Delphi6自带的indy demo中有

#4


我看了他自带的例子,但好象不行啊,大家有没有源码拿出来瞧瞧啊,拜托!

#5


如何在delphi中使用SQLDMO??导入sqldmo.dll总出错.
倒入sqldmo.dll,
编译时出错,显示:[Error] SQLDMO_TLB.pas(12513): Identifier redeclared: 'ID'!!
试了多次,并把TServer,TDatabase,TApplication所有的T**都改为了T_**,依然不对??
我已经绝望了!!
绝望中!!!!.
高手帮帮忙!!!!!小弟先谢了

#6


procedure TForm1.httpRedirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
  VMethod:=hmGet;
  //登陆csdn要先一个Post和后两个Get,所以这里改为hmGet;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:TStringList;
  r:TStringStream;
begin
  r:=TStringStream.Create('');
  s:=TStringList.Create ;
  http.HTTPOptions:=[];
s.Text:=
    'name=YourCsdnUsername&pass=YourCsdnPassword&type=1&x=22&y=9';
  //s的内容不应被encode.
  http.HandleRedirects:=true;
  //登陆csdn重定向了2次
  http.Post('http://www.csdn.net/member/logon.asp',s,r);
  memo1.Lines.Text:=r.DataString;
  //r.DataString是登陆以后专家门诊的html内容,
  s.Free;
  r.Free;
end;

环境:Delphi7

#7


如果我想要在WEBBROWSER中显示返回的结果呢?该如何解决?请各高手指点一二

#8


up

#1


关注

#2


帮忙up一下啊

#3


Delphi6自带的indy demo中有

#4


我看了他自带的例子,但好象不行啊,大家有没有源码拿出来瞧瞧啊,拜托!

#5


如何在delphi中使用SQLDMO??导入sqldmo.dll总出错.
倒入sqldmo.dll,
编译时出错,显示:[Error] SQLDMO_TLB.pas(12513): Identifier redeclared: 'ID'!!
试了多次,并把TServer,TDatabase,TApplication所有的T**都改为了T_**,依然不对??
我已经绝望了!!
绝望中!!!!.
高手帮帮忙!!!!!小弟先谢了

#6


procedure TForm1.httpRedirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
  VMethod:=hmGet;
  //登陆csdn要先一个Post和后两个Get,所以这里改为hmGet;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:TStringList;
  r:TStringStream;
begin
  r:=TStringStream.Create('');
  s:=TStringList.Create ;
  http.HTTPOptions:=[];
s.Text:=
    'name=YourCsdnUsername&pass=YourCsdnPassword&type=1&x=22&y=9';
  //s的内容不应被encode.
  http.HandleRedirects:=true;
  //登陆csdn重定向了2次
  http.Post('http://www.csdn.net/member/logon.asp',s,r);
  memo1.Lines.Text:=r.DataString;
  //r.DataString是登陆以后专家门诊的html内容,
  s.Free;
  r.Free;
end;

环境:Delphi7

#7


如果我想要在WEBBROWSER中显示返回的结果呢?该如何解决?请各高手指点一二

#8


up