【图像处理高级编程】-图像传输

图像传输

提示：首先安装需要的组件，安装 TServerSocket 和TClientSocket
步奏如下
To install the socket components:

Select Component > Install Packages.
In the Install Packages dialog box, click Add.
In the Add Design Package dialog, browse to C:\Program Files (x86)\Embarcadero\Studio\19.0\bin.
Select dclsockets250.bpl, and click Open.
Click OK to dismiss Install Packages dialog.
The socket components (TClientSocket and TServerSocket) are listed in the Internet category of the Toot Palette.

核心源码

提示：客户端
const
BufSize = 2048;

var
MyPicture: TMyPicture;
MyStream: TMemoryStream;
LeftSize: integer;

implementation

{$R *.dfm}

procedure TMyPicture.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
var
str: string;
begin
Self.StatusBar1.Font.Color := clred;
str := DateToStr(Date) + ’ ’ +
TimeToStr(Time) + ‘==>>’ + ‘和主机’ + Socket.RemoteHost +
‘连接成功’;
self.StatusBar1.Panels[1].Text := str;
end;

procedure TMyPicture.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
errorcode := 0;
CLientSocket1.Socket.Close;
end;

procedure TMyPicture.GetFileReady;
begin
MyStream.Clear;
MyStream.LoadFromFile(OpenDialog1.FileName);
MyStream.Position := 0;
leftSize := MyStream.Size;
end;

procedure TMyPicture.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
rstr: string;

// 接受到主机的信息
begin
{ rcvtxt := Socket.ReceiveText;
if MyStream.Size = 0 then
begin
bmp := TBitmap.Create;
jpg := Tjpegimage.Create;
bmp.Assign(image1.Picture.Bitmap);
jpg.Assign(bmp);
jpg.CompressionQuality := 10;
MyStream.LoadFromStream(MyStream);
// MyStream.Position := 0;
end
else
left := size - count;
if rcvtxt = ‘go’ then
begin
if sizeof(buf) < left then
begin
MyStream.Read(buf, sizeof(buf));
Socket.SendBuf(buf, sizeof(buf));
count := count + sizeof(buf);
end
else
begin
MyStream.Read(buf, left);
Socket.SendBuf(buf, left);
end;
end;
if rcvtxt = ‘stop’ then
MyStream.Clear; }
rstr := socket.ReceiveText;
// Socket.ReceiveText用于接受来自主机的信息
if (rstr = ‘go’) then
begin
SendFilePart();
// 如果接受到’go’，则调用发送文件函数，文件可以包括图片，文件等
end;
if (rstr = ‘stop’) then
begin
MyStream.Clear;
// 清空内存流
MyStream.SetSize(0);
end;
end;

function TMyPicture.GetFileSize(const FileName: string): integer;
var
f: TfileStream;
begin
f := TfileStream.Create(FileName, fmopenRead or fmShareDenyNone);
// 动态创建FileName的文件流
Result := f.Size;
// 获得文件流的大小，并作为返回值
F.free;
// 释放文件流
end;

procedure TMyPicture.SendFilePart;
var
SendSize: longint;
// 待发送的字节大小
Buf: array[0…BufSize - 1] of char;
// 设立一块2K的字符缓冲区
begin
if MyStream.Size = 0 then
GetFileReady();
// 内存流大小为0，则读取文件
if LeftSize > BufSize then
SendSize := BufSize
// 余下的文件大小>2K ,则发送BufSize（2k）大小字节
else
SendSize := LeftSize;
// 余下的文件不足2K,则全部发送完
MyStream.ReadBuffer(Buf, SendSize);
// 把文件为内存流写入缓冲区
LeftSize := LeftSize - SendSize;
// LeftSize 标志剩余字节数
if LeftSize = 0 then
begin
MyStream.Clear;
// 全部发送，则清空内存流
end;
try
ClientSocket1.Socket.SendB