Текст на Image

[DeKot]

Да что же Вы "куете" грабли и сами же тут же на них наступаете?
Дайте рисунок и текст и задачу - что Вы от них хотите.

[mutabor]

artemavd, в приложенном проекте ответы на все вопросы

[artemavd]

mutabor, применил твой код. Файлы вроде создаются. НО:
1. Происходит ошибка. Появляется AccessViolation.
2. Как изменить код, чтобы изображение не создавалось, а бралось bmp-шное из файла и уже его переводило в jpeg? Со второй частью этого вопроса понятно, но вот как с первой быть?

[raxp]

да вот так:

procedure bjpg(b: tbitmap; name: string);
var jpg: TJpegImage;
begin
 jpg:= TJpegImage.Create;
 jpg.Assign(b);
 jpg.CompressionQuality:=100;
 jpg.Grayscale:=false;
 jpg.Compress;
 jpg.SaveToFile(name);
 jpg.free
end;

...
 b:= tbitmap.Create;
 b.loadfromfile('1.bmp');
 bjpg(b,'1.jpg');
 b.Free

наложение можно так:

jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100;
    jpeg.LoadFromFile(DocFileName);
    b := TBitmap.Create;
    try
      b.Assign(jpeg);
      //наложение-
      s:= formatdatetime(' hh:nn:ss.zzz ',time);
      with b.Canvas do begin
       font.Size:= 8;
       font.Name:= 'arial';
       font.Color:= clwhite;
       brush.Color:= clblack;
       TextOut((ClientWidth - length(s)*textwidth('1'))+5,0, s);
       TextOut((ClientWidth - TextWidth(gl_logo)) div 2,(ClientHeight - TextHeight(gl_logo)) div 2, gl_logo)
      end;
      //
      bjpg(b, s+'.jpg');
    finally b.Free end;
  finally jpeg.Free end;

[artemavd]

procedure bjpg(b: tbitmap; name: string);
var jpg: TJpegImage;
begin
 jpg:= TJpegImage.Create;
 jpg.Assign(b);
 jpg.CompressionQuality:=100;
 jpg.Grayscale:=false;
 jpg.Compress;
 jpg.SaveToFile(name);
 jpg.free
end;

...
 b:= tbitmap.Create;
 b.loadfromfile('1.bmp');
 bjpg(b,'1.jpg');
 b.Free

Это отдельная процедура какая-то да?

[raxp]

да, но можно и вовнутрь пихнуть

[artemavd]

Иными словами, можно ли весь код оформить так?:

//как отдельную процедуру
procedure bjpg(b: tbitmap; name: string);
var jpg: TJpegImage;
begin
 jpg:= TJpegImage.Create;
 jpg.Assign(b);
 jpg.CompressionQuality:=100;
 jpg.Grayscale:=false;
 jpg.Compress;
 jpg.SaveToFile(name);
 jpg.free
end;


//а это в процедуру кнопки кинуть
jpeg := TJPEGImage.Create;
b:= tbitmap.Create;
b.loadfromfile('1.bmp');
bjpg(b,'1.jpg');
b.Free
  try
    jpeg.CompressionQuality := 100;
    jpeg.LoadFromFile(DocFileName);
//    b := TBitmap.Create;
    try
      b.Assign(jpeg);
      s:= formatdatetime(' hh:nn:ss.zzz ',time);
      with b.Canvas do begin
       font.Size:= 8;
       font.Name:= 'arial';
       font.Color:= clwhite;
       brush.Color:= clblack;
       TextOut((ClientWidth - length(s)*textwidth('1'))+5,0, s);
       TextOut((ClientWidth - TextWidth(gl_logo)) div 2,(ClientHeight - TextHeight(gl_logo)) div 2, gl_logo)
      end;
      //
      bjpg(b, s+'.jpg');
    finally 
  b.Free 
end;
  finally 
 jpeg.Free 
end;

[raxp]

да, только уберите дубль загрузки

[artemavd]

Вот это?:

//а это в процедуру кнопки кинуть
jpeg := TJPEGImage.Create;
b:= tbitmap.Create;
b.loadfromfile('1.bmp');
bjpg(b,'1.jpg');
b.Free
  try
    jpeg.CompressionQuality := 100;
    jpeg.LoadFromFile(DocFileName);
//    b := TBitmap.Create;
    try
      b.Assign(jpeg);
      s:= formatdatetime(' hh:nn:ss.zzz ',time);
      with b.Canvas do begin
       font.Size:= 8;
       font.Name:= 'arial';
       font.Color:= clwhite;
       brush.Color:= clblack;
       TextOut((ClientWidth - length(s)*textwidth('1'))+5,0, s);
       TextOut((ClientWidth - TextWidth(gl_logo)) div 2,(ClientHeight - TextHeight(gl_logo)) div 2, gl_logo)
      end;
      //
      bjpg(b, s+'.jpg');
    finally 
  b.Free 
end;
  finally 
 jpeg.Free 
end;

[mutabor]

Иными словами, можно ли весь код оформить так?:

Да как угодно, лишь бы работало, можно и так объявить
function BMPToJPEG(Source: TBitmap): TJpegImage;
это кому как удобно.

Что касается вопроса по моему коду, то вместо создания (а создание включает в себя 1. создание объекта, 2. задание ширины и 3. высоты) грузи битмап из файла (т.е. 1. все так же создаем, 2. Грузим из файла, тем же методом к-рый там в коде минимум раза три для Jpeg используется, у битмапа он тоже есть). Вот и всё, как говорил Майкл Джексон

1. Происходит ошибка. Появляется AccessViolation.

У меня нет такой. Возможно, твоя ОС не успевает создать файл к тому времени как программа пытается его загрузить. Ну так это я только как пример сделал, изменяй под свои нужды.