PHP Script in Delphi umsetzen

[TiGü]

tl;dr

Kann es sein, dass du versuchst zu fragen, wie du ein Bild auf ein anderes Bild zeichnen kannst?

Delphi-Quellcode:

uses
  Vcl.Imaging.jpeg;

procedure TForm1.FormCreate(Sender: TObject);
var
  dst_im: TJPEGImage;
  src_im: TJPEGImage;
  X, Y: Integer;
  Rect: TRect;
begin
  dst_im := TJPEGImage.Create;
  dst_im.LoadFromFile('DeinDateiNameDesHintergrundes.jpg');

  src_im := TJPEGImage.Create;
  src_im.LoadFromFile('DeinDateiNamedesVordergrundes.jpg');

  X := 123;
  Y := 456;
  dst_im.Canvas.Draw(X, Y, src_im);
  // oder
  Rect.Left := 123;
  Rect.Top := 456;
  Rect.Right := 789
  Rect.Botton := 1011;
  dst_im.Canvas.StretchDraw(Rect, src_im);

  src_im.Free;
  dst_im.Free;
end