Images and Logo's - urgent help required

[DJ ChunkeeZee]

Hi All,
I require a routing to overlay/alphabland a Transparent GIF onto a JPEG and save as JPEG, the Gif is a Company Logo (transparent) and the JPEG the photo, I need to produce a batch routine to place this logo on all my images.

I am new to graphics programming, any help would be appreciated.
Thanks in advance.

[Kambiz]

Code: Select all

procedure Watermark(Image: TJPEGImage; X, Y: Integer; Stamp: TGraphic);
var
  Bitmap: TBitmap;
begin
  Stamp.Transparent := True;
  Bitmap := TBitmap.Create;
  try
    Bitmap.Assign(Image);
    Bitmap.Canvas.Draw(X, Y, Stamp);
    Image.Assign(Bitmap);
    Image.JPEGNeeded;
  finally
    Bitmap.Free;
  end;
end;