请问如何将一幅jpg图片转换成wmf格式，当然是用delphi编程实现

Question

请问如何将一幅jpg图片转换成wmf格式，当然是用delphi编程实现

Answer 1

WMF可是矢量图~~~这可不是了解两种图形格式就能完成的工作~~~想达到一定的速度和一定的效果并不容易~~~

Answer 2

jpg到bmp,然后bmp到wmf其实直接写jpg到wmf也一样，你自己研究一下吧jpg2bmp
uses jpeg....
....   Jpg:=Tjpegimage.Create;
   bmp:Tbitmap.create;
   try
   Jpg.LoadFromFile(FileName);
   except
      Jpg.Free;
      Exit;
   end;
   Bmp.Width:=Jpg.Width;
   Bmp.Height:=Jpg.Height;
   Bmp.Canvas.Draw(0,0,Jpg);
   Jpg.Free;
   bmp.SaveToFile(...);
   bmp.free bmp2wmf{用命令行dcc -cc bmp2wmf.dpr编译，或设置"生成控制台程序"编译项
在IDE中编译。生成的程序只能在win95的DOS窗口中使用。}
program bmp2wmf;
uses
  Graphics, SysUtils;const SoftWareName = 'File Convert[BMP&WMF/EMF] Tool Ver1.0,';
      CompanyName  = 'copyright(c) 1994,98 Keenvim software';
      Width        = 80 - Length(SoftWareName);
var aBmp : Tbitmap;
    aWmf : TMetaFile;
    param1 : String;
    paramExt : String;begin
  Write(SoftWareName,CompanyName:Width);
  Writeln('By Mr. Aiming Zhou.'); Writeln;
  if ParamCount >= 1 then
    begin
      param1 := UpperCase(ParamStr(1));
      paramExt := ExtractFileExt(param1);
    end;
  if (ParamCount < 1) or
     (ParamCount > 2) or
     ((ParamCount = 2) and (UpperCase(ParamStr(2)) <> '/E')) or
     ((paramExt <> '.BMP') and (paramExt <> '.WMF') 
     and (paramExt <> '.EMF')) then
    begin
      writeln('ERROR: Param Invalid!');
      writeln('Usage: Bmp2Wmf <.Bmp/.Wmf> [/E]');
      writeln('notes: Param [/E] Define ouput .EMF File format.');
      exit;
    end;  aBmp := Tbitmap.Create;
  aWmf := TMetaFile.Create;
  if paramExt = '.BMP'
    then
      begin
        aBmp.LoadFromFile(param1);
        aWmf.Width := aBmp.Width;
        aWmf.Height := aBmp.Height;
       if ParamCount = 2 then aWmf.Enhanced := true
                         else aWmf.Enhanced := false;        with TMetaFileCanvas.CreateWithComment(
            aWmf,0,'Aiming''s Conver program','V1.0') do
          Try Draw(0,0,aBmp);
          Finally Free;
          end;
        if aWmf.Enhanced
          then aWmf.SaveToFile(copy(param1,1,pos('.',param1)) + 'EMF')
          else aWmf.SaveToFile(copy(param1,1,pos('.',param1)) + 'WMF');
        if aWmf.Enhanced
          then writeln(param1, '==>', 
                       copy(param1,1,pos('.',param1)) + 'EMF', #$0D)
          else writeln(param1, '==>', 
                       copy(param1,1,pos('.',param1)) + 'WMF', #$0D);
      end
    else
      begin
        aWmf.LoadFromFile(param1);
        aBmp.Width := aWmf.Width;
        aBmp.Height := aWmf.Height;
        aBmp.Canvas.Draw(0,0,aWmf);
        aBmp.SaveToFile(copy(param1,1,pos('.',param1)) + 'BMP');
        writeln(param1, '==>', 
                copy(param1,1,pos('.',param1)) + 'EMF', #$0D);
      end;
  aBmp.Destroy;
  aWmf.Destroy;
end.