Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871926 Tue, 19 Jul 2022 11:11:12 +0000 Как исправить пустой bit-файл при сохранении? https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871926 macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871923 Tue, 19 Jul 2022 10:52:05 +0000 Как исправить пустой bit-файл при сохранении? https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871923 перед Pen.Color и Pen.Width "Canvas." пропустил. :scratch:, видимо в спешке.]]> RusSun Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871900 Tue, 19 Jul 2022 02:52:38 +0000 Как исправить пустой bit-файл при сохранении? https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871900

w := Rect(0, 0, 150, 150);

for i:=0 to 15 do

begin

x := 150 * (i mod 4);

y := 150 * (i div 4);

q := Rect(x, y, x + 150, y + 150);

Canvas.CopyRect(w, bmp.Canvas, q);

Sleep(1000);

end;

Или так

with Canvas do

begin

Pen.Color := clYellow;

Pen.Width := 3;

for i:=0 to 15 do

begin

x := i mod 4;

y := i div 4;

w := Rect(160 * x, 160 * y, 160 * x + 150, 160 * y + 150);

Rectangle(w); // Обвел дополнительно каждый кадр желтой рамкой.

CopyRect(w, bmp.Canvas, Rect(150 * x, 150 * y, 150 * x + 150, 150 * y + 150));

Sleep(1000);

end;

Pen.Width := 1;

end;

]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871899 Tue, 19 Jul 2022 00:05:43 +0000 Как исправить пустой bit-файл при сохранении? https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871899
Удалось только добавить один кадр, а мне нужно все, через один цикл. Я уже перепробовала изменять параметры Rect, не получается сдвинуть картинку и отобразить следующий кадр.

procedure TForm1.Button1Click(Sender: TObject);

var

bmp: TBitmap;

bit: TBitmap;

JPEG: TJPEGImage;

q,w:TRect;

i,x,y: integer;

begin

bmp:=tbitmap.Create;

bit:=tbitmap.Create;

JPEG := TJPEGImage.Create;

JPEG.LoadFromFile('cant.jpg');

Bmp.Assign(JPEG);

//q := Rect(225, 543, 352, 582);

//w := Rect(0, 0, 352-255, 582-543);

//bit.Width:=352-255;

//bit.Height:=582-543;

for i:=0 to 15 do

begin

// mod 4

x:=i mod 4;

y := (i div 4);

q := Rect(0,0, 150, 150);

w := Rect(0,0, 150, 150);

bit.Width:=150;

bit.Height:=150;

bit.Canvas.CopyRect(w, bmp.Canvas, q);

Canvas.Draw(150*x,150*y,bit);

end;

//bit.savetofile('cant.bmp');

JPEG.free;

bmp.Free;

bit.Free;

end;

]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871887 Mon, 18 Jul 2022 18:04:03 +0000 Как исправить пустой bit-файл при сохранении? https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871887 2) Для проверки успешности загрузки попробуйте сохранить bmp в файл
3) Убедитесь, что область Rect(225, 543, 352, 582) полностью в пределах изображения. Какие у него размеры?
4) Для проверки можно не сохранять файл на диск, а рисовать его на форме.

На первый взгляд код должен работать нормально.]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871880 Mon, 18 Jul 2022 16:30:52 +0000 Как исправить пустой bit-файл при сохранении? https://forum.sources.ru/index.php?showtopic=428683&view=findpost&p=3871880

uses ...jpeg;

procedure TForm1.FormPaint(Sender: TObject);

var

bmp: TBitmap;

bit: TBitmap;

JPEG: TJPEGImage;

q,w:TRect;

begin

bmp:=tbitmap.Create;

bit:=tbitmap.Create;

JPEG := TJPEGImage.Create;

JPEG.LoadFromFile('cant.jpg');

Bmp.Assign(JPEG);

q := Rect(225, 543, 352, 582);

w := Rect(0, 0, 352-255, 582-543);

bit.Width:=352-255;

bit.Height:=582-543;

bit.Canvas.CopyRect(w, bmp.Canvas, q);

bit.savetofile('cant.bmp');

JPEG.free;

bmp.Free;

bit.Free;

end;

]]> Katerina1993 Delphi: Общие вопросы