如何把文字加到一个jpg或bmp图象中去，就象很多网站照片上加的网址(100分)

悠

悠闲

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #1

用于照片管理，每个照片上加字或日期，

 

V

varphone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #2

var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('...');
bmp.Canvas.Brush.Style := bsClear;
bmp.Canvas.TextOut(100,100, '2002-05-24');
bmp.SaveToFile('...');
end;
May be my code has something wrong, please alow me say sorry to you if that.

 

C

cozo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #3

用内存图像，和特TextOut可不可以呀？

 

L

li_zhifu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #4

用PhotoShop。

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #5

varphone的方法可以的

 

悠

悠闲

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #6

to varphone
不支持jpg呀，只能用bmp
照片是从数码相机里出来的，都可能是什么格式。
写进去的字就不能擦除了吧？

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #7

照片读取的时候可以转为bmp然后处理啊，

 

悠

悠闲

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #8

用控件还是手工？
有没有支持格式多些的控件

 

悠

悠闲

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #9

help me please

再加100分,ok?
jpg怎么处理加字？

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #10

转换两次就行了

1.jpg -> bmp，
写字
2.bmp -> jpg.
保存

 

悠

悠闲

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #11

这我也知道，怎么转换？

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #12

uses jpeg;

var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.Assign(jpg);
// 写字
jpg.Assign(bmp);
// 保存
bmp.Free;
end;

 

S

shangjintong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #13

http://www.CashRead.com/cgi-bin/page.cgi?r=shangjintong@ccsoft.com.cn
上面的网址可以赚美元，注册即可得到100$。并通过点击广告连接，继续赚美元。

 

B

bianlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #14

首先把图象加载到Image控件上
然后利用TextOut在Image控件的canvas上输出文字
保存图象即可

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #15

需要用Image控件，刷新的时候不会被刷掉。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1011276

 

悠

悠闲

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #16

多人接受答案了。