filefunc.pas

?

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81

/// <author>cxg 2020-9-29</author>   unit filefunc;   interface   uses   Classes, ulog, serial, uGlobal, SysUtils;   function downfile(const params: RawByteString): RawByteString;   function upfile(const params: RawByteString): RawByteString;   implementation   function downfile(const params: RawByteString): RawByteString; var   requ: TSerial;   filename: string;   fs: TFileStream; begin   requ := TSerial.Create;   fs := TFileStream.Create(DownPath + filename, fmOpenRead or fmShareExclusive);   try     try       requ.loadFromRawByteString(params);       filename := requ.force('filename').AsString;       requ.clear;       requ.force('return').AsBoolean := true;       requ.force('file').AsStream := fs;       Result := requ.saveToRawByteString;     except       on e: Exception do       begin         requ.clear;         requ.force('return').AsBoolean := False;         requ.force('err').AsString := e.Message;         Result := requ.saveToRawByteString;         Log.WriteLog('filefunc.downfile ' + e.Message);       end;     end;   finally     requ.Free;     fs.Free;   end; end;   function upfile(const params: RawByteString): RawByteString; var   requ: TSerial;   filename: string;   ms: TStream; begin   requ := TSerial.Create;   ms := TMemoryStream.Create;   try     try       requ.loadFromRawByteString(params);       filename := requ.force('filename').AsString;       ForceDirectories(UpPath);       ms := requ.force('file').AsStream;       TMemoryStream(ms).SaveToFile(UpPath + filename);       requ.clear;       requ.force('return').AsBoolean := true;       Result := requ.saveToRawByteString;     except       on e: Exception do       begin         requ.clear;         requ.force('return').AsBoolean := False;         Result := requ.saveToRawByteString;         Log.WriteLog('filefunc.upfile ' + e.Message);       end;     end;    finally     requ.Free;     ms.Free;   end;   end;   end.