گرفتن عکس از کلید و ذخیره ی آن

[Felony]

:متفکر:آقا من میخوام یک کلید تو برنامه داشته باشم که کاربر Caption اون رو بتونه تغییر بده و بعد از این کار بتونه عکس کلید رو ذخیره کنه البته همراه با کپشنش.

:چشمک:برنامه ی زیر رو که پیوست کردم ببینید منظورم رو میفهمید میخوام یه چیز شبیه این بنویسم.

:قلب:ممنون

[B_YAGHOBI]

اين تابع را داشته باش :



uses Jpeg;

procedure SaveControlImageToFile(AControl : TWinControl; AFileName : string; UseJpegFormat : boolean = true);
Var Canvas : TCanvas; Bmp : TBitmap; Jpg : TJpegImage ;
Begin
try
Canvas := TCanvas.Create;
Canvas.Handle := GetDc(AControl.Handle);
Bmp := TBitmap.Create;
Bmp.Width := AControl.Width;
Bmp.Height := AControl.Height;
bmp.PixelFormat :=pf24bit;
Bmp.Canvas.CopyRect(Canvas.ClipRect, Canvas, Canvas.ClipRect);
if UseJpegFormat then
begin
Jpg := TJpegImage.Create;
jpg.PixelFormat := jf24bit;
Jpg.Assign(Bmp);
Jpg.SaveToFile(ChangeFileExt(AFileName,'.jpg'));
end
Else
Bmp.SaveToFile(ChangeFileExt(AFileName,'.bmp'));
finally
ReleaseDC(AControl.Handle, Canvas.Handle);
FreeAndNil(Bmp);
if UseJpegFormat then
FreeAndNil(Jpg);
FreeAndNil(Canvas);
end;
end;



مثال :

procedure TForm6.Button2Click(Sender: TObject);
begin
SaveControlImageToFile( Button1, 'D:\Button1.jpg' ) ;
end;

[Felony]

ممنون فقط من درست حسابی از این سورس سر در نیاوردم کسی نیست یه نمونه داشته باشه ؟

[B_YAGHOBI]

يك فانكشن نوشته شده بنام SaveControlImageToFile كه كنترلي كي ميخواهيد از آن عكس بگيريد

و همچنين نام فايلي كه ميخواهيد در آن عكس ذخيره شود را ميگيريد و آنرا آيجاد ميكند :



SaveControlImageToFile( Button1, 'D:\Button1.jpg' ) ;

[mohsen_r]

اين تابع را داشته باش :



uses Jpeg;

procedure SaveControlImageToFile(AControl : TWinControl; AFileName : string; UseJpegFormat : boolean = true);
Var Canvas : TCanvas; Bmp : TBitmap; Jpg : TJpegImage ;
Begin
try
Canvas := TCanvas.Create;
Canvas.Handle := GetDc(AControl.Handle);
Bmp := TBitmap.Create;
Bmp.Width := AControl.Width;
Bmp.Height := AControl.Height;
bmp.PixelFormat :=pf24bit;
Bmp.Canvas.CopyRect(Canvas.ClipRect, Canvas, Canvas.ClipRect);
if UseJpegFormat then
begin
Jpg := TJpegImage.Create;
jpg.PixelFormat := jf24bit;
Jpg.Assign(Bmp);
Jpg.SaveToFile(ChangeFileExt(AFileName,'.jpg'));
end
Else
Bmp.SaveToFile(ChangeFileExt(AFileName,'.bmp'));
finally
ReleaseDC(AControl.Handle, Canvas.Handle);
FreeAndNil(Bmp);
if UseJpegFormat then
FreeAndNil(Jpg);
FreeAndNil(Canvas);
end;
end;



مثال :

procedure TForm6.Button2Click(Sender: TObject);
begin
SaveControlImageToFile( Button1, 'D:\Button1.jpg' ) ;
end;

با تشكر آيا امكان اين هست كه از يك ديتابيس اطلاعات خونده شه و فيلدي كه از نوع عكس مي باشد به همين روش ذخيره گردد