TOCR example for TOCRJobType_MMFileHandle

[Zoki]

Hi,

I'm using 3rd party piece of software (TOCR) which has Pascal
interface, and I came to the point I couldn't go further. In short
words, it is required to pass jobinfo structure which contains bitmap
loaded from file or handle of memory mapped file.

I have piece of code written in VB, and need it in Delphi:

Dim BI As BMPINFO
Dim hFile As Long

' Get a bitmap into memory

If GetBitmap(BI, SAMPLE_BMP_FILE) = gBITMAP_OK Then
If SaveMonoBitmapToMMFile(BI, hFile) Then
nJobInfo.JobType = TOCRJOBTYPE_MMFILEHANDLE
nJobInfo.pageNo = hFile
nJobInfo.JobType = ""

I would be very grateful if anyone has an idea how to write this in
Delphi.

Zoran