var MS: TMemoryStream; J1: TJPEGImage; begin MS := TMemoryStream.Create; J1 := TJPEGImage.Create; with table1 do begin Append; J1.Assign(Image1.Picture); J1.SaveToStream(MS); table1md_bmp.LoadFromStream(MS); table1md_memo.asstring:=memo1.lines.text; Post; end; MS.Free; J1.Free; end;
begin
MS := TMemoryStream.Create;
J1 := TJPEGImage.Create; with table1 do
begin
Append;
J1.Assign(Image1.Picture);
J1.SaveToStream(MS);
table1md_bmp.LoadFromStream(MS);
table1md_memo.asstring:=memo1.lines.text;
Post;
end;
MS.Free;
J1.Free;
end;