متن=> عکس

[_abiriamir]

با سلام
چطوری میتونم محتوای یک ممو رو با پسوند jpg یا bmp ذخیره کنم؟

[tdkhakpur]

سلام
یک ممو دارای توابع یا پروسه ای نیست که این کار را برای شما انجام بدهد .
شما با استفاده از Handle ممو و توابع مرتبط با getpixel میتوانید خودتان اینکار را انجام دهید.

[سعید صابری]

يه مثال ساده برات ميزنم خودت زحمت كامل كردنش بكش



var
x:TBitmap;
begin
x:=TBitmap.Create;
x.Height:=100;
x.Width:=200;
x.Canvas.TextOut(20,20,memo1.Lines.Text);
Image1.Picture.Bitmap.Handle:=x.Handle;
Image1.Picture.SaveToFile('a.bmp');

[Felony]

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;

نحوه ی استفاده :

SaveControlImageToFile(Memo1,'D:\a.bmp');