انتقال فایل SQL server Back up از سرور به کلاینت

[soroush_vs]

لطفا بگید چطوری میتونم یه فایل رو از IndyTCP SERVER به Indy TCP CLIENT منتقل کنم در این مورد Search کردم جواب کامل و قانع کننده ای پیدا نکردم لطفا راهنمایی کنید

[B_YAGHOBI]

دوست عزیز یا میتونی Indy FTP را راه بیاندازی یا اینکه اگر از TCP IP استفاده میکنید
میباست خودتان فایل را باز کنید و بصورت بافری یا استریمی (Streem) آن را بفرستید
که تمامی مراحل را میباست مدیریت کنید.

[soroush_vs]

خوب استفاده از Stream بهترین راهه ولی نمی دونم چطوری این کاررو انجام بدم
احتیاج به یه برنامه دمو دارم

[B_YAGHOBI]

به آدرس زیر مراجعه کن :

http://www.delphipraxis.net/topic60190.html

[soroush_vs]

با تشکر از راهنماییهای با ازرشتون
جون از دلفی 7 و Indy9 استفاده میکنم اون لینک به دردم نخورد
سورس برنامه سرور و کلاینت رو میفرستم اشکالاتش رو بی زحمت بگید
با تشکر



//server
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
st:TFileStream;
begin
st:=TFileStream.Create('d:\2.zip',fmcreate);
AThread.Connection.ReadStream(st);
showmessage('read ended');

st.Free;

end;



//client
procedure TForm1.Button1Click(Sender: TObject);
var
st:TFileStream;
begin
st:=TFIleStream.Create('c:\1.zip',fmopenread);
c.Connect(-1);
showmessage('connected');

c.WriteStream(st,true,true,0);
showmessage('wrote');
st.Free;
end;

[B_YAGHOBI]

برنامه زیر با Indy9 کامپایل شده :

[soroush_vs]

اما من هنوز یه مشکل بزرگ دارم و اون اینه که دوباره به شما و به سایت به خاطر این همه محبت بدهکار شدم.!!
با تشکر فراوان.