Конвертация BMP в PDF

← →
samalex (2008-01-23 11:27) [0]

Уважаемые знатоки!!!
Как в Delphi сконвертировать изображение BMP в PDF?
Заранее благодарен ...
Работаю в D6.

← →
homm © (2008-01-23 11:28) [1]

> [0] samalex (23.01.08 11:27)
> Уважаемые знатоки!!!

Мы берем дополнительную минуту! :)

← →
Palladin © (2008-01-23 11:31) [2]

Вот сколько здесь живу - всегда интересно было, где"ж они такое слово нашли на сайте...

← →
Style © (2008-01-23 12:19) [3]

> Как в Delphi сконвертировать изображение BMP в PDF?

А смысл?

← →
Dennis I. Komarov © (2008-01-23 12:26) [4]

Разве программа Димы О не поддерживает такие форматы? :)

← →
ZoldBerger (2008-01-23 13:30) [5]

function TifToPDF(TIFFilename, PDFFilename: string): boolean;
var
AcroApp: variant;
AVDoc: variant;
PDDoc: variant;
IsSuccess: Boolean;
begin
result := false;
if not fileexists(TIFFilename) then
exit;
try
AcroApp := CreateOleObject("AcroExch.App");
AVDoc := CreateOleObject("AcroExch.AVDoc");
AVDoc.Open(TIFFilename, "");
AVDoc := AcroApp.GetActiveDoc;
if AVDoc.IsValid then
begin
PDDoc := AVDoc.GetPDDoc;
PDDoc.SetInfo ("Title", "");
PDDoc.SetInfo ("Author", "");
PDDoc.SetInfo ("Subject", "");
PDDoc.SetInfo ("Keywords", "");
result := PDDoc.Save(1 or 4 or 32, PDFFilename);
PDDoc.Close;
end;
AVDoc.Close(True);
AcroApp.Exit;
finally
VarClear(PDDoc);
VarClear(AVDoc);
VarClear(AcroApp);
end;
end;

← →
OSokin (2008-01-23 14:13) [6]

Тут есть нормальный исходник, не использующий OLE:
http://homepage3.nifty.com/e-papy/bmp2pdf_delphi.htm

PS

> function TifToPDF

> BMP в PDF

Может, оно переводит и из BMP в PDF, но, Юра, указать хотя бы надо об этом, прежде чем копировать текст из DRKB ;)

PPS Юра, исходники где???

← →
Dennis I. Komarov © (2008-01-23 14:27) [7]

> [6] OSokin (23.01.08 14:13)

Он их в разных ветках выкладывает :)

← →
ZoldBerger (2008-01-23 14:30) [8]

Удалено модератором

← →
OSokin (2008-01-23 14:36) [9]

Удалено модератором

← →
ZoldBerger (2008-01-23 14:37) [10]

Удалено модератором

← →
OSokin (2008-01-23 14:45) [11]

Удалено модератором

← →
ZoldBerger (2008-01-23 14:46) [12]

Удалено модератором

← →
OSokin (2008-01-23 14:53) [13]

Удалено модератором

← →
OSokin (2008-01-23 14:53) [14]

Удалено модератором

← →
ZoldBerger (2008-01-23 14:58) [15]

Удалено модератором

← →
homm © (2008-01-23 14:59) [16]

Удалено модератором

← →
OSokin (2008-01-23 15:06) [17]

Удалено модератором

← →
samalex (2008-01-23 15:08) [18]

> OSokin (23.01.08 14:13) [6]
> Тут есть нормальный исходник, не использующий OLE:
> http://homepage3.nifty.com/e-papy/bmp2pdf_delphi.htm

Получилось. Только PDF несжатые получаются.
Может что посоветуете?
Кстати, я правильно сделал?
BMPtoPDF(Image1.Picture.Bitmap,"123.pdf");

← →
ZoldBerger (2008-01-23 15:13) [19]

Удалено модератором

← →
OSokin (2008-01-23 15:14) [20]

> samalex (23.01.08 15:08) [18]

Правильно. Они и должны быть несжатые, кстати.

← →
homm © (2008-01-23 15:15) [21]

> [18] samalex (23.01.08 15:08)
> Только PDF несжатые получаются.

А ты что спросил?

← →
samalex (2008-01-23 15:21) [22]

> ZoldBerger (23.01.08 13:30) [5]
> function TifToPDF(TIFFilename, PDFFilename: string): boolean;
>
> var

Я попробовал. Ругается "Недопустимая строка с указанием класса" на строку
AcroApp := CreateOleObject("AcroExch.App");
Это какое-то приложение?

← →
samalex (2008-01-23 15:24) [23]

> OSokin (23.01.08 15:14) [20]
>
> > samalex (23.01.08 15:08) [18]
>
> Правильно. Они и должны быть несжатые, кстати.

Правильно, я сам виноват.
Вопрос 2 - как сделать сжатый PDF?
Мне на сайт выкладывать.

← →
OSokin (2008-01-23 15:32) [24]

Тогда посмотри тут: http://www.torry.net/quicksearchd.php?String=pdf+compression&Title=No
Там их найдено 25 штук, может что подойдет

> [23] samalex (23.01.08 15:24)
> Вопрос 2 - как сделать сжатый PDF?

Поиск не дал результатов. Возможно вы хотели спросить «Как сжать картнку в один из форматов с потерей качества, поддерживаемых PDF, и поместить получивщееся в PDF»?

← →
samalex (2008-01-23 15:45) [26]

> homm © (23.01.08 15:35) [25]
> > [23] samalex (23.01.08 15:24)
> > Вопрос 2 - как сделать сжатый PDF?
>
> Поиск не дал результатов. Возможно вы хотели спросить «Как
> сжать картнку в один из форматов с потерей качества, поддерживаемых
> PDF, и поместить получивщееся в PDF»?

Можно и так, если найдется.

← →
samalex (2008-01-23 15:46) [27]

> OSokin (23.01.08 15:32) [24]
> Тогда посмотри тут: http://www.torry.net/quicksearchd.php?
> String=pdf+compression&Title=No
> Там их найдено 25 штук, может что подойдет

Спасибо, они платные все. У нас контора государственная, оплачивает долго.

> [26] samalex (23.01.08 15:45)
> Можно и так, если найдется.

Ищи во первых такие форматы, потом выбирай понравившийся и ищи способ перекодировать в него имеющееся изображение. В третьих нужно будет вставить получившееся в pdf.

← →
samalex (2008-01-23 15:55) [29]

> Ищи во первых такие форматы, потом выбирай понравившийся
> и ищи способ перекодировать в него имеющееся изображение.
> В третьих нужно будет вставить получившееся в pdf.

Задача у меня - сканировать со сканера картинку и сохранить в PDF с максимальным сжатием. Сканирую я с помощью "MultiTWAIN".

> [29] samalex (23.01.08 15:55)

Ищи во первых форматы сжатия, которые поддерживает pdf, потом выбирай понравившийся и ищи способ перекодировать в него имеющееся изображение. В третьих нужно будет вставить получившееся в pdf.

аффтар, может, ты таки купишь Adobe Acrobat?

а, уже ответили про госконтору. ладно, я пошёл, я кактусы не люблю.

Удалено модератором

Конвертация BMP в PDF Найти похожие ветки