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

Как распечатать *.jpg файл   Найти похожие ветки 

← →
Weare ©   (2002-10-24 14:34) [0]

Пишу

procedure TForm1.Button1Click(Sender: TObject);
var Jpg: TJpegImage;
begin
Jpg:= TJpegImage.Create;
try
Jpg.LoadFromFile("konvert.jpg");
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Rect(0,0,200,200),Jpg);
Printer.EndDoc;
finally
Jpg.Free;
end;
end;

а мне выдает пустой листик. С загрузкой файла все нормаль, т.к. выводил на конву формы и рисунок отображался. Где я здесь оплошал, подскажите.

---

← →
Weare ©   (2002-10-24 14:59) [1]

Что неужели никто не знает, ну может извините, что вопросы тут ламерские задаю. Но ведь не работает. Все тоже самое с Bitmap проходит отлично, но из-за того,что Bitmap имеет большой размер, а значит и в принтер дольше грузится я решил перейти на JpegImage. Но тут какая-то фигня получается.

---

← →
VazIst   (2002-10-24 15:01) [2]

А чем тебе Jpeg не подходит?

---

← →
Song ©   (2002-10-24 15:32) [3]

ShellExecute()

---

← →
VazIst   (2002-10-24 16:36) [4]

2Song
а при чем тут ShellExecute(), мне ведь нужно при нажатии кнопки
вывести на печать *.jpg файл? А ShellExecute() по-моему позволяет запустить какое-либо приложение.

---

← →
Weare ©   (2002-10-24 16:39) [5]

2Vazist
а при чем тут ты вообще...
Люди добрые, ну помогите, плз.

---

← →
Song ©   (2002-10-24 16:50) [6]

ShellExecute может и открывать и искать и печать и "эксплорить"... Хэлп Вам в руки.

---

← →
Weare ©   (2002-10-24 16:57) [7]

> Song ©

Спасибо за подсказку. Слушай,можешь поподробнее - как мне распечатать с помощью ShellExecute файл формата jpeg, но уместить его в определленых рамках (Rect). Что-то по этому поводу я в хэлпе ничего не могу найти.

---

← →
BOA_KAA ©   (2002-10-24 17:37) [8]

У меня есть подобный пример, но, к сожаленью мне нужно сейчас уходить. Если Вам это нужно, скиньте мне на mail и я пришлю Вам завтра пример

---

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

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



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