ویرایش تصاویر و اضافه کردن متن

[mahdi939]

با سلام

من می خواهم به یک فایل تصویری متن اضافه نمایم و سپس به صورت یک فایل تصویری قابل ذخیره باشد در ضمن اگر ممکن است دستورات مربوطه را برایم به پاسخ اضافه نمائید .

باکمال تشکر

[vcldeveloper]

var
FileName : string;
Bitmap : TBitmap;
begin
FileName := 'c:\MyImage.bmp';
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(FileName);
//Draw text on the image
Bitmap.Canvas.TextOut(10,10,'Your Text');
Bitmap.SaveToFile(FileName);
finally
Bitmap.Free;
end;
end;

[mahdi939]

با تشکر از راهنمائی شما

آیا می توان در فایلهایی با فرمت jpg نیز این تغییرات را اعمال نمود .

از شما سپاس گذارم .

[vcldeveloper]

آیا می توان در فایلهایی با فرمت jpg نیز این تغییرات را اعمال نمود .



uses JPEG;

procedure TForm1.Button1Click(Sender: TObject);
var
FileName : string;
JPG : TJPEGImage;
Bitmap : TBitmap;
begin
FileName := 'g:\MyImage.jpg';

JPG := TJPEGImage.Create;
Bitmap := TBitmap.Create;
try
//Load image
JPG.LoadFromFile(FileName);
Bitmap.Assign(JPG);
//Draw text on the image
Bitmap.Canvas.TextOut(10,10,'Your Text');
//Save image
JPG.Assign(Bitmap);
JPG.SaveToFile(FileName);
finally
Bitmap.Free;
JPG.Free;
end;
end;

[mahdi939]

با تشکر از آقای کشاورز عزیز

آقای کشاورز در تصاویر بعد از اضافه کردن متن به اندازه متن اضافه شده حالت Transparente از بین رفته و سفید میگردد یعنی تصویر در آن قسمت تصویر سفید می شود . من از خاصیت transparente Tbitmap نیز اسفاده کردم ولی باز هم آن قسمت از تصویر که متن به آن اضافه می شود پس زمینه آن سفید می شود .

لطفا در صورت امکان راهنمائی فرمائید

باتشکر

[Naficy]

قبل از نوشتن متن توسط تابع TextOut، این خط را بنویسید:

Bitmap.canvas.brush.style := bsClear;

[mahdi939]

تشکر از دوستانی که دراین تاپیک من را راهنمائی کردند