200分送二进制文件传送高手~!(200分)

to Tassadar:
谢谢啊~正在研究中,很快就能搞定了~~

to Tassadar:
请问下面行代码中的'4'是如何定义的啊？
我的意思是，如果我选别的大小可以吗？
这个‘4’和实际文件的大小有关连吗？
AThread.Connection.WriteBuffer(aFileSize, 4);

To Kisber:
谢谢你啊～ 可我可能还是用Tassadar的代码，因为Indy的Tcpserver我更容易掌握一点：）
不过我同样会给你部分分的啦~~
你要是不介意，稍后我开个新帖（同样是高分），我可以在那里给你更多分：）

up

aFileSize是个integer大小是4个byte，所以是4了
更好一点的写法是
AThread.Connection.WriteBuffer(aFileSize, SizeOf(aFileSize));
这样能理解了吧，分数没关系，我不需要分的，给别人吧

谢谢你啊～～你真是帮了我大忙了：）
分还是要给的，我总要表示谢意啊～
以后有机会还要多多向你学习呢！

to:Cool132
你好，我遇到跟你同样的问题，也许你这个问题已经解决了，你能拿来与我分享一下吗 ？
我在这里找到了相关的问题，如果你解决了，发个demo给我或提示一下好吗？
我是要从IdTCPServer发到IdTCPclient中去的，而我想发记录类型，或文件流，就是反过来传文件.谢谢你了。

来自：cool132, 时间：2003-4-30 9:46:00, ID：1816393
to Tassadar: 多谢你的东东啊~ 可我的目的刚好和程序相反,我是要服务器端向客户端
传送文件,而且是传送几个类型和大小都相同的文件.
我试着自己把你给的程序做修改,可是改了一个上午也没改好
procedure TfmServer.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
AThread.Data := TThreadData.Create;
with AThread.Data as TThreadData do
begin
State := dstNone;
end;
end;

尤其是上面这段程序,我想要改成客户端的,该怎么改啊~~
还有,是不是把所有的客户端和服务器端的程序对换就可以了啊(当然中间发送和接收的代码要
换)

哦忘了，我的Email:socool_100@163.com
谢谢你，希望能给我提示，谢谢！