Скачать: CL | DM;

как файл из ТХТ преобразовать в 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;

---

← →
RV ©   (2002-08-19 10:17) [6]

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

---

← →
dmitriyML ©   (2002-08-19 10:36) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c