Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как ;файл из ТХТ преобразовать в JPEG ? [D6, Win2k]

dmitriyML © (2002-08-19 09:00:00)
как файл из формата ТХТ преобразовать в JPEG ?

dmitriyML (2002-08-19 10:36:00) [1]
Вем Спаибо ЗА ПОМОЩЬ! Прог-ма работает!

RV (2002-08-19 10:17:00) [2]
а для чего те это?
я так подозреваю для шифрации?

lenin (2002-08-19 09:28:00) [3]
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;

Reindeer Moss Eater (2002-08-19 09:20:00) [4]
Точно так же, только вместо граф. редактора используй TJpegImage

dmitriyML (2002-08-19 09:11:00) [5]
а программно?

Reindeer Moss Eater (2002-08-19 09:03:00) [6]
Открой TXT в блокноте, скопируй экран в буфер, вставь во что -нибудь, например в FotoEditor, сохрани как JPG.

MBo (2002-08-19 09:00:00) [7]
????????

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »