Буфер обмена, FreePascal Опции

[Bokul]

Как скинуть в буфер обмена(Ctrl+C) текстовую информацию?

[virt]

volvo

а в fcl или lcl аналог есть? В fcl нашел только clipboard в gtk2 и под morphos.

[volvo]

а в fcl или lcl аналог есть?

Я предпочел воспользоваться функциями WinAPI...

uses windows, sysutils;

const
  size = 80 * 50;
var
  chiBuffer: string;
  hStdOut: THandle;

  rd: LongWord;
  buf: array[0 .. pred(size)] of char;


function GetConsoleWindow: THandle;
var
  S: AnsiString;
  C: Char;
begin
  Result := 0;
  Setlength(S, MAX_PATH + 1);
  if GetConsoleTitle(PChar(S), MAX_PATH) <> 0 then
  begin
    C := S[1];
    S[1] := '$';
    SetConsoleTitle(PChar(S));
    Result := FindWindow(nil, PChar(S));
    S[1] := C;
    SetConsoleTitle(PChar(S));
  end;
end;


procedure grabber();
var
  Data: THandle;
  DataPtr: Pointer;
  len: integer;

  crd: TCoord;
  i: integer;

begin
  crd.X := 0;
  crd.Y := 0;

  hStdout := GetStdHandle(STD_OUTPUT_HANDLE);
  ReadConsoleOutputCharacter(hStdout, buf, size, crd, rd);

  chiBuffer := '';
  for i := 0 to pred(rd) do begin

    chiBuffer := chiBuffer + buf[i];
    if succ(i) mod 80 = 0 then chiBuffer := chiBuffer + #13#10;

  end;

  if OpenClipboard(GetConsoleWindow) then
    try
      { opening clipboard succeeded... }
      len := Length(chiBuffer) + 1;
      Data := GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, len);
      try

        DataPtr := GlobalLock(Data);
        try
          Move(pchar(chiBuffer)^, DataPtr^, len);
          EmptyClipboard;
          SetClipboardData(CF_TEXT, Data);
        finally
          GlobalUnlock(Data);
        end;

      except
        GlobalFree(Data);
      end;

    finally
      CloseClipboard;
    end;

end;

var
  i: integer;

begin

  { Заполняем чем-то экран }
  for i := 1 to 10 do
    writeln('Wow !!! Wow !!! Wow !!! ', i);

  { и забираем его содержимое в буфер }
  grabber;

end.

Bokul,
Единственный недостаток программы (кстати, можно попробовать его избежать как - догадайся сам) - при копировании ВСЕ строки содержат по 80 символов, и если из них "нужных" - 10, то 70 остальных - пробелы...

Да... Еще кое-что... Надо бы добавить программное определение числа символов в строке, а то мало ли, может у кого-то 40 установлено, будет некорректно работать...

Сообщение отредактировано: volvo - 2.11.2006 19:49