Access流文件怎么保存?

Question

小弟在局域网中用SocketConnection连接多台机器.(三层)想通过在 客户端 读取图片,保存到 服务器端.将服务器端的Access数据库能Copy到客户端进行备份.望各位高人帮助~~~~~~~~~~~~~~~~~~~~

Answer 1

能教我怎么传送不?由于是在 服务器端,所以post 功能不能用.我知道怎么保存到服务器......

Answer 2

unit   unit1;     
    
  interface     
    
  uses     
      windows,   messages,   sysutils,   variants,   classes,   graphics,   controls,   forms,     
      dialogs,   scktcomp,   stdctrls;     
    
  type     
      tform1   =   class(tform)     
          clientsocket1:   tclientsocket;     
          serversocket1:   tserversocket;     
          btntestsockets:   tbutton;     
          procedure   clientsocket1read(sender:   tobject;   socket:   tcustomwinsocket);     
          procedure   formcreate(sender:   tobject);     
          procedure   formdestroy(sender:   tobject);     
          procedure   clientsocket1disconnect(sender:   tobject;     
              socket:   tcustomwinsocket);     
          procedure   clientsocket1connect(sender:   tobject;     
              socket:   tcustomwinsocket);     
          procedure   serversocket1clientconnect(sender:   tobject;     
              socket:   tcustomwinsocket);     
          procedure   btntestsocketsclick(sender:   tobject);     
      private     
          fstream:   tfilestream;     
          {   private-deklarationen   }     
      public     
          {   public-deklarationen   }     
      end;     
    
  var     
      form1:   tform1;     
    
  implementation     
    
  {$r   *.dfm}     
    
  procedure   tform1.clientsocket1read(sender:   tobject;     
      socket:   tcustomwinsocket);     
  var     
      ilen:   integer;     
      bfr:   pointer;     
  begin     
      ilen   :=   socket.receivelength;     
      getmem(bfr,   ilen);     
      try     
          socket.receivebuf(bfr^,   ilen);     
          fstream.write(bfr^,   ilen);     
      finally     
          freemem(bfr);     
      end;     
  end;     
    
  procedure   tform1.formcreate(sender:   tobject);     
  begin     
      fstream   :=   nil;     
  end;     
    
  procedure   tform1.formdestroy(sender:   tobject);     
  begin     
      if   assigned(fstream)   then     
      begin     
          fstream.free;     
          fstream   :=   nil;     
      end;     
  end;     
    
  procedure   tform1.clientsocket1disconnect(sender:   tobject;     
      socket:   tcustomwinsocket);     
  begin     
      if   assigned(fstream)   then     
      begin     
          fstream.free;     
          fstream   :=   nil;     
      end;     
  end;     
    
  procedure   tform1.clientsocket1connect(sender:   tobject;     
      socket:   tcustomwinsocket);     
  begin     
      fstream   :=   tfilestream.create(c:\temp\test.stream.html,   fmcreate   or   fmsharedenywrite);     
  end;     
    
  procedure   tform1.serversocket1clientconnect(sender:   tobject;     
      socket:   tcustomwinsocket);     
  begin     
      socket.sendstream(tfilestream.create(c:\temp\test.html,   fmopenread   or   fmsharedenywrite));     
  end;     
    
  procedure   tform1.btntestsocketsclick(sender:   tobject);     
  begin     
      serversocket1.active   :=   true;     
      clientsocket1.active   :=   true;     
  end;     
    
  end.

Answer 3

朋友,能不能发个工程到我邮箱??我看不懂,你里面的那些方法从哪里来的?谢谢了[email protected] 

Answer 4

clientsocket1:  tclientsocket;    
serversocket1:  tserversocket;   是什么控件???? 

Answer 5

小弟在局域网中用SocketConnection连接多台机器.(三层) 你不是用socket连接吗,这两个控件没有用到吗???

Answer 6

http://topic.csdn.net/u/20080908/09/AFEC1526-798D-4226-A50A-4CC009B5E5D3.html
看一下这个贴子里有一个发送,接收的代码

Answer 7

用的是SocketConnection.
没有用clientsocket和serversocket
Delphi7中没有,要自己手工加进来...
ApplyUpdates 怎么不能更新图片啊?????

Answer 8

传流,
再stream.savetofile
哈哈...