Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Не удаётся сохранить картинку   Найти похожие ветки 

 
Savek   (2012-06-09 14:31) [0]

Пишу небольшую утилиту, которая по таймеру должна проверять буфер обмена и при наличии там картинки сохранить её в файл. код простой

procedure TfrmGrab.Timer1Timer(Sender: TObject);
 begin
   if Clipboard.HasFormat(CF_BITMAP) or Clipboard.HasFormat(CF_PICTURE)
then begin
    Image2.Picture.Assign(Clipboard);
   JpegIm := TJpegImage.Create;
   JpegIm.Assign(Image2.Picture.Bitmap);
   JpegIm.SaveToFile(FotoPath+edit2.Text+".jpg");
   JpegIm.Destroy;
   Clipboard.Clear;
end;

если в буфере формат CF_BITMAP картинка появляется в Image2 и сохраняется в файл, если же CF_PICTURE в Image2 она появляется, но на выходе получаю файл 0 байт. Помогите разобраться.


 
Dimka Maslov ©   (2012-06-09 15:53) [1]

CF_PICTURE не является стандартным идентификатором формата данных в буфере обмена. Это исключительно дельфийская вещь, записывающая в в буфер обмена данные объектов класса TImage, который может содержать в себе не только битмапы, но и объекты других графических форматов, которые, в общем случае могут и не являться растровыми изображениями, которые могут быть сконевртированы в джипег


 
Savek   (2012-06-09 16:13) [2]

Это понятно.
картинка отображается в TImage, хотя TIMAGE.Picture.Bitmap пустой. Где-то она ведь есть? как её сохранить в файл?


 
Savek   (2012-06-09 16:16) [3]

В данном случае в буфер копируется рисунок из ячейки эксель


 
Давайте будем жрать!   (2012-06-09 19:56) [4]

Сохраняй в файл Picture, а не Picture.Bitmap.


 
Savek   (2012-06-11 17:29) [5]

на выходе нужен jpg, а в Picture может оказаться что-то другое, bmp, например


 
stas ©   (2012-06-11 19:50) [6]

а Compress не нужен разве?
  JpegIm.Assign(Image2.Picture.Bitmap);
  JpegIm.Compress;
  JpegIm.SaveToFile(FotoPath+edit2.Text+".jpg");


 
Savek   (2012-06-12 11:16) [7]


> а Compress не нужен разве?

нужен, не дошли руки пока.

Похоже битмап нужно самому отрисовывать, тогда всё работает

   JpegIm := TJpegImage.Create;
   bmp:=TBitmap.Create;
   bmp.Width:=Image2.Picture.Graphic.Width;
   bmp.Height:=Image2.Picture.Graphic.Height;
   bmp.Canvas.Draw(0,0,Image2.Picture.Graphic);

   JpegIm.Assign(bmp);
   Jpegim.CompressionQuality:=75;
   JpegIm.Compress;
   JpegIm.SaveToFile(FotoPath+edit2.Text+".jpg");
   JpegIm.Free;
   bmp.Free;



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.073 c
2-1334141822
Chuck Bass
2012-04-11 14:57
2013.03.22
framerect пунктиром


15-1347609677
Dmitry87
2012-09-14 12:01
2013.03.22
Запуск программы от имени текущего пользователя


1-1300595480
tButton
2011-03-20 07:31
2013.03.22
поворот точки вокруг вектора


15-1329199075
Думкин
2012-02-14 09:57
2013.03.22
Задчка с олимпиады недавней


2-1339314251
СветаНеМогуСделать
2012-06-10 11:44
2013.03.22
Массивы и символьные строки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский