як роздрукувати
Як роздрукувати * .jpg файл
пишу
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;
а мені видає порожній листочок. З завантаженням файлу все нормаль, тому що виводив на конвой форми і малюнок відображався. Де я тут схибив, підкажіть.
Що невже ніхто не знає, ну може вибачте, що питання тут ламерскіе задаю. Але ж не працює. Все те ж саме з Bitmap проходить відмінно, але через те, що Bitmap має великий розмір, а значить і в принтер довше вантажиться я вирішив перейти на JpegImage. Але тут якась фігня виходить.
А чим тобі Jpeg не підходить?
2Song
а при чому тут ShellExecute (), мені ж потрібно при натисканні кнопки
вивести на друк * .jpg файл? А ShellExecute () по-моєму дозволяє запустити який-небудь додаток.
2Vazist
а при чому тут ти взагалі.
Люди добрі, ну допоможіть, плз.
ShellExecute може і відкривати і шукати і друк і "Експлора". Хелп Вам в руки.
У мене є подібний приклад, але, на жаль мені потрібно зараз йти. Якщо Вам це потрібно, скиньте мені на mail і я пришлю Вам завтра приклад
Пам'ять: 0.72 MB
Час: 0.039 c