Как распечатать *.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
а при чем тут ты вообще...
Люди добрые, ну помогите, плз.

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

> Song ©

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

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

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