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

用结构体实现的文件传输Delphi Record 客户端 -- 服务端 UDP 发送图片 {服务器接收客户端传来的图片 这是用结构体实现的文件传输}/////////////////////////////Server端//////////////////////////unit Server; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, ExtDlgs,IdSocketHandle;type TFilePack=record FileName:array[0..99] of Char; FileSize:Integer; PosiBegin:Integer; PosLen:Integer; Buf:array[0..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 *.dfm} procedure 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.Wri