Question

delphi 程序问题 帮我解释下下面的程序是什么意思

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Str,Str2:string;
i,j:integer;
idhttp:TIdHTTP ;
SS:TStringList;
RespData: TStringStream;
begin

idhttp:=TIdHTTP.Create(nil);
SS := TStringList.Create;
SS.Add('Keywrod=Find');
SS.Add('typeId='+Edit1.Text);
SS.Add('jsSJ='+Str2);
SS.Add('ksSJ='+inttostr(j));
RespData:=TStringStream.Create('');
IdHTTP.Post(Edit2.Text,SS,RespData);
Memo1.Lines.Text:=RespData.DataString;

application.ProcessMessages;
IdHTTP.Free;
end;

Answer 1

idhttp:=TIdHTTP.Create(nil);创建一个http的客户端
SS := TStringList.Create;
SS.Add('Keywrod=Find');
SS.Add('typeId='+Edit1.Text);
SS.Add('jsSJ='+Str2);
SS.Add('ksSJ='+inttostr(j));建立一串字符和属性对，如:Keyword=Find等

RespData:=TStringStream.Create('');创建一个响应端（接收返回值）
IdHTTP.Post(Edit2.Text,SS,RespData);发送ss到URL地址Edit2.text，返回值存储到RespData
Memo1.Lines.Text:=RespData.DataString;Memo1中显示返回值

application.ProcessMessages;接收信息时，程序依然可以响应用户操作
IdHTTP.Free;释放资源