用了这么长时间,delphi 字符中&符号怎么这么恐怖.
最近写一个以exe文件为户端(其实还是利用asp)访问远程数据库access,然后添加记录代码如下:
procedure TfmMain.GfSpeedButton1Click(Sender: TObject);
var
Url,s : string;
Response : TStringStream;
Request : TStrings;
idHttp1:tidhttp;
Doc: IHTMLDocument2;
doc2:variant;
begin
//Doc := wb1.Document as IHTMLDocument2;
//Memo1.Lines.Add(Doc.body.outertext);
idHttp1:=TIdHTTP.Create(Self);
Response := TStringStream.Create('');
try
Request := TStringList.Create ;
try
s := 'cname='+trim(GfEdit1.text)+
''&''+'tqq='+trim(gfedit2.text)+
''&''+'phone='+trim(gfedit3.text)+
''&''+'dz='+trim(gfedit4.text)+
''&''+'je='+trim(gfedit5.text)+
''&''+'zh='+trim(gfedit6.text)+
''&''+'lx='+trim(self.GfComboBox1.Text); //这里构造一个串 有问题
//而直接这样的话就可以
s:='usr=UU&pas=pa';
s:=StringReplace(s,' ','',[rfReplaceAll, rfIgnoreCase]);
//s:='user=wwle&pass=wwle';