验证过的procedure TForm1.BitBtn3Click(Sender: TObject);
var
ms:Tmemorystream;
MyBmp:TBitmap;
begin
ms:=Tmemorystream.Create;
MyBmp:=TBitmap.Create;
MyBmp.Height := 100;
MyBmp.Width :=100;
MyBmp.Canvas.Font.Size :=12;
MyBmp.Canvas.TextOut(40,10,'title');
MyBmp.Canvas.Font.Size :=7 ;
MyBmp.Canvas.TextOut(10,40,'11111111');
MyBmp.Canvas.TextOut(10,60,'22222222');
MyBmp.SaveToFile('e:\1\1.bmp');
MyBmp.SaveToStream(ms);
ms.SaveToFile( 'e:\1\2.bmp'); MyBmp.Free;
Ms.Free;end;
var
ms:Tmemorystream;
MyBmp:TBitmap;
begin
ms:=Tmemorystream.Create;
MyBmp:=TBitmap.Create;
MyBmp.Height := 100;
MyBmp.Width :=100;
MyBmp.Canvas.Font.Size :=12;
MyBmp.Canvas.TextOut(40,10,'title');
MyBmp.Canvas.Font.Size :=7 ;
MyBmp.Canvas.TextOut(10,40,'11111111');
MyBmp.Canvas.TextOut(10,60,'22222222');
MyBmp.SaveToFile('e:\1\1.bmp');
MyBmp.SaveToStream(ms);
ms.SaveToFile( 'e:\1\2.bmp'); MyBmp.Free;
Ms.Free;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货