TynSerial文件序列（还原）

最新推荐文章于 2022-03-25 07:00:00 发布

weixin_30477797

最新推荐文章于 2022-03-25 07:00:00 发布

阅读量78

点赞数

原文链接：http://www.cnblogs.com/hnxxcxg/p/10972341.html

版权

TynSerial文件序列（还原）

1）下载文件

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）上传文件

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;

转载于:https://www.cnblogs.com/hnxxcxg/p/10972341.html