TynSerial文件序列（还原）

TynSerial文件序列（还原）

1）下载文件

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm1.DownFile(filename: string); // 下载文件 var   url: SockString;   i: integer;   serial: TynSerial;   ms: TMemoryStream; begin   serial := TynSerial.Create;   ms := TMemoryStream.Create;   try     url := 'downfile';     serial.WriteString('filename', filename); // 下载文件名称     i := FHttp.Post(url, serial.Text, FDataType); // http post     if i = 200 then     begin       serial.Text := FHttp.Content;       serial.ReadFile('filecontent', ms);       ms.SaveToFile('d:\' + filename); // 将下载文件保存到。。。     end     else       ShowMessage(IntToStr(i) + ' error');   finally     serial.Free;     ms.Free;   end; end;

　2）上传文件

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.UpFile(filename: string); // 上传文件 var   url: SockString;   i: Integer;   serial: TynSerial; begin   serial := TynSerial.Create;   try     url := 'upfile';     serial.WriteFile('filecontent', filename);// 序列将上传的文件     serial.WriteString('filename', filename);// 文件名     i := FHttp.Post(url, serial.Text, FDataType);// HTTP POST     if i = 200 then     begin       end     else       ShowMessage(IntToStr(i) + ' error');   finally     serial.Free;   end; end;