Текст на Image

[Stilet]

Во-первых:http://www.delphiworld.narod.ru/_all_articles_.html - раздел JPEG - [14]
Во-вторых: (оттуда же)

var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  bm := TBitMap.Create;
  JpegIm := TJpegImage.Create;
  JpegIm.LoadFromFile('D:\stasya_ru_2_big.jpg');
  bm.Assign(JpegIm);
  bm.Canvas.TextOut(10,10,'dsadasdas');
  JpegIm.Assign(bm);
  JpegIm.SaveToFile('c:\temp\s.jpeg');
  Form1.Canvas.Draw(0, 0, bm);
  bm.Destroy;
  JpegIm.Destroy;
end;

Все отлично рисуется на чпеге.

А для создания PDF годятся только JPEG файлы.

Это ты как бы решил внести смуту в светлое время суток?
Впервые слышу чтоб в PDF можно было загнать только BMP

Я лично пользую уже давно PDFFactory и у меня в PDF втюхивается все что я захочу без проблем

[artemavd]

Что именно значат эти строчки?

Впервые слышу чтоб в PDF можно было загнать только BMP

Наоборот . В моем случае в PDF можно загнать только JPEG.

Я лично пользую уже давно PDFFactory

Что это? Компонент?

[Stilet]

Что именно значат эти строчки?

Рисуют на канве текст, потом эта отредактенная канва передается обьекту JPEG, который сохраняется в файл.

Компонент?

Круче - Виртуальный принтер. PDFFactory, PDF Creator и иже с ними оч крутая весчь. С их помощью можно получить PDF послав документ (или банально - канву) на печать.

[artemavd]

Загрузил BMP в Image1 и написал так:

var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  bm := TBitMap.Create;
  JpegIm := TJpegImage.Create;
  JpegIm.LoadFromFile('C:\Documents and Settings\Артем\Рабочий стол\Бланки\Бланк1\123.bmp);
  bm.Assign(JpegIm);
  bm.Canvas.TextOut(10,10,'dsadasdas');
  JpegIm.Assign(bm);
  JpegIm.SaveToFile('C:\Documents and Settings\Артем\Рабочий стол\Бланки\Бланк1\s.jpeg');
  Form2.Image1.Canvas.Draw(0, 0, bm);
  bm.Destroy;
  JpegIm.Destroy;
end;

применив этот код, получил ошибку: "JPEG error #53".

[Stilet]

Опять 25... Да забудь ты про этот TImage. Выкинь вообще работу с ним, иначе поимеешь в дальнейшем большой геморр.

[artemavd]

И куда ж мне наконец грузить-то мой файлик?)). Да я с радостью откажусь от него, если будет более лучшый рабочий вариант

[Stilet]

грузить-то мой файлик?

Грузи в память, а отрисовывай на канве, в событии OnPaint
Да хотя бы того же PaintBox - ибо он самое оно для такого рода занятий.
Примеры кстати были - так что поиск в руки и по словам BitBlt, PaintBox, Draw ищи примеры. И я и другие много раз подобные отрисовки выкладывали.

Вот хотя бы здесь:http://www.programmersforum.ru/showt...025#post486025

[artemavd]

ну применил я код из темы, ссылка на которую была дана. Но изображение не загрузилось. Текст да, текст отлично выводится. А как быть с картинкой-то?)

[mutabor]

Да мне впринципе без разницы. У меня и BMP и JPEG файлы грузятся хорошо. Но текст отрисовывается только на BMP варианте файлов. А для создания PDF годятся только JPEG файлы. Вот если бы на JPEG файле отрисовывался текст так же как и на BMP, то проблем бы вообще не было. Вот поэтому мне и нужен JPEG, чтобы PDF создавалась.

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

Что касается преобразования BMP->JPEG->BMP, то нет ничего проще, в Дельфи все для этого есть, как это сделать есть в том же Delphi World и много где еще, в том числе и тут на форуме. Пример приводить здесь нет смысла, это будет мартышкин труд, их валом в сети.

[artemavd]

Перевод BMP -> JPEG я сделал наконец-то . Но проблема в том, что я не могу загрузить в Image уже созданный только что мой JPEG. Обычные JPEG-и они грузит, а мой не хочет. Пробовал сделать через поток + отрисовка в Image, но не канает, получаю ошибку: "JPEG error #42". Вот код:

procedure TForm1.Timer2Timer(Sender: TObject);
var
  JPEG: TJPEGImage;
  Bitmap: TBitmap;
  MStream: TMemoryStream;
begin
 Form1.ProgressBar1.StepBy(3);
 if Form1.ProgressBar1.Position = 100 then
 begin
  Form2.Show;

{тут действия над загруженной bmp-кой...}

{далее идет конвертация bmp в jpeg + сохранение в файл с прогой, а затем пытаюсь его загрузить/отрисовать в Image через поток}
  Form1.Timer2.Enabled:=False;
  Form2.BtnInsertImage.Enabled:=True;
  JPEG := TJPEGImage.Create;
  Bitmap := TBitmap.Create;
  JPEG.Assign(Bitmap);
  Form2.Image1.Picture.SaveToFile('111.jpeg');

  MStream:=TMemoryStream.Create;
  JPEG := TJPEGImage.Create;
  MStream.Position:=0;
  JPEG.LoadFromStream(MStream);
  Form2.Image1.Canvas.StretchDraw(Rect(0,0,Form2.Image1.Width,Form2.Image1.Height),JPEG);
  JPEG.Free;
  MStream.Free;

//  Form2.Image1.Picture.Bitmap.LoadFromFile('111.jpeg');
  JPEG.Free;
  Bitmap.Free;
 end;
end;

Что не так-то?