Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Графика   Найти похожие ветки 

← →
S@M_vvv   (2002-12-08 02:05) [0]

Привет всем, помогите пож. с такой задачей:
нужно за короткое время(чем меньше тем лучше) "скопировать"
заданную область экрана к примеру в файл, и вывести обратно.
Я прбовал через API, но работает слишком долго...

---

← →
Danlicha ©   (2002-12-08 02:10) [1]

А зачем в файл и потом обратно? Не легче в память?

---

← →
S@M_vvv   (2002-12-08 02:32) [2]

Суть не в этом , как мне вобще получить данные с экрана ?

---

← →
Danlicha ©   (2002-12-08 02:43) [3]

Canvas.Handle := GetDC(0); // Если суёшь 0 - получаешь контекст всего экрана. Можно ещё GetDesktopWindow подсовывать. Ещё можно юзать GetDCEx, сможешь, например, запретить остальным рисовать на экране, пока ты этим занимаешься, что бы не попортили картинку. Потом нужно ReleaseDC вызвать, если не ошибаюсь в названии.

---

← →
mukha ©   (2002-12-08 09:05) [4]

Привожу пример маленького прикола. Содержимое экрана копируется, переворачивается и снова выводится на экран. Может понадобится.
unit Frm_ScrFlip;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DesktopCanvas, QuickPixel, StdCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
B: TBitmap;
Desktop: TDesktopCanvas;
QP: TQuickPixel;
X, Y: Integer;
EndCopyIndex: Integer;
Temp: TColor;
begin
Left:= 0;
Top:= 0;
Width:= Screen.Width;
Height:= Screen.Height;
B:= nil;
Desktop:= nil;
try
Desktop:= TDesktopCanvas.Create;
B:= TBitmap.Create;
B.Width:= Screen.Width;
B.Height:= Screen.Height;
B.Canvas.CopyRect(Rect(0, 0, B.Width, B.Height), Desktop, Rect(0, 0, B.Width, B.Height));
B.PixelFormat:= pf24bit;
QP:= TQuickPixel.Create(B);
try
for Y:= 0 to (QP.Height div 2)-1 do
begin
EndCopyIndex:= (QP.Height-1)-Y;
for X:= 0 to QP.Width-1 do
begin
Temp:= QP.Pixel[X, Y];
QP.Pixel[X, Y]:= QP.Pixel[X, EndCopyIndex];
QP.Pixel[X, EndCopyIndex]:= Temp;
end;
end;
finally
QP.Free;
end;
with Image1.Picture.Bitmap do
begin
Width:= Image1.Width;
Height:= Image1.Height;
Canvas.CopyRect(Rect(0, 0, Width, Height), B.Canvas, Rect(0, 0, Width, Height));
end;
finally
B.Free;
Desktop.Free;
end;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
Form1.WindowState:=wsMinimized;
Close;
end;

end.

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.026 c