求助：用Delphi在指定图片上插入汉字,怎样实现？？

[klyh]

我想用Delphi5做一套图片编辑器，主要是对图片进行操作，然后保存图片，用什么样的控件，最好能给出一个例子！！不胜感激！！分不够再加！！！

[pankun]

如果只是要实现在图片上插入汉字,用TPicture就可以了.加载了图形后.要插入字用Pitcture.Canvas.TextOut(X, Y, '要插入的字')就可以了

[codehunter008]

光用控件是不够的，你需要用流来处理你的图片！

个人认为，Image够了

[klyh]

以上两位大哥，能不能给出一段代码！！谢谢了

[pankun]

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.LoadFromFile('d:\4.bmp');
SetBkMode(Image1.Canvas.Handle, TRANSPARENT);
Image1.Canvas.TextOut(10, 10, 'Hello');
Image1.Picture.Bitmap.SaveToFile('d:\4.bmp');
end;

[whitetiger8]

如果只是要实现在图片上插入汉字,用TPicture就可以了.加载了图形后.要插入字用Pitcture.Canvas.TextOut(X, Y, '要插入的字')就可以了


用Timage组件就能做非常多的处理

[pankun]

一个JPEG转BMP的例子
记得引用JPEG单元.

var
Tmp: TJPEGImage;
Tmp2: TBitmap;
begin
Tmp := TJPEGImage.Create;
Tmp.LoadFromFile('C:\Documents and Settings\Administrator\My Documents\200392812593985400.jpg');
Tmp2 := TBitmap.Create;
Tmp2.Assign(Tmp);
Tmp2.SaveToFile('d:\a.bmp');
Tmp.Free;
Tmp2.Free;
end;