作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有 Delphi 10.3.2我不明白这种情况:
1)上传约1M的照片
image1.Bitmap.LoadFromFile('test.jpg');
然后我保存同一张照片
image1.Bitmap.SaveToFile('test_new.jpg');
而test_new.jpg约为3M。为什么???
2)
我想使用 IdHTTP 和 POST 请求从 TImage (test1.jpg - 1MB) 对象发送照片到服务器。我使用函数 Base64_Encoding_stream 对图像进行编码。编码后的图像大小(字符串)为 20 MB! ?为什么原始文件有 1MB?
function Base64_Encoding_stream(_image:Timage): string;
var
base64: TIdEncoderMIME;
output: string;
stream_image : TStream;
begin
try
begin
base64 := TIdEncoderMIME.Create(nil);
stream_image := TMemoryStream.Create;
_image.Bitmap.SaveToStream(stream_image);
stream_image.Position := 0;
output := TIdEncoderMIME.EncodeStream(stream_image);
stream_image.Free;
base64.Free;
if not(output = '') then
begin
Result := output;
end
else
begin
Result := 'Error';
end;
end;
except
begin
Result := 'Error'
end;
end;
end;
....
img_encoded := Base64_Encoding_stream(Image1);
.....
procedure Send(_json:String );
var
lHTTP : TIdHTTP;
PostData : TStringList;
begin
PostData := TStringList.Create;
lHTTP := TIdHTTP.Create(nil);
try
PostData.Add('dane=' + _json );
lHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
lHTTP.Request.Connection := 'keep-alive';
lHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
lHTTP.Request.Charset := 'utf-8';
lHTTP.Request.Method := 'POST';
_dane := lHTTP.Post('http://......./add_photo.php',PostData);
finally
lHTTP.Free;
PostData.Free;
end;
最佳答案
要使用 base64 发布原始文件,您基本上可以使用自己的代码。您只需更改 Base64 编码例程中使用的流,如下所示:
function Base64_Encoding_stream(const filename: string): string;
var
stream_image : TStream;
begin
try
// create read-only stream to access the file data
stream_image := TFileStream.Create(filename, fmOpenRead or fmShareDenyWrite);
// the stream position will be ‘0’, so no need to set that
Try
Result := TIdEncoderMIME.EncodeStream(stream_image);
Finally
stream_image.Free;
End;
if length(result) = 0 then
begin
Result := 'Error';
end;
except
Result := 'Error'
end;
end;
此外,我用一些 try/finally 部分重构了您的代码,以确保发生错误时不会发生内存泄漏。我删除了 try/except 中的开始/结束,因为不需要这些。
还删除了本地字符串变量,以避免双重字符串分配和不必要的 TIdEncoderMIME
base64 对象构造。
关于delphi - 为什么上传的照片比保存的小得多 - Delphi 10.3.2,firemonkey,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/59182816/
我是一名优秀的程序员,十分优秀!