备份数据

procedure TForm1.Button2Click(Sender: TObject);
var
m:tmemorystream;
s:string;
begin
m:=tmemorystream.Create;

idhttp2.Get('http://ptlogin2.paipai.com/getimage?aid=17000101&CacheTime=0.15549751529197742',m);
m.Seek(0,0);
ImageEnDBView1.IO.LoadFromStream(m);
m.Free;
edit1.text:= IdCookieManager1.CookieCollection.Cookie['verifysession','paipai.com'].Value;
s:=inputbox('','','');
if s<>'' then
 begin
 edit2.Text:=s;
 memo2.Lines.Add(s+'.txt');
 button3.Click;
 //ma( s+'.txt');
 end;

end;