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

Question

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

Answer 1

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

Answer 2

>>>好久没得分了，
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!

Answer 3

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

Answer 4

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

Answer 5

给我也发一个把，谢谢了
[email protected]