jpg resim copy işlemi

[forumsad]

bu kodu web den buldum ama jpg resimle çalışmıyor
nasıl yaparız acaba ???

teşekkürler

Kod: Tümünü seç

procedure TForm1.CopyClick(Sender: TObject);
var
  DstRect, SrcRect: TRect;
begin
  with Image2.Canvas do
  begin
    jpg:=TJPEGImage.Create;
    CopyMode := cmSrcCopy;
    DstRect := Rect(0, 0, 200, 200);
    SrcRect := Rect(0, 0, 200, 200);
    CopyRect(DstRect, Image1.Canvas, SrcRect);

  end;
end;

[mkysoft]

uses kısmına jpeg yada jpg eklemeyi deneyin.

[forumsad]

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
ekli