اشکال در اشاره گر TMemoryStream
سلام خدمت دوستان.
بنظر شما کد زیر مشکلی دارد؟
برنامه درست کار میکند اما زمانی که برنامه در حافظه پردازشی انجام میدهد،تصویر خروجی(image2) در تایمر درست کار نمی کند.
برای رفع این مشکل چه باید کرد؟
باتشکر
..
.
var
a:array of ^TMemoryStream;
b:array of TMemoryStream;
procedure TForm1.button1onclick(sender:Tobject);
var i:integer;
begin
for i:=1 to 10 do
begin
SetLength(a,i+1);
SetLength(b,i+1);
b[i]:=TMemoryStream.Create;
Image1.picture.bitmap.savetostream(b[i]);
b[i].position:=0;
a[i]:=@b[i];
image2.picture.bitmap.LoadFromStream(a[i]^);
end;
//حذف سلول پنجم
for i := 5 to 9 do
begin
a[i]:=a[i+1];
end;
Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image2.picture.bitmap.LoadFromStream(a[6]^);
Timer1.Enabled:=false;
end;
پاسخ با نقل قول
