Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.06.21;
Скачать: CL | DM;

Вниз

Содержимое буфера в поток   Найти похожие ветки 

 
95   (2009-05-04 14:06) [0]

нашел код сохранения содержимого буфера в поток, если в буфере хранится текст - все выводится без проблем, когда картинка - создается пустой файл? Этот код разве не применим для сохранения картинок?


 
Palladin ©   (2009-05-04 14:10) [1]

прикинь, я тоже нашел код. он применим.


 
Сергей М. ©   (2009-05-04 14:11) [2]


> Этот код


Этот не применим, а вот тот применим


 
95   (2009-05-04 14:14) [3]

блин забыл добавить


procedure SaveClipboardToStream(Format: Word; Stream: TStream);
 var
   Buffer: Pointer;
   Data: THandle;
   Size: Longint;
 begin
   Clipboard.Open;
   try
     Data := GetClipboardData(Format);
     if Data = 0 then
       Exit;
     Buffer := GlobalLock(Data);
     try
       // (rom) added handling of Format and Size!
       Size := GlobalSize(Data);
       Stream.Write(Format, SizeOf(Word));
       Stream.Write(Size, SizeOf(Longint));
       ShowMessage(IntToStr(Size));
       Stream.Write(Buffer^, Size);
     finally
       GlobalUnlock(Data);
     end;
   finally
     Clipboard.Close;
   end;
 end;


 
Сергей М. ©   (2009-05-04 14:19) [4]


> блин забыл добавить


Блин добавляй на блины.ру


> когда картинка


В параметре Format, наверно, так и передается CF_КАРТИНКА ?)


 
95   (2009-05-04 14:20) [5]


var
 fs: TFileStream;
begin
 fs := TFileStream.Create("d:\2.jpg", fmCreate);
 SaveClipboardToStream(CF_BITMAP, fs);
 fs.Free;


 
Сергей М. ©   (2009-05-04 14:24) [6]

Пустой файл означает только одно:

Data = 0


 
95   (2009-05-04 14:31) [7]


> Data = 0


Проверял отладчиком при выполнении Data <> 0, а вот Size почему-то равен 0.


 
Сергей М. ©   (2009-05-04 14:45) [8]

А где вызов OpenClipboard() ?


 
95   (2009-05-04 14:53) [9]


> А где вызов OpenClipboard() ?


Так ведь Clipboard открывается внутри процедуры в которую я передаю созданный stream?


 
Сергей М. ©   (2009-05-04 15:00) [10]

Угу .. вижу ..


> Size почему-то равен 0.


Справку почему бы не проштудировать ?

Return Value

If the function succeeds, the return value is the size of the specified global memory object, in bytes.

If the specified handle is not valid or if the object has been discarded, the return value is zero. To get extended error information, call GetLastError.


 
95   (2009-05-04 15:07) [11]

Странно, процедуру взял из JVCL библиотеки, а она не работает. Кстати с текстом все OK...


 
clickmaker ©   (2009-05-04 15:13) [12]

> fs := TFileStream.Create("d:\2.jpg", fmCreate);
> SaveClipboardToStream(CF_BITMAP, fs);

не в этом ли грабли?


 
95   (2009-05-04 15:15) [13]

Все кажется допер почему возвращает 0, изображения то я копирую в буфер в браузере. Може поэтому?


 
Palladin ©   (2009-05-04 15:16) [14]

)


 
Palladin ©   (2009-05-04 15:18) [15]

http://delphimaster.net/view/1-1229944689/
исследуй, чего у тебя на самом деле в буфере


 
Сергей М. ©   (2009-05-04 16:26) [16]


> допер


Не надо "допирать")
Следует просто проанализировать код отказа ф-ции GlobalSize, коль скоро она у тебя возвращает 0.


 
clickmaker ©   (2009-05-04 16:54) [17]

и вообще, причем тут GlobalSize, если там сидит HBITMAP?



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

Текущий архив: 2009.06.21;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.014 c
2-1241444864
fog
2009-05-04 17:47
2009.06.21
ADO. Создание таблицы из шаблона


2-1240937555
Андрей (начинающий)
2009-04-28 20:52
2009.06.21
как заставить мигать иконку


2-1241196392
Александр7
2009-05-01 20:46
2009.06.21
Как присвоить адрес файла переменной


9-1179168683
Pa5ha
2007-05-14 22:51
2009.06.21
Джойстик


11-1201782909
Elec3C
2008-01-31 15:35
2009.06.21
А баг всё равно есть