高分求助：两台机子如何通过modem来传送文件

[only_u]

希望大侠能给我一段源码，真的谢了
只能给20分了:(，我会加的！！

[only_u]

上啊

[Anitya]

哈！
我是用Socket方式实现的。

[only_u]

Anitya(Treky.Lee):先在此谢过。能具体讲讲吗？最好有源码

[Anitya]

>>>好久没得分了，。。。
1.你应该知道ServerSocket1和ClientSocket1的用法。

发送端：
procedure TServerForm.Button1Click(Sender: TObject);
var buf :pchar;
str: string;
begin
getmem(buf,5000);
if buf='' then exit;
str:='能行吗？';
move(str,buf,length(str));
serversocket1.socket.SendBuf(buf,length(str));
freemem(buf,5000);
end;

接收端：
procedure TChildForm.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
//还有别的
mome1.lines.add(Socket.ReceiveText) ;
end;

2.两个modem互拨。
ClientSocket的Address的值设为服务端Modem的IP地址。
其它属性看着设。


3.Good Luck!

[cenwenchuok]

楼上的方式只能传送字符串，如何叫传送文件。给我几天时间，我给你一个详细的，写下你的email地址。先给我10分吧到时给你e过来在给分就看你了。信不信由你了

[cenwenchuok]

对了给我写信，我可以得到你的地址。email:[e-mail]

[dhs]

运用流方式

[lovelypengpeng]

给我也发一个把，谢谢了
[e-mail]