U
unki
Unregistered / Unconfirmed
GUEST, unregistred user!
要怎么样GET才能取到这个页的源代码
https://edit.bjs.yahoo.com/config/login?
login=show_form21&passwd=718595&.persistent=y&.done=http://edit.bjs.yahoo.com/
config/mail?.intl=cn&.intl=cn&.src=ym&.
我在写一个YAHOO帐户登陆的模块,遇到一个问题,以上这个地址我用浏览器打开没问题
,为何我在程序里GET却取不到网页的源代码呢,要怎么样GET才能取到这个页的源代码呢
在这里下载我写的模块,帮忙看一下,
http://61.153.54.2/edren/idget.zip
懒得下载的朋友请看以下代码!
procedure TForm1.Button3Click(Sender: TObject);
var
Stream: TStringStream;
begin
try
Stream := TStringStream.Create('');
idHttp1.Get(editdizhi.Text,Stream);
Memo1.text:=Stream.DataString;
Stream.Free;
except
memo1.Text:='出错!';
end;
end;
https://edit.bjs.yahoo.com/config/login?
login=show_form21&passwd=718595&.persistent=y&.done=http://edit.bjs.yahoo.com/
config/mail?.intl=cn&.intl=cn&.src=ym&.
我在写一个YAHOO帐户登陆的模块,遇到一个问题,以上这个地址我用浏览器打开没问题
,为何我在程序里GET却取不到网页的源代码呢,要怎么样GET才能取到这个页的源代码呢
在这里下载我写的模块,帮忙看一下,
http://61.153.54.2/edren/idget.zip
懒得下载的朋友请看以下代码!
procedure TForm1.Button3Click(Sender: TObject);
var
Stream: TStringStream;
begin
try
Stream := TStringStream.Create('');
idHttp1.Get(editdizhi.Text,Stream);
Memo1.text:=Stream.DataString;
Stream.Free;
except
memo1.Text:='出错!';
end;
end;