问题:Delphi中怎样将JPEG的图片通过中间层存储到Oracle服务器上(C/S结构没有问题),且怎样取数据(通过中间层)?
Bitmap文件没有问题,就是JPEG说什么类型不支持。

解决方案 »

  1.   

    那么你可以把用代码图片转换bmp保存啊使用的时候再转换为jpg;
      

  2.   

    procedure ChangeToJPG(bmpFile:string;JpgFile:string); 
    var 
      JPG:TJpegImage; 
    begin 
      BMP:=TBitMap.Create; 
      JPG:=TJPEGImage.Create; 
      BMP.LoadFromFile(bmpFile); 
      bmp.pixelformat := pf8bit; 
      JPG.Assign(BMP); 
      JPG.CompressionQuality:=30;    //压缩率为low 30% 
      JPG.JPegNeeded; 
    //  jpg.pixelformat :=jf8bit;      //压缩格式为baseline 256色这句设了图片就存不了了:( 
      JPG.Compress; 
    //  if fileexists(jpgFile) then 
    //    if not (deletefile(jpgFile)) then exit; 
      JPG.SaveToFile(JpgFile); 
      BMP.Destroy; 
      JPG.Destroy; 
    end;
      

  3.   

    var 
      jpg: tjpegimage; 
      bmp: tbitmap; 
    begin 
      jpg:=tjpegimage.create; 
      bmp:=tbitmap.create; 
      try 
        jpg.loadfromfile('c:\test.jpg');   // 随便你用什么方法载入jpg文件 
        bmp.assign(jpg); 
        bmp.savetofile('c:\test.bmp');     // 保存为bmp 
      finally 
        bmp.free; 
        jpg.free; 
      end; 
    end;