| T O P I C R E V I E W |
| 1995steve |
Posted - Aug 11 2011 : 08:44:17
I am using Delphi XE and IE 4.0.0
I do not know if what I want to do is possible in Image En.
I have a multipage tiff file. That I want to split in to individual page files. This is easy but I want to read an area of the tiff page and turn it to Text to set the new page file name in steed if want I am doing now. Below is the code I am using to separate the pages.
Source := FldSource.Text;
FileName := Source + '\*.Tif';
if FindFirst(FileName,faAnyFile,F) = 0 then
begin
if tags.ReadFile( Source + '\'+F.Name ) then
begin
for x := 0 to Tags.GetPagesCount - 1 do
begin
fName := F.Name;
delete(fName,pos('.',fName),4);
Dest := FldDestination.Text+'\'+fName+'-'+intToStr(x)+'.tif';
Tags.WriteFile(Dest,x);
end;
end;
DeleteFile(Source+'\'+F.Name);
FindClose(F);
end;
Thanks in advance
Donald S. Bossen
J&B Importers Inc. |
| 1 L A T E S T R E P L I E S (Newest First) |
| fab |
Posted - Aug 11 2011 : 09:12:19
Hello,
you need an OCR.
Please read this topic:
http://www.imageen.com/ieforum/topic.asp?TOPIC_ID=74 |
|
|
Search
