Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!maverick.ksu.ksu.edu!umriscc!mcs213f.cs.umr.edu!mcastle
From: mcastle@mcs213f.cs.umr.edu (Mike Castle {Nexus})
Newsgroups: comp.lang.pascal
Subject: Re: Writing Images to Disk in TP 5.0
Message-ID: <2075@umriscc.isc.umr.edu>
Date: 2 Feb 91 07:25:01 GMT
References: <1991Feb1.103512.8094@gdr.bath.ac.uk>
Sender: news@umriscc.isc.umr.edu
Organization: University of Missouri - Rolla
Lines: 31

In article <1991Feb1.103512.8094@gdr.bath.ac.uk> ccsnad@gdr.bath.ac.uk (Neil A. Drage) writes:
>I am looking for a way of saving images captured by GETIMAGE to 
>disk on a VGA system. I actually managed to do this once
>in a program I wrote a couple of years ago for a CGA display but really
>it was just a kludge.
>
>Doing this:
>
>	write(fil,grafic^);

Try blockread/write. 

Probably something like:

Size := ImageSize(x1,y1, x2,y2);
GetMem(P,Size);
GetImage(x1,y1, x2,y2, P^);
BlockWrite(fx,P^,Size);
. 
.
.
BlockRead(fx,P^,Size);
PutImage(x3,y3, x4,y4, P^);

paraphrased from the turbo manual.. and off the top of my head... not guaranteed
to work  :->
-- 
Mike Castle (Nexus) S087891@UMRVMA.UMR.EDU (preferred)       | ERROR:  Invalid
                mcastle@mcs213k.cs.umr.edu (unix mail-YEACH!)| command 'HELP'
Life is like a clock:  You can work constantly, and be right | try 'HELP'
all the time, or not work at all, and be right twice a day.  |