Delphi 在图片上编辑文字

JmLei

于 2009-06-25 17:10:00 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi string

本文链接：https://blog.youkuaiyun.com/jmlei/article/details/4298269

Delphi 专栏收录该内容

33 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的图片处理程序，该程序能够加载图片、在其上叠加文本并保存修改后的图片。首先禁用按钮以防止重复操作，接着通过对话框选择图片文件。选定图片后，程序会在图片左上角位置叠加蓝色字体的“DavidZhao”字样，并调整JPEG格式图片的压缩质量为80%，最后将处理过的图片另存为新的文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button1Click(Sender: TObject); begin Tbutton(sender).Enabled := false; if OpenPictureDialog1.Execute then begin DrawRect(OpenPictureDialog1.FileName) end; Tbutton(sender).Enabled := true; end; procedure TForm1.DrawRect(PicFile: string); //传进去的是一张图片的路径，包含文件名 var FBMP: TBitmap; jpeg: TJpegImage; TempMs: TmemoryStream; begin TempMs := nil; FBMP := nil; jpeg := nil; try FBMP := TBitmap.Create; jpeg := TJpegImage.Create; TempMs := TmemoryStream.Create; jpeg.LoadFromFile(PicFile); fbmp.Assign(jpeg); // fbmp.Canvas.Brush.Style := bsSolid; // fbmp.Canvas.Brush.Color := clBlack; // for I := 0 to 7 do //因为最多可以画八个黑色的区域 // if (Points[I, 0].X <> 0) and (Points[I, 0].Y <> 0) and (Points[I, 1].X <> 0) and (Points[I, 1].Y <> 0) then // FBMP.Canvas.FillRect(Rect(Points[I, 0].X, Points[I, 0].Y, Points[I, 1].X, Points[I, 1].Y)); fbmp.Canvas.Font.Color := clBlue; fbmp.Canvas.Font.Name := 'Comic Sans MS'; fbmp.Canvas.Font.Size := 22; fbmp.Canvas.TextOut(10, 10, 'David Zhao'); with jpeg do begin Assign(fbmp); CompressionQuality := 80; //压缩比例 Compress; SaveToFile(PicFile + '_2.jpg'); //保存路径…… end; finally TempMs.Free; FBMP.Free; jpeg.Free; end; end;