<div>
Assign it to B<br />
<br />
B.Assign(A)
</div>


<div>
Will the assign really copy the data or just give a pointer ?<br />
I need the data to be copied...
</div>


Will the assign really copy the data or just give a pointer ?
I need the data to be copied...

<div>
This comment line is taken from source of jpeg and give answer to upper question:<br />

<blockquote>
// FImage is shared if Assign is used to copy between TJPEGImage instances 
</blockquote>
<br />
Simply create new intermediate bitmap and do assign with it:<br />
<br />

<pre><code id="code-20-38849261-1">...
var
  jpg2: TJPEGImage;
  Bmp: TBitmap;
begin
  jpg2 := TJPEGImage.Create;
  Bmp := TBitmap.Create;
  Bmp.Assign(Jpg1);
  Jpg2.Assign(Bmp);
....
  Bmp.Free;
  jpg2.Free;
...</code></pre>
</div>


This comment line is taken from source of jpeg and give answer to upper question:


> // FImage is shared if Assign is used to copy between TJPEGImage instances


Simply create new intermediate bitmap and do assign with it:



...
var
  jpg2: TJPEGImage;
  Bmp: TBitmap;
begin
  jpg2 := TJPEGImage.Create;
  Bmp := TBitmap.Create;
  Bmp.Assign(Jpg1);
  Jpg2.Assign(Bmp);
....
  Bmp.Free;
  jpg2.Free;
...

<div>
Just using Assign crashed my exe (access violation)<br />
The TJPEGImage B (destinator) is inside a DLL ...
</div>


Just using Assign crashed my exe (access violation)
The TJPEGImage B (destinator) is inside a DLL ...

<div>
Isnt' there a way to copy the picture from one TJPEGImage to another using a TMemoryStream and, if yes, how ?<br />
Thanks
</div>


Isnt' there a way to copy the picture from one TJPEGImage to another using a TMemoryStream and, if yes, how ?
Thanks

<div>
<div class="content wysiwyg-content">
In Delphi, how can I copy the image from one TJPEGImage to another ?<br />
Example, I have this<br />
var<br />
&nbsp;A,B:TJPEGImage;<br />
.../...<br />
begin<br />
.../...<br />
// A has been loaded somewhere and how I want to copy the image to B
</div>
</div>


In Delphi, how can I copy the image from one TJPEGImage to another ?
Example, I have this
var
 A,B:TJPEGImage;
.../...
begin
.../...
// A has been loaded somewhere and how I want to copy the image to B

How to copy TJPEGImage

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.