怎样在图像上输入文本，并把文本合成到图像相对位置，再输出图像？

[Pasp]

jpg，bmp都可，主要是思路！

[luhongjun]

Graphics::TBitmap *bmp =new Graphics::TBitmap();
bmp->Assign((TPersistent*)Image1->Picture->Graphic);
bmp->Canvas->TextOut(WordX,WordY,WordText.c_str());
delete bmp

[shally5]

void __fastcall TForm1::ToolButton4Click(TObject *Sender)
{
Image1->Canvas->TextOutA(10,10,"我的文字");
ImagePrint(); //打印图像
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImagePrint()
{
TPrinter *pPrinter=Printer();
//TRect MyRect;
//MyRect(
//pPrinter->Canvas->Font->PixelsPerInch=GetDeviceCaps(Handle,LOGPIXELSY);
////// int AnInch=pPrinter->Canvas->Font->PixelsPerInch;
pPrinter->BeginDoc();
//pPrinter->Canvas->Draw(AnInch/2,AnInch/2,Image1->Picture->Graphic);
pPrinter->Canvas->StretchDraw(TRect(0,0,pPrinter->PageWidth,pPrinter->PageHeight),Image1->Picture->Graphic);
pPrinter->EndDoc();
}

[Pasp]

如何输出呢？如果是GIF怎么办？

[wjzhuang]

image 控件不支持gif
你要安装第三方控件
输出?
指的是什么,打印,存盘......

[8080]

把它们叠到一块

抓下整个屏幕

砍下没用的东西

打印图像

@_@

[Xhunter]

呵呵，Pasp该结贴的。

[Pasp]

存为图像文件

[luhongjun]

接上：
bmp->SaveToFile("c:\\oneeye.bmp");

[Pasp]

能存为jpg码？

[Babylon5]

利用TImage的Canvas属性，例如

Img.Canvas.Font.Name := '宋体';
Img.Canvas.Font.Size := 16;
Img.Canvas.Font.Color := clBlue;
Img.Canvas.Brush.Style := ( bsClear );
Img.Canvas.TextOut( 5, 220, am );
Img.Canvas.TextOut( 180, 200, FormatDateTime( 'yy-mm-dd', pTime ) );