多线程Socket传送文件的客户端和服务端源代码

[url]http://www.delphibbs.com/keylife/iblog_show.asp?xid=7557[/url]
多线程Socket传送文件的客户端和服务端源代码
一.客户端:
1.Form上放一个ClientSocket1,OpenDialog1,button1
2.ClientSocket1属性设置:
   Active : False
   ClientType : ctBlocking
   Host : '127.0.0.1'
   Port : 5998
3.button1事件:

procedure TForm1.Button1Click(Sender: TObject);
Var
s : TWinSocketStream;
f : TFileStream;
begin
If Not OpenDialog1.Execute Then Exit;
ClientSocket1.Open;
s := TWinSocketStream.Create(ClientSocket1.Socket, 60000);
f := TFileStream.Create(OpenDialog1.FileName, fmShareDenyWrite);
Try
   s.CopyFrom(f, 0);
Finally
   s.Free;
   f.Free;
   ClientSocket1.Close;
End;
end;

----------------------------------------------
二.服务端:
1.Form上放一个ServerSocket1
2.ServerSocket1属性设置:
   Active : True
   Port : 5998
   ServerType : stThreadBlocking
3.定义客户端线程类:

TClientThread = Class(TServerClientThread)
Private
Public
Procedure ClientExecute; override;
End;
Procedure TClientThread.ClientExecute;
Var
ReceiveBuffer : Array[0..4095] Of Char;
SocketStream : TWinSocketStream;
BytesRead : Integer;
F : TFileStream;
Begin
While Not Terminated And ClientSocket.Connected Do
Begin
  try
    SocketStream := TWinSocketStream.Create(ClientSocket, 60000);
    F := TFileStream.Create('c:\afile.exe', fmCreate);
    try
      FillChar(ReceiveBuffer, 10, 0);
      If SocketStream.WaitForData(5000) Then
       Repeat
         BytesRead := SocketStream.Read(ReceiveBuffer,SizeOf(ReceiveBuffer));
         if BytesRead = 0 then
           ClientSocket.Close
         Else
          F.WriteBuffer(ReceiveBuffer, BytesRead);
       Until Not SocketStream.WaitForData(2000);
    finally
      SocketStream.Free;
      ClientSocket.Close;
      f.Free;
    end;
  except
  end;
End;
End;
4.ServerSocket1的OnGetThread事件代码:
procedure TForm1.ServerSocket1GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
begin
SocketThread := TClientThread.Create(False, ClientSocket);
end;

转载于:https://blog.51cto.com/525927/121282

多线程Socket传送文件的客户端和服务端源代码相关推荐

TCP：利用Socket编程技术实现客户端向服务端上传一个图片。
问题: 利用Socket编程技术实现客户端向服务端上传一个图片的程序. 客户端: import java.io.*; import java.net.Socket;public class clien ...
QT中使用C++ socket通信（了解socket通信、socket的三次握手和四次挥手、socket函数说明、客户端与服务端的代码实例）
一.TCP/IP协议四个抽象层: 二.socket位置 socket就在应用程序的传输层和应用层之间,传输层的底一层的服务提供给socket抽象层,socket抽象层再提供给应用层. 三.socket ...
flask和socket结合使用实现客户端向服务端发送文件
文章目录 1.实验效果 2.文件结构说明 3.操作步骤 4.代码下载 5.服务端文件 6.客户端文件 7.前端文件 1.实验效果成功发送文件和接收文件 2.文件结构说明 3.操作步骤 (1)首先运行 ...
java与C语言socket通信（C客户端java服务端）
服务器端代码 MyServer.java import java.io.*; import java.net.*; import java.util.*;public class MyServer { ...
java与C语言之间socket通信（java客户端 C服务端）
直接贴代码服务端C代码 server.c #include <stdio.h> #include <sys/types.h> #include <sys/socket. ...
Socket测试工具（客户端、服务端）
Socket是什么? SOCKET用于在两个基于TCP/IP协议的应用程序之间相互通信.最早出现在UNIX系统中,是UNIX系统主要的信息传递方式.在WINDOWS系统中,SOCKET称为WINSOC ...
JAVA 网络编程 Socket 详细说明，实现客户端和服务端相互推送消息
客户端代码: package com.lcx.socket;import java.io.BufferedReader; import java.io.BufferedWriter; import j ...
php cannot bind port to socket,PHP基于socket实现客户端和服务端通讯功能
本文主要介绍了PHP基于socket实现的简单客户端和服务端通讯功能,可实现服务端接收客户端发送的字符串进行翻转操作后返回客户端的功能,需要的朋友可以参考下服务端: set_time_limit(0 ...
python中使用socket编程实现带有界面的客户端向服务端发送文件和下载文件
一主界面: **二:发送文件界面:**首先需要开启发送文件服务端(这里需要注意的是每一次发送文件之前都需要开启一次服务端,因为我在这里将每一次发送文件之后就关闭了客户端和服务端之间的连接) 输出相关客 ...
基于多线程的TCP局域网通信，客户端向服务端上传文件简单实现源码
客户端 import java.io.*; import java.net.Socket;/*** ### 作业3:* 完成文件上传案例学习* - 案例需求* 客户端:数据来自于本地文件,接收服务器反 ...

多线程Socket传送文件的客户端和服务端源代码

多线程Socket传送文件的客户端和服务端源代码相关推荐

最新文章

热门文章