delphi - 调整 Tbitmap 大小时的白色图像
问题描述
此代码应该调整 a 的大小TBitmap
,但生成的位图只是一个白色图像(具有最终大小)。我正在使用它来调整大小。
function ResizeBitmap(B: TBitmap; Width, Height: Integer): TBitmap;
var
finalbitmap: TBitmap;
begin
finalbitmap := TBitmap.Create(Width, Height);
finalbitmap.Clear(0);
if finalbitmap.Canvas.BeginScene then
try
finalbitmap.Canvas.DrawBitmap(B, RectF(0,0,B.Width,B.Height), RectF(0,0,Width,Height), 1);
finally
finalbitmap.Canvas.EndScene;
end;
Result := finalbitmap;
end;
知道发生了什么吗?
解决方案
最后我修改了 php 来调整上传图片的大小。我不知道我的 delphi 代码有什么问题。
<?php
$uploaddir = strval($_GET['dir']);
$newwidth = strval($_GET['newwidth']);
$newheight = strval($_GET['newheight']);
$uploadfile = $uploaddir . basename( $_FILES['file']['name']);
move_uploaded_file($_FILES['file']['tmp_name'], $uploadfile);
$sourceProperties = getimagesize($uploadfile);
$fileNewName = $_FILES['file']['name'];
$imageType = $sourceProperties[2];
$imageResourceId = imagecreatefrompng($uploadfile);
$targetLayer = imageResize($imageResourceId,$sourceProperties[0],$sourceProperties[1],$newwidth,$newheight);
imagepng($targetLayer,$uploaddir. "thumb". $fileNewName);
move_uploaded_file($uploadfile, $uploaddir. $fileNewName. ".". "png");
function imageResize($imageResourceId,$width,$height,$twidth,$theigth) {
$targetWidth =$twidth;
$targetHeight =$theigth;
$targetLayer=imagecreatetruecolor($twidth,$theigth);
imagecopyresampled($targetLayer,$imageResourceId,0,0,0,0,$twidth,$theigth, $width,$height);
return $targetLayer;
}
?>
推荐阅读
- sockets - 有没有一种方法可以在不使用多播的情况下将一个数据包发送给 UDP 中的多个收件人?
- wordpress - Wordpress 中的插件管理页面
- angular - 如何仅将一个值从一个组件传递给Angular 6中的另一个组件?
- c# - 如何使用 Unity 初始化 Firebase 实时数据库?
- javascript - onselectionchange 更新时变量不更新
- python - Boto3 Python 只获取某些文件类型?
- c# - Visual Studio 2017 想要引用已使用不同程序集引用的内容
- javascript - Angular5 - 从类中新创建的对象返回未定义
- c# - Webrtc Capture Desktop Audio without using vb-audio cable driver for Native Windows
- python - 如何通过 Selenium 摆脱信息栏“Chrome 正在被自动化测试软件控制”