JPEG og Canvas

Gem det som bmp! :)

Det skal jo være JPEG  det hele jo =]

Forresten så kan du revidere din kode lidt...

Du kan skrive DateTimeToStr(Now); i stedet for DateToStr(Date) +' - '+TimeToStr(Time).

Samtidig behøver du heller ikke at skrive if CheckBox3.Checked = True then. Blot if CheckBox.Checked then ;)

Jeg kigger lige på jpg-canvas-tegning! ;)

Okay :)

I første omgang så prøv denne her:
http://www.torry.net/vcl/graphics/jpg/jpgimg.zip

Fedt nok :)

Den virker sgu godt!!! :)

Her er et eksempel:

uses
  JpgImg;

procedure TForm1.Button1Click(Sender: TObject);
var
  jog: TJPEGImage;
begin
  jog := TJPEGImage.Create(Self);
  jog.Parent := Self;
  jog.Left := 10;
  jog.Top := 10;
  jog.AutoSize := True;
  jog.LoadFromFile('C:\Dokumenter\Privat\download.jpg');
  jog.Canvas.TextOut(0, 100, 'Maaaaaaf!!! + ['+DateTimeToStr(Now)+']');
end;

Godt nok. Nu skal jeg bare ha http://borrisholt.com/Grapichs/DelphiSource/ScreenCapture2.zip til at samarebejde med JpegImage.

Vil gerne gi' flere points.

Jeg ser lige på den... Har ikke kigget på det eksempel i lang tid!!! ;)

Jeg er ikke helt med... Hvad mener du med at de skal sammenarbejde?

Jeg skal tage et screenshot med den og så skal jeg overføre den til TJPEGImage!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    JPEGImage : JpgImg.TJPEGImage;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
  JPEG;

function ScreenCapture:TBitmap;
// this function captures the screen
var
  ScreenDC: HDC;
ARect:TRect;
begin
  Result := TBitmap.Create;
  ARect := Rect(0,0,Screen.Width,Screen.Height);
  Result.Width := ARect.Right - ARect.Left;
  Result.Height := ARect.Bottom - ARect.Top;
  ScreenDC := GetDC( 0 );
  try
    BitBlt( Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, ARect.Left, ARect.Top, SRCCOPY );
  finally
    ReleaseDC( 0, ScreenDC );
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  tmp : TBitmap;
begin
  tmp := ScreenCapture();
  Image1.Picture.Assign(tmp);
  tmp.Destroy;
end;

//You might also want to use this procedure, because the bmp is normally pretty huge
//this converts the a Bitmap to a JPEG image

procedure TForm1.Button2Click(Sender: TObject);
begin
  JPEGImage := JpgImg.TJPEGImage.Create(Self);
  with JPEGImage do
  begin
    Parent := Self;
    Top := Image1.Height;
    Left := 0;
    Height := 100;
    Width := 100;
    Canvas.Draw(0,0, ScreenCapture);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  JPEGImage.Free;
end;

end.


Ka' det gå? :)

//hermandsen

hermandsen ... du er gud

Jamen selv tak da! ;)

Hej!

Jeg fik dette link af Hermandsen, og så vile jeg gerne spørge sfredsted om, jeg må få/købe/hente hans program JpegImage. Må jeg det? (For at gøre det perfekt :])

XpX

nej den er "JPEG error #42" :S