foxpro strconv等价

wgxvkvu9 于 2021-06-23 发布在 Mysql

关注(0)|答案(1)|浏览(346)

我在delphi中寻找等价函数。
这是将foxpro代码转换为字符串并将其存储到longtext字段。

xString = strconv(filetostr("C:\AAA.JPG"), 13)

又回来了

strtofile(strconv(Temp_T.Photo, 14), "C:\BBB.JPG")

有人能帮我把这些线转换一下吗？
此代码是将任何文件存储到“photo longtext null”字段的一种方法

1条答案

如果您想读写文件，ioutils单元有一些方便的函数。如果您使用的是jpg，最好不要转换为字符串。最好只存储原始字节。

uses System.IoUtils;

var 
  xBytes:TBytes;
begin
  xBytes  := TFile.ReadAllBytes('C:\AAA.jpg');
  TFile.WriteAllBytes('C:\BBB.JPG',xBytes);
end;