VPF::буфер -> stream - Форум программистов

NieL

Дата 4.5.2009, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

В буфере хранится изображение, необходимо сохранить его в Stream и из Stream в файл. Что-то делаю не так и сохраняется пустое изображения. Где я ошибаюсь?

Код


procedure TForm1.Button1Click(Sender: TObject);

  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));
        Stream.Write(Buffer^, Size);
      finally
        GlobalUnlock(Data);
      end;
    finally
      Clipboard.Close;
    end;
  end;

var
  s: TStream;
  B: TBitmap;
begin
  s := TMemoryStream.Create;
  SaveClipboardToStream(CF_BITMAP, s);

  b := TBitmap.Create;
  B.LoadFromStream(s);
  b.SaveToFile('d:\2.jpg');
  b.Free;
  s.Free;
end;

Лапоть

Дата 4.5.2009, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 3.4.2009

Репутация: нет
Всего: 2

Код


  b := TBitmap.Create;
  s.Position := 0; // !!!!!!!!!!!!!!!!
  B.LoadFromStream(s);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »