procedure TfMainImRa.stvCamChange(Sender: TObject; Node: TTreeNode);
var
  sExt:									  String;

begin
	ievMain.Clear;
  ievMain.Update;

  //sExt will get correctly '.jpg' or '.cr2' 
	sExt := ievMain.IO.WIAParams.GetItemProperty(WIA_IPA_FILENAME_EXTENSION, TIEWiaItem(Node.Data));
	ievMain.IO.WiAParams.SaveTransferBufferAs := '';
  //it works fine in all cases
	ievMain.IO.WiaParams.GetItemThumbnail( TIEWiaItem(Node.Data), ievCam.IEBitmap );
	ievCam.Update;

  //load the image into ievMain to show it larger
	if (not sckbCamLoad.Checked) then begin
		ievMain.IO.WIAParams.ProcessingBitmap := ievMain.IEBitmap;
    //scbCamTransferFormat2 is a Combobox
		case scbCamTransferformat2.ItemIndex of
			0:	ievMain.IO.WIAParams.TransferFormat := ietfDefault;
			1:	ievMain.IO.WIAParams.TransferFormat := ietfBitmap;
			2:	ievMain.IO.WIAParams.TransferFormat := ietfJpeg;
			3:	begin
            		ievMain.IO.WIAParams.TransferFormat := ietfRawBitmap;
//OK but to small:					ievMain.IO.WiaParams.GetItemThumbnail( TIEWiaItem(Node.Data), ievMain.IEBitmap );
//NOT OK:					ievMain.IO.WIAParams.Transfer( TIEWiaItem(Node.Data) , false);
          end;
		end;
          
    //this dosn't work on cr2-files with all four transfer formats
		ievMain.IO.WIAParams.Transfer( TIEWiaItem(Node.Data) , false);
		ievMain.Update;

		if ievMain.IO.Params.EXIF_HasEXIFData then begin
			// fill EXIF samples frame
			with ievMain.IO.Params do begin
				slblCamExif1Value.Caption := String(EXIF_Make);
				slblCamExif2Value.Caption := String(EXIF_Model);
				slblCamExif3Value.Caption := String(EXIF_DateTime);
				slblCamExif4Value.Caption := IntToStr(EXIF_ExifImageWidth)+' x '+IntToStr(EXIF_ExifImageHeight);
			end;
		end
		else begin
                     //clear the labels here
		end;
	end;
end;

//Francesco Savastano: added custom format
  TIETransferFormat = (ietfDefault, ietfBitmap, ietfJpeg, ietfRawBitmap, ietfCustom);
// TIETransferFormat = (ietfDefault, ietfBitmap, ietfJpeg, ietfRawBitmap);

 case fTransferFormat of
    ietfBitmap:
      SetItemPropertyEx(WIA_IPA_FORMAT, IEConvertGUIDToString(@WiaImgFmt_MEMORYBMP), witem);
    ietfJpeg:
      SetItemPropertyEx(WIA_IPA_FORMAT, IEConvertGUIDToString(@WiaImgFmt_JPEG), witem);
   //francesco savastano
   ietfCustom:
      SetItemPropertyEx(WIA_IPA_FORMAT, IEConvertGUIDToString(@WiaImgFmt_UNDEFINED), witem);
    else
      SetItemPropertyEx(WIA_IPA_FORMAT, IEConvertGUIDToString(@WiaImgFmt_MEMORYBMP), witem);
  end;

var
mems:TMemorystream; //define a memory stream object

 //Francesco Savastano Start
  if (fTransferFormat = ietfCustom) and (fSaveTransferBufferAs = '') then
  begin
    raise Exception.Create('No Destination File defined for Custom format');
  end;


  if (fTransferFormat = ietfCustom) then  
  begin
  //here we load the all data inside the memory stream as it is
    mems := TMemoryStream.Create;
    try
    mems.SetSize(datalen);
    mems.seek(0,0);
    mems.WriteBuffer(data^, datalen);
    //then save it to file
    mems.SaveToFile(fSaveTransferBufferAs); 
    //I tested this for a jpeg and for a AVI
   //it worked perfectly saved also all the exif information of jpeg
   // it *should* work for any file CR2 or any format, even pdf
   //but needs testing
    result := true;
    finally
      mems.free;
    end;
    Exit;
  end;
  //Francesco Savastano End

//Francesco Savastano: added custom format
  TIETransferFormat = (ietfDefault, ietfBitmap, ietfJpeg, ietfRawBitmap, ietfCustom);
// TIETransferFormat = (ietfDefault, ietfBitmap, ietfJpeg, ietfRawBitmap);

if fSaveTransferBufferAs <> '' then
      begin
      case fTransferFormat of
        ietfDefault, ietfRawBitmap: ext := '.raw';
        ietfBitmap:                 ext := '.bmp';
        ietfJpeg:                   ext := '.jpg';
        //Francesco Savastano: added custom saving
        ietfCustom:                 ext := extractfileext(fSaveTransferBufferAs);
      end;
      iemem.SaveToFile(ChangeFileExt(fSaveTransferBufferAs, ext));
    end;