如何能把文本转换为GIF文件?

时间:2024-03-06 11:29:54
    在你的窗体中添加一个Timage和一个Button,Button用于调用过程,此过程把文本和gif文件的名字作为参数。
procedure TxtToGif(txt, FileName: String); 
var 
    temp: TBitmap; 
    GIF : TGIFImage; 
begin 
  temp:=TBitmap.Create; 
  try 
    temp.Height     :=400; 
    temp.Width      :=60; 
    temp.Transparent:=True; 
    temp.Canvas.Brush.Color:=colFondo.ColorValue; 
    temp.Canvas.Font.Name:=Fuente.FontName; 
    temp.Canvas.Font.Color:=colFuente.ColorValue; 
    temp.Canvas.TextOut (10,10,txt); 
    Imagen.Picture.Assign(nil); 

    GIF := TGIFImage.Create; 
    try 
      // 转换位图为GIF 
      GIF.Assign(Temp); 
      // 保存GIF 
      GIF.SaveToFile(FileName); 
      // 显示GIF 
      Imagen.Picture.Assign (GIF); 
    finally 
      GIF.Free; 
    end; 
  Finally 
    temp.Destroy; 
  End; 
end;
    如果你不想在你的窗体中显示图片,除去Timage和有关的代码。