jpg to wmf 1

[Detective]

I want to convert jpg to wmf.
Therefore I downloaded the component TJPEGImage.
Now, if I try this:
image1.picture.metafile := jpegimage1.picture.graphic;
it doesn't work.

How should I do this?

 

[towerbase]

Try

image1.picture.metafile.Assign ( jpegimage1.picture.graphic );

I haven't actually tested this out but this is the usual way of doing this kind of thing.

Andrew

 

[Detective]

Error: Cannot assign a TBitmap to a TMetafile.

 

[McMerfy]

Greetings.

var
  AMetaFile  : TMetaFile;
  AMFCanvas  : TMetaFileCanvas;
  JPEGImage  : TJPEGImage;
begin
  // assuming that you have an image in your JPEGImage
  AMetaFile := TMetaFile.Create;
  AMFCanvas := TMetaFileCanvas.Create(AMetaFile, GetDC(Self.Handle));
  AMFCanvas.StretchDraw(Rect(0, 0, 1900, 1468), Photo);
  AMFCanvas.Free;
  // note that image is copied ONLY when you free Metafile canvas.

--- markus