Блог

Главная - Вопросы по программированию - Белое изображение при изменении размера Tbitmap

Белое изображение при изменении размера Tbitmap

#delphi #firemonkey #delphi-10.3-rio #tbitmap

#delphi #firemonkey #delphi-10.3-rio #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;

Есть идеи, что происходит?

Комментарии:

1. Clear() все еще работает чертеж, и поэтому его следует вызывать между (Begin|End)Scene() ними. Хотя, на самом деле это не должно иметь значения, поскольку DrawBitmap() он просто будет рисовать поверх всего Clear() , что было бы нарисовано, поэтому на самом деле нет необходимости вызывать Clear() вообще, если B только у него нет прозрачности, и вы хотите finalbitmap также иметь прозрачность. Но вы убедились, что BeginScene() это не возвращает False в вашей ситуации?

2. Да, я проверил это. Процесс переходит в начальную сцену if so, возвращающую True.

3. В простом тесте, который я провел, я не смог воспроизвести проблему. Пожалуйста, также покажите код, который вызывает ResizeBitmap()

4. Я видел код, который вы добавили ранее, и скопировал его для себя, чтобы протестировать позже. Теперь я вижу, что вы удалили комментарий с кодом. Означает ли это, что вы сами нашли решение? Если это так, то правильное, что нужно сделать, если вопросы и ответы могут быть полезны для других читателей, — это ответить на ваш собственный вопрос . Если, с другой стороны, проблема заключалась в глупой ошибке или ошибке, то правильнее всего также удалить вопрос. Если вы не можете удалить (из-за недостаточной репутации), сообщите нам, и кто-нибудь здесь сможет закрыть его. (Кстати, была ли причина несовместимых типов изображений, png v. bmp?)

5. Нет, но у меня была другая проблема, и я подумал, что это связано… поэтому я хотел попробовать, прежде чем тратить ваше время… но не решаемая…

Ответ №1:

Наконец, я изменил 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;
}
?>