как файл из ТХТ преобразовать в JPEG ?

← →
dmitriyML © (2002-08-19 09:00) [0]

как файл из формата ТХТ преобразовать в JPEG ?

← →
MBo © (2002-08-19 09:00) [1]

????????

← →
Reindeer Moss Eater (2002-08-19 09:03) [2]

Открой TXT в блокноте, скопируй экран в буфер, вставь во что -нибудь, например в FotoEditor, сохрани как JPG.

← →
dmitriyML © (2002-08-19 09:11) [3]

а программно?

← →
Reindeer Moss Eater (2002-08-19 09:20) [4]

Точно так же, только вместо граф. редактора используй TJpegImage

← →
lenin © (2002-08-19 09:28) [5]

procedure TForm1.Button1Click(Sender: TObject);
var bm: TBitmap;
jp: TJPEGImage;
stl: TStringList;
i,py: integer;
begin
stl:=TStringList.Create;
stl.LoadFromFile("text.txt");
bm:=TBitmap.Create;
bm.Width:=0;
bm.Height:=0;
for i:=0 to stl.Count-1 do
begin
py:=bm.Height;
bm.Height:=py+bm.Canvas.TextHeight(stl[i]);
bm.Width:=max(bm.Width,bm.Canvas.TextWidth(stl[i]));
bm.Canvas.TextOut(0,py,stl[i]);
end;
jp:=TJPEGImage.Create;
jp.Assign(bm);
jp.SaveToFile("d:\ddd.jpg");
end;

а для чего те это?
я так подозреваю для шифрации?

Вем Спаибо ЗА ПОМОЩЬ! Прог-ма работает!

как файл из ТХТ преобразовать в JPEG ? Найти похожие ветки