Зашить в программу TJpegImage

[Kronos913]

Нужно зашить внутрь exe-щника изображение jpg
И потом в нужный момент нужно чтобы программа выкидывала его в буфер обмена

[Kronos913]

Каким-то странным образом у меня получилось. Но я уверен, что он с теми еще костылями. Вопрос к знатокам: есть ли возможность сделать это более прямым способом?

const
   SUPERJPG1_size=57253;
   SUPERJPG1: array [1..SUPERJPG1_size] of byte = (
         255, 216, 255,

(Весь массив прописывать не буду - будет на 100 экранов)

procedure TForm1.Button2Click(Sender: TObject);
var
  p:pointer;
  jpg:TJpegImage;
  st:TMemoryStream;
begin
  jpg:=TJpegImage.Create;

  st:=TMemoryStream.Create;

  st.SetSize(SUPERJPG1_size);
  p:=st.Memory;

  Move(SUPERJPG1, p^, SUPERJPG1_size);

  jpg.LoadFromStream(st);

Может можно как-то напрямую залить с массива в TJpegImage?
Без стрима?

[Kronos913]

Function BMPfromJpgArray(bmp:TBitMap; a:array of byte):boolean;
var
  p:pointer;
  jpg:TJpegImage;
  st:TMemoryStream;
  size1:LongInt;
begin
  try
    jpg:=TJpegImage.Create;
    st:=TMemoryStream.Create;

    size1:=length(a);

    st.SetSize(size1);
    p:=st.Memory;
    move(a, p^, size1);

    jpg.LoadFromStream(st);
    bmp.Assign(jpg);
    result:=true;
  except
    result:=false;
  end;
  jpg.Free;
  st.Free;

end;

Такую процедуру сделал
Тот же вопрос: можно ли как-то упросить код?

[Vapaamies]

Сообщение от Kronos913

Вопрос к знатокам: есть ли возможность сделать это более прямым способом?

Через ресурсы? Если специального кода для JPEG нет, использовать RT_DATA.

Можно попробовать еще через линкуемую «процедуру», если есть программа/аналог objcopy для формата объектных файлов OMF. Хотя, возможно, зависит от версии Delphi. Если современные версии получили поддержку COFF, можно взять и обычную objcopy от GNU или Microsoft. Но способ через объектник — такое себе, через ресурсы прямее, если только не стоит задача затруднения подмены изображения в exe-шнике — подправить ресурс Resource Hacker-ом сможет любой школьник.

[Kronos913]

Через ресурсы? Если специального кода для JPEG нет, использовать RT_DATA.

А как это сделать?

если только не стоит задача затруднения подмены изображения в exe-шнике

А мой метод, с разбором файла на байты - защищает?

[uberchel]

Сообщение от Kronos913

А мой метод, с разбором файла на байты - защищает?

На самом деле что ресурсы что побайтово, разницы нет, вытащить картинку можно любым редактором ресурсов. Мое мнение, я бы добавил картинку в ресурсы в зашифрованном типе(любой на выбор) а в приложении при гетинге картинки я бы дешифровывал и все.

[Vapaamies]

Сообщение от uberchel

На самом деле что ресурсы что побайтово, разницы нет, вытащить картинку можно любым редактором ресурсов.

Да ну?!

[Arigato]

На счет любого редактора ресурсов сомнительно, но по факту если данные никак не шифруются, то найти их не составит труда. Писал как-то программку, которая вытягивала все PNG изображения из файл (в моем случае это была прошивка прибора). Где именно лежали эти изображения в файле, роли не играло, главное что они там были никак не зашифрованы. А программа проходилась по всему файлу от начала и до конца.

[Vapaamies]

Сообщение от Arigato

Писал как-то программку

А теперь читаем, что написано выше.

[Arigato]

И что же написано выше, чтобы противоречило моим словам?