• Welcome to Vampyre Imaging Library Forum. Please login or sign up.
 

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Topics - pka4916

1
Help & Questions / Cropping image possible?
23 May 2019, 01:26:17
Is it possible to crop an image?
I have scanned a photo and i want to cut off all the blank parts,   is there a way to  take only a part of an page?

Thank you
2
I am trying to get 2 images into 1

1 = normal pic
2 = a watermark.

so that the watermark is transparant on the picture
but all it does, is make it blank. 
How can I do it?



var
img  : timagedata;
img1 : timagedata;
img2 : timagedata;
img3 : timagedata;
begin
InitImage(Img);
InitImage(Img1);
InitImage(Img2);
loadimagefromfile(im1,img1);
loadimagefromfile(im2,img2);
newimage(214,384,ifDefault,img);
imaging.CopyRect(img1,0,0,img1.width,img1.Height,img,0,0);
imaging.CopyRect(img2,0,0,img2.width,img2.Height,img,0,192);
saveimagetofile(finalimage,img);
3
Help & Questions / Copyrect doesn't work?
19 March 2010, 20:44:57
I am trying to copy a part of img to img2
but it won't save anything to a file for  img2. 
the file doesn't get written at all.
what am i missing here?

    InitImage(Img);
    InitImage(Img2);
    loadimagefromfile('c:\icon1.png',img);
    imaging.CopyRect(img,0,0,214,200,img2,110,110);

    saveimagetofile('c:\11.png',img2);
    saveimagetofile('c:\12.png',img);
4
Help & Questions / is this possible at all?
18 March 2010, 05:48:26
If I load a PNG file,  I want to put only a part into a new PNG file, and then save it.
if the image =  300x200,  I want from that image only  300,100   (the top half of that image) 
then then save the new file.

I'm playing for days with this and cant figure it out.
so, is it possible, and if so, how does it work?

thank you so much
5
I'm kinda confused

when I load a image into a Timage  and save it, then the file gets really big
the input is a jpg 250Kb  and the output a PNG  1.8 Mb
why?

This is what I used

Code (delphi) Select
FImage := TSingleImage.Create;
ConvertBitmapToImage(Timage1Picture.Bitmap, FImage);
FImage.SaveToFile('c:\test.png');


I must say, that I nowhere set something that it  needs to be a PNG file.
maybe that's it... but where do I need to put it and what?

also  the image =  1200x800
i am loading it into the Timage  at  320x240  and have it set to fix so i can see the whole thing.

how can i save it with that sizeformat?   now when I save it's still 1200x800

thank you very much
SMF spam blocked by CleanTalk