主题:[求助]关于IdHTTP的post
我想将我选中的内容上传到mp3.baidu.com进行搜索,但是我提交的关键词无法输入到delphi里面,我的代码如下,请大家指教
const
POSTURL=http://mp3.baidu.com/';
//搜索引擎代码
POSTCMD=' '; //????我该怎样向baidu提交关键词
//搜索引擎的命令
{var
CommandString,TempString:TStringList;
CurrentDirectory,InputString:String;
begin
CommandString:=TStringList.Create ;
TempString:=TStringlist.Create ;
GetDir(0,CurrentDirectory);
InputString:=Inputbox('搜索引擎参数输入','请输入将要查询的参数值[缺省为"MP3"]:','MP3');
CommandString.Add(POSTCMD+InputString);
Try
Memo1.Clear ;
TempString.Add(IdHTTP1.Post(POSTURL,CommandString));
//加载查询命令,并得到结果
Memo1.Text :=Tempstring.Text ;
TempString.SaveToFile('test.html')
Except
{...}
End;
CommandString.Free ;
TempString.Free ;
end;
我这里的问题就是如何确定POSTCMD的内容来向百度音乐搜索提交信息,请诸位大虾来帮帮小弟,在源代码上改就可以了
const
POSTURL=http://mp3.baidu.com/';
//搜索引擎代码
POSTCMD=' '; //????我该怎样向baidu提交关键词
//搜索引擎的命令
{var
CommandString,TempString:TStringList;
CurrentDirectory,InputString:String;
begin
CommandString:=TStringList.Create ;
TempString:=TStringlist.Create ;
GetDir(0,CurrentDirectory);
InputString:=Inputbox('搜索引擎参数输入','请输入将要查询的参数值[缺省为"MP3"]:','MP3');
CommandString.Add(POSTCMD+InputString);
Try
Memo1.Clear ;
TempString.Add(IdHTTP1.Post(POSTURL,CommandString));
//加载查询命令,并得到结果
Memo1.Text :=Tempstring.Text ;
TempString.SaveToFile('test.html')
Except
{...}
End;
CommandString.Free ;
TempString.Free ;
end;
我这里的问题就是如何确定POSTCMD的内容来向百度音乐搜索提交信息,请诸位大虾来帮帮小弟,在源代码上改就可以了