Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Копирование большого файла в буфер обмена

Delphi , ОС и Железо , Буфер обмена

Копирование большого файла в буфер обмена

Автор: Peter Below

У женщины-программистки есть три пути сделать себе карьеру: два спереди и один сзади!

Вот общее решение, которое будет работать, даже если у вас размер файла превышает 64Кб:


function _hread(FileHandle: word; BufPtr: pointer;
  ByteCount: longint): longint; far;
  external 'KERNEL' index 349;

procedure CopyFileToClipboard(const fname: string);
var
  hmem, hFile: THandle;
  size: LongInt;
  p: Pointer;
begin
  hFile := FileOpen(fname, fmOpenRead);
  try
    size := FileSeek(hFile, 0, 2);
    FileSeek(hfile, 0, 0);
    if size > 0 then
    begin
      hmem := GlobalAlloc(GHND, size);
      if hMem <> 0 then
      begin
        p := GlobalLock(hMem);
        if p <> nil then
        begin
          _hread(hFile, p, size);
          GlobalUnlock(hMem);
          Clipboard.SetAsHandle(CF_TEXT, hMem);
        end
        else
          GlobalFree(hMem);
      end;
    end;
  finally
    FileClose(hFile);
  end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  fname: string[128];
begin
  if OpenDialog1.Execute then
  begin
    fname := OpenDialog1.Filename;
    CopyFileToClipboard(fname);
  end;
end;

Статья Копирование большого файла в буфер обмена раздела ОС и Железо Буфер обмена может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Буфер обмена ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
26.06.2022 16:48:31/0.00058984756469727/0