Delphi中文件传输有几句赋值语句的困惑

Question

type
TDataFlag = Record
FileName : String;
FileSize : Integer;
WorkFlag : Integer;
end;
PDataFlag = ^TDataFlag;

。。。

procedure TFrmServerFile.SServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
DataF:PDataFlag;
begin
DataF := New(pDataFlag);
Dataf.FileName:=''; socket.data
Dataf.FileSize:=0;
DataF.WorkFlag:=0;
Socket.Data:=Dataf;
socket.SendText('已经连接好，准备传输文件！'#13#10);
end;
procedure TFrmServerFile.SServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Buf:array[0..buffersize] of char;
NumberBytes:integer;
cmd:string;
dataf:PDataFlag;

begin
dataf:=Socket.Data;
Case dataf.WorkFlag of
0:
begin
cmd := Trim(Socket.ReceiveText);
if pos('SendFileinfo',cmd) > 0 then
begin
DataF.FileName:=Trim(Copy(CMD,pos(';',cmd)+1,Length(cmd)));
Dataf.FileSize:=StrToInt(Copy(Dataf.FileName,pos(';',Dataf.FileName)+1,Length(dataf.FileName)));
DataF.FileName:=Trim(copy(Dataf.FileName,0,pos(';',dataf.FileName)-1));
Dataf.WorkFlag:=1;
socket.Data:=Dataf;
mmStatus.Lines.Add('文件名:'+dataf.FileName+'文件大小：'+inttostr(Dataf.FileSize));
userhost :=Socket.RemoteHost;
end;
end;
1:
begin
if Trancing then
begin
begin
NumberBytes:= socket.ReceiveLength;
socket.ReceiveBuf(buf,NumberBytes);
MemoStream.Write(buf,numberBytes);
if numberbytes >= BufferSize then
begin
socket.SendText('FiletransferWork');
mmstatus.Lines.Add(inttostr(NumberBytes));
end;
if numberbytes < BufferSize then
begin
socket.Sendtext('FileTransferStop');
MemoStream.Position:=0;
try
mmstatus.Lines.Add('来自：'+Socket.RemoteHost+ '的文件传送完毕！');
Trancing:=false;
Dataf.WorkFlag:=0;
socket.Data:=Dataf;
MemoStream.savetofile(DataF.filename); //保存文件
except
showmessage('在保存文件时出现错误！');
exit;
end;
Memostream.clear;
end;
end;
end;
end;
end;
end;

主要困惑的是： Socket.Data:=Dataf; dataf:=Socket.Data; socket.Data:=Dataf; socket.Data:=Dataf; 这几句赋值语句我感觉好像都是一回事，但去掉一句程序就出错。我看来看去，也看不出什么名堂。这几句赋值语句到底是在干什么，一会赋值来，一会又赋值去的，直接进行操作不行吗，实在不懂。请给位Delphi的高手指点下。先谢谢了

Answer 1

Delphi的Socket文件传输也曾经让我困惑了一阵子，后来经过深入研究，终于彻底明白了其中奥秘。 这些相关问题，不是三言两语能说清楚的。我这里可以告诉你几条：

1、ServerSocket，只要是使用默认的“非阻塞”方式，则其内部是自动采用多线程方式工作的。
2、Socket.Data属性：它是一个指针，可以指向任何类型的数据，通常这些数据包含了与客户端Socket相关的一些信息。 保存客户端Socket的相关信息，其目的是为了在服务端区分出各个客户端Socket，这一点至关重要！

-------------------------------------------------

无需将FileName : String; 改成 FileName : String[100];
使用string 类型毫无问题。
看看我以前写的：
type
TSocketData = record
xh: string;
ip: string; //客户端计算机IP地址
StartReceive: Boolean; //标记开始从客户端接收"考生文件夹.rar"文件
ReceiveFileSize: integer; //接收的考试结果"考生文件夹.rar"的大小
Fs_Result: TFileStream; //接收文件流
Fs_TestFilePosition: int64; //流Fs_Test的读取位置
end;
PSocketData = ^TSocketData;

Answer 2

Socket.Data:=Dataf; //传输的时候指定将要传输的数据来自于dataf
dataf:=Socket.Data; //接收的时候指定从socket中读取dataf

不过我觉得TDataFlag的定义将会导致读取不正确的情况
应该要类似如下定义,才可正确收发头信息
type
TDataFlag = Record
FileName : String[100];
FileSize : Integer;
WorkFlag : Integer;
end;
PDataFlag = ^TDataFlag;

Answer 3

Dataf在几个语句间已经经过各种条件对属性进行了修改，之前赋值和改属性后赋值当然不一样