救够文件传输例子（ictcpserver）高分。思路一起给小弟我`

救够文件传输例子（ictcpserver）高分。思路一起给我`！
我邮箱fengsh998@163.com

[解决办法]
看看这个能不能符合你的要求.
转的.

处理重定向只要把idhttp的handleredirect设置为true 

get方法： 
procedure TForm1.Button1Click(Sender: TObject); 
var 
s: TmemoryStream; 
begin 
s:= TmemoryStream.Create; 
try 
IdHTTP1.Get(这里填写url, s); 
except 
on e: exception do 
begin 
Memo1.Lines.Text:= e.Message; 
end; 
end; 
s.SaveToFile( "c:\1.htm "); 
s.Free; 
end; 

post方法： 
procedure TForm1.Button2Click(Sender: TObject); 
var 
sl: TStringList; 
begin 
sl:= TStringList.Create; 
sl.Add( "a=123%26&b=456 ");//填写要post的参数，用&隔开，&本身用%26表示,注意要把httpforceencode设为false 
try 
Memo1.Lines.Text:= IdHTTP1.Post(这里填写url, sl); 
except 
on e: exception do 
begin 
Memo1.Lines.Text:= e.Message; 
end; 
end; 
sl.Free; 
end;