Советы по Delphi


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


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

function _hread(FileHandle:word; BufPtr:pointer;
ByteCount:longint):longint; far;external 'KERNEL' index 349;
Procedure CopyFileToClipboard( Const fname: String );
Varhmem, hFile : THandle;size : LongInt;p : Pointer;BeginhFile := FileOpen( fname, fmOpenRead );trysize := FileSeek( hFile, 0, 2 );FileSeek( hfile, 0, 0 );If size > 0 Then Beginhmem := GlobalAlloc( GHND, size );If hMem <> 0 Then Beginp := GlobalLock( hMem );If p <> Nil Then Begin_hread( hFile, p, size );GlobalUnlock( hMem );Clipboard.SetAsHandle( CF_TEXT, hMem );EndElseGlobalFree( hMem );End;End;finallyFileClose( hFile );end;End;
procedure TForm1.SpeedButton2Click(Sender: TObject);
Var
fname: String[128];begin
If
OpenDialog1.Execute Then Beginfname := OpenDialog1.Filename;CopyFileToClipboard( fname );End;end;

- Peter Below [000799]




Начало  Назад  Вперед



Книжный магазин