Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > проблемы с Paste из буфера обмена

Автор: NieL 30.4.2009, 14:37

В броузере копирую файл изображения в буфер (правая кнопка мыши/копировать рисунок в буфер обмена). При вставке из Clipboard в свою программу бывает что в некоторых углах изображения появляются черные пиксели. Кто с таким сталкивался или знает как такого избежать дайте совет. Вот код вставки изображения из буфера:

Есть догадки что проблема в методе Assign.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  B: TBitmap;
begin
  B := TBitmap.Create;
  try
    Clipboard.Open;
    try
      B.Assign(Clipboard);
      Image1.Picture.Bitmap.Assign(B);
    finally
      Clipboard.Close;
    end;
  finally
    B.Free;
  end;
end;

Автор: Christoph 30.4.2009, 18:28

Код


uses clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Clipboard.HasFormat(CF_BITMAP) then
     Image1.Picture.LoadFromClipboardFormat(cf_BitMap,clipboard.GetAsHandle(cf_Bitmap),0);
end;

Хотя тоже таким способом замечаю, какие то черные квадратики, не знаю ...