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

← →
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, изображения то я копирую в буфер в браузере. Може поэтому?

)

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

> допер

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

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

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