用结构体实现的传输Delphi Record 客户端.doc

用结构体实现的文件传输Delphi Record 客户端 - 服务端 UDP 发送图片服务器接收客户端传来的图片这是用结构体实现的文件传输/Server端/unit Server;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, ExtDlgs,IdSocketHandle;type TFilePack=record FileName:array0.99 of Char; FileSize:Integer; PosiBegin:Integer; PosLen:Integer; Buf:array0.2047 of Byte; end;type TFrmServer = class(TForm) img1: TImage; IdUDPServer1: TIdUDPServer; SaveDialog1: TSaveDialog; lbl1: TLabel; procedure FormCreate(Sender: TObject); procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); private FileName:string; /图片路径 ，名称 Stream:TFileStream; /内存流 FileSize:Integer; /图片大小 Posi:Integer; /文件传输时，内存读取的当前位置 FilePack1:TFilePack; Private declarations public Public declarations end;var FrmServer: TFrmServer;implementation$R *.dfmprocedure TFrmServer.FormCreate(Sender: TObject);begin IdUDPServer1.DefaultPort:=6666; IdUDPServer1.Active:=True; end;procedure TFrmServer.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);var Str:string;begin AData.Seek(0,0); AData.ReadBuffer(FilePack1,AData.Size); FileName:=FilePack1.FileName;/ ShowMessage(FileName); FileSize:=FilePack1.FileSize; SaveDialog1.FileName:=FileName; if FilePack1.PosiBegin=0 then /当一个文件的第一个包传来时 begin if SaveDialog1.Execute then FileName:=SaveDialog1.FileName; if FileExists(FileName) then DeleteFile(FileName); if not FileExists(FileName) then begin Stream:=TFileStream.Create(FileName,fmCreate or fmOpenReadWrite); end; lbl1.Caption:=准备接收.; end; if FilePack1.PosiBeginFileSize then begin Stream.Seek(0,2); Stream.WriteBuffer(FilePack1.Buf,SizeOf(FilePack1.Buf); Str:=OK I Received !; /需要通知客户端已经接收到了， ABinding.SendTo(ABinding.PeerIP,ABinding.PeerPort,Str1,Length(Str); lbl1.Caption:=正在接收.; / ShowMessage(Posi:+IntToStr(FilePack1.PosiBegin+FilePack1.PosLen)+ Size:+IntToStr(FilePack1.FileSize); end; if (FilePack1.PosiBegin+FilePack1.PosLen)=FilePack1.FileSize then begin Stream.Free; Stream:=nil; lbl1.Caption:=接收完毕.; img1.Picture.LoadFromFile(FileName); end;end;end./Client端/unit Client;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, ExtDlgs,IDGlobal;type TFilePack=record FileName:array0.99 of Char; FileSize:Integer; PosiBegin:Integer; PosLen:Integer; Buf:array0.2047 of Byte; end;type TFrmClient = class(TForm) btn1: TButton; img1: TImage; btn2: TBitBtn; dlgOpenPic1: TOpenPictureDialog; IdUDPClient1: TIdUDPClient; lbl1: TLabel; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Stream:TMemoryStream; FileName:String; FileSize:Integer; Posi:Integer; Len:Integer; FilePack1:TFilePack; Private declarations public Public declarations end;var FrmClient: TFrmClient;implementation$R *.dfmprocedure TFrmClient.btn1Click(Sender: TObject);begin if dlgOpenPic1.Execute then begin FileName:=dlgOpenPic1.FileName; StrPCopy(FilePack1.FileName,FileName); /将String转换成数组 img1.Picture.LoadFromFile(FileName); /ShowMessage(StrPas(FilePack1.FileName); end;end;procedure TFrmClient.btn2Click(Sender: TObject);var Str:string;begin posi:=0; FileSize:=0; Str:=; if Stream=nil then begin Stream:=TMemoryStream.Create; Stream.LoadFromFile(FileName); /将文件加载到内存流中 Stream.Position:=0; /将内存的指针指向 首位置 Stream.Seek(0,1); FileSize:=Stream.Size; FilePack1.FileSize:=FileSize; /将文件大小存入 结构体 end; /发送 信息 if Stream nil then begin while Posi0) then begin Len:=2048; FillChar(FilePack1.Buf,SizeOf(FilePack1.Buf),#0); if (FileSize-Posi)Len then Len:=FileSize-Posi; Stream.ReadBuffer(FilePack1.Buf,Len); FilePack1.PosLen:=Len; FilePack1.PosiBegin:=Posi; Inc(Posi,Len); IdUDPClient1.SendBuffer(FilePack1,SizeOf(FilePack1);/record 类型也就是个buf Stream.WriteBuffer(FilePack1.Buf,SizeOf(FilePack1.Buf); lbl1.Caption:=正在传送.; Str:=IdUDPClient1.ReceiveString(); / ShowMessage(Str); end; end; end; if Posi=FileSize then begin if Posi=FileSize then lbl1.Caption: