Сохраняем изображение в Dll файле

[Kyran29]

Уважаемые форумчани,
Смысл заключается в следующем:
• загружаем изображение из Dll файла;
• изменяем изображение;
• дальше нужно схоронить изображение обратно в Dll файл;

Вопрос: как вернуть обратно в Dll файл изменённое изображение?



Загружаем изображение

private
    procedure ResError;
  public
    { Public declarations }
  end;

var
  MouseButton: Boolean;

// Ошибка ресурса
procedure TForm1.ResError;
 begin
  Image1.AutoSize:=False;
  Image1.Height:=300;
  Image1.Width:=300;
  Image1.Canvas.Brush.Color:=clWhite;
 end;

// Загружаем изображение
procedure TForm1.FormCreate(Sender: TObject);
 var
  DllName:String;
  res: TResourceStream;
  h: THandle;
 begin
  DllName:='Data.dll';
  h :=  LoadLibrary(PChar(DllName));
   if h <> 0
    then
     begin
      try
       res:= TResourceStream.Create(h,PChar('#1'),RT_RCDATA);
       image1.Picture.Bitmap.LoadFromStream(res);
        except
         on E : Exception do
          ResError;
        end;
          FreeLibrary(h);
      end
       else
        ResError;
 end;

Изменяем изображение

// Рисуем
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 begin
   MouseButton:= True;
   Form1.Image1.Canvas.MoveTo(X,Y);
 end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 begin
  if MouseButton = True
   then
    Form1.Image1.Canvas.LineTo(X,Y);
 end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 begin
  MouseButton:= False;
 end;

Сохраним изменённое изображение

 // Сохраним изображение
procedure TForm1.Button1Click(Sender: TObject);
begin
  // ??????????????????????????????????????
end;

[Аватар]

Offtop

Почему именно dll? Только потому, что из её ресурса легко вытащить? Почему нельзя в dat-файле? Придумав свою структуру и как угодно закодировав информацию.

[Kyran29]

Аватар ну, а чем dll хуже или лучше dat-файла?

[Аватар]

Копать в сторону BeginUpdateResource, UpdateResource и EndUpdateResource

[Человек_Борща]

А че бред писать и жрать кактусы?

Берите TStream загоняйте туда изображение, сжимайте все это дело GZIP'ом.
Для прикола, напортачте в заголовках GZIP'а, чтоб только вы знали как распаковывать картинки. вс0.