server: Allow the main exe to be registered as a normal dll before
[wine] / dlls / twain / ds_image.c
1 /*
2  * Copyright 2000 Corel Corporation
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
17  */
18
19 #include "config.h"
20
21 #include <stdarg.h>
22
23 #include "windef.h"
24 #include "winbase.h"
25 #include "wingdi.h"
26 #include "winuser.h"
27 #include "twain.h"
28 #include "twain_i.h"
29 #include "wine/debug.h"
30
31 WINE_DEFAULT_DEBUG_CHANNEL(twain);
32
33 /* DG_IMAGE/DAT_CIECOLOR/MSG_GET */
34 TW_UINT16 TWAIN_CIEColorGet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
35                              TW_MEMREF pData)
36 {
37     FIXME ("stub!\n");
38
39     return TWRC_FAILURE;
40 }
41
42 /* DG_IMAGE/DAT_EXTIMAGEINFO/MSG_GET */
43 TW_UINT16 TWAIN_ExtImageInfoGet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
44                                  TW_MEMREF pData)
45 {
46     FIXME ("stub!\n");
47
48     return TWRC_FAILURE;
49 }
50
51 /* DG_IMAGE/DAT_GRAYRESPONSE/MSG_RESET */
52 TW_UINT16 TWAIN_GrayResponseReset (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
53                                    TW_MEMREF pData)
54 {
55     FIXME ("stub!\n");
56
57     return TWRC_FAILURE;
58 }
59
60 /* DG_IMAGE/DAT_GRAYRESPONSE/MSG_SET */
61 TW_UINT16 TWAIN_GrayResponseSet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
62                                  TW_MEMREF pData)
63 {
64     FIXME ("stub!\n");
65
66     return TWRC_FAILURE;
67 }
68
69 /* DG_IMAGE/DAT_IMAGEFILEXFER/MSG_GET */
70 TW_UINT16 TWAIN_ImageFileXferGet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
71                                   TW_MEMREF pData)
72 {
73     FIXME ("stub!\n");
74
75     return TWRC_FAILURE;
76 }
77
78 /* DG_IMAGE/DAT_IMAGEINFO/MSG_GET */
79 TW_UINT16 TWAIN_ImageInfoGet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
80                               TW_MEMREF pData)
81 {
82 #ifndef HAVE_SANE
83     return TWRC_FAILURE;
84 #else
85     TW_UINT16 twRC = TWRC_SUCCESS;
86     pTW_IMAGEINFO pImageInfo = (pTW_IMAGEINFO) pData;
87     activeDS *pSource = TWAIN_LookupSource (pDest);
88     SANE_Status status;
89
90     TRACE("DG_IMAGE/DAT_IMAGEINFO/MSG_GET\n");
91
92     if (!pSource)
93     {
94         twRC = TWRC_FAILURE;
95         DSM_twCC = TWCC_BADDEST;
96     }
97     else if (pSource->currentState != 6 && pSource->currentState != 7)
98     {
99         twRC = TWRC_FAILURE;
100         pSource->twCC = TWCC_SEQERROR;
101     }
102     else
103     {
104         if (pSource->currentState == 6)
105         {
106             /* return general image description information about the image about to be transferred */
107             status = sane_get_parameters (pSource->deviceHandle, &pSource->sane_param);
108         }
109
110         pImageInfo->XResolution.Whole = -1;
111         pImageInfo->XResolution.Frac = 0;
112         pImageInfo->YResolution.Whole = -1;
113         pImageInfo->YResolution.Frac = 0;
114         pImageInfo->ImageWidth = pSource->sane_param.pixels_per_line;
115         pImageInfo->ImageLength = pSource->sane_param.lines;
116         if (pSource->sane_param.depth == 24)
117         {
118             pImageInfo->SamplesPerPixel = 3;
119             pImageInfo->BitsPerSample[0] = 8;
120             pImageInfo->BitsPerSample[1] = 8;
121             pImageInfo->BitsPerSample[2] = 8;
122             pImageInfo->BitsPerPixel = 24;
123             pImageInfo->Planar = TRUE;
124             pImageInfo->PixelType = TWPT_RGB;
125             pImageInfo->Compression = TWCP_NONE;
126         }
127         else if (pSource->sane_param.depth == 8)
128         {
129             /* FIXME: fill the image info structure for 8-bit image */
130         }
131     }
132
133     return twRC;
134 #endif
135 }
136
137 /* DG_IMAGE/DAT_IMAGELAYOUT/MSG_GET */
138 TW_UINT16 TWAIN_ImageLayoutGet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
139                                 TW_MEMREF pData)
140 {
141     FIXME ("stub!\n");
142
143     return TWRC_FAILURE;
144 }
145
146 /* DG_IMAGE/DAT_IMAGELAYOUT/MSG_GETDEFAULT */
147 TW_UINT16 TWAIN_ImageLayoutGetDefault (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
148                                        TW_MEMREF pData)
149 {
150     FIXME ("stub!\n");
151
152     return TWRC_FAILURE;
153 }
154
155 /* DG_IMAGE/DAT_IMAGELAYOUT/MSG_RESET */
156 TW_UINT16 TWAIN_ImageLayoutReset (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
157                                   TW_MEMREF pData)
158 {
159     FIXME ("stub!\n");
160
161     return TWRC_FAILURE;
162 }
163
164 /* DG_IMAGE/DAT_IMAGELAYOUT/MSG_SET */
165 TW_UINT16 TWAIN_ImageLayoutSet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
166                                 TW_MEMREF pData)
167 {
168     FIXME ("stub!\n");
169
170     return TWRC_FAILURE;
171 }
172
173 /* DG_IMAGE/DAT_IMAGEMEMXFER/MSG_GET */
174 TW_UINT16 TWAIN_ImageMemXferGet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
175                                  TW_MEMREF pData)
176 {
177     FIXME ("stub!\n");
178
179     return TWRC_FAILURE;
180 }
181
182 /* DG_IMAGE/DAT_IMAGENATIVEXFER/MSG_GET */
183 TW_UINT16 TWAIN_ImageNativeXferGet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
184                                     TW_MEMREF pData)
185 {
186 #ifndef HAVE_SANE
187     return TWRC_FAILURE;
188 #else
189     TW_UINT16 twRC = TWRC_SUCCESS;
190     pTW_UINT32 pHandle = (pTW_UINT32) pData;
191     activeDS *pSource = TWAIN_LookupSource (pDest);
192     SANE_Status status;
193     SANE_Byte buffer[32*1024];
194     int buff_len;
195     HBITMAP hDIB;
196     BITMAPINFO bmpInfo;
197     VOID *pBits;
198     HDC dc;
199
200     TRACE("DG_IMAGE/DAT_IMAGENATIVEXFER/MSG_GET\n");
201
202     if (!pSource)
203     {
204         twRC = TWRC_FAILURE;
205         DSM_twCC = TWCC_NODS;
206     }
207     else if (pSource->currentState != 6)
208     {
209         twRC = TWRC_FAILURE;
210         pSource->twCC = TWCC_SEQERROR;
211     }
212     else
213     {
214         /* Transfer an image from the source to the application */
215         status = sane_start (pSource->deviceHandle);
216         if (status != SANE_STATUS_GOOD)
217         {
218             WARN("sane_start: %s\n", sane_strstatus (status));
219             sane_cancel (pSource->deviceHandle);
220             pSource->twCC = TWCC_OPERATIONERROR;
221             return TWRC_FAILURE;
222         }
223
224         status = sane_get_parameters (pSource->deviceHandle, &pSource->sane_param);
225         if (status != SANE_STATUS_GOOD)
226         {
227             WARN("sane_get_parameters: %s\n", sane_strstatus (status));
228             sane_cancel (pSource->deviceHandle);
229             pSource->twCC = TWCC_OPERATIONERROR;
230             return TWRC_FAILURE;
231         }
232
233         TRACE("Acquiring image %dx%dx%d bits (format=%d last=%d) from sane...\n"
234               , pSource->sane_param.pixels_per_line, pSource->sane_param.lines,
235               pSource->sane_param.depth, pSource->sane_param.format,
236               pSource->sane_param.last_frame);
237
238         ZeroMemory (&bmpInfo, sizeof (BITMAPINFO));
239         bmpInfo.bmiHeader.biSize = sizeof (BITMAPINFOHEADER);
240         bmpInfo.bmiHeader.biWidth = pSource->sane_param.pixels_per_line;
241         bmpInfo.bmiHeader.biHeight = pSource->sane_param.lines;
242         bmpInfo.bmiHeader.biPlanes = 1;
243         bmpInfo.bmiHeader.biBitCount = pSource->sane_param.depth;
244         bmpInfo.bmiHeader.biCompression = BI_RGB;
245         bmpInfo.bmiHeader.biSizeImage = 0;
246         bmpInfo.bmiHeader.biXPelsPerMeter = 0;
247         bmpInfo.bmiHeader.biYPelsPerMeter = 0;
248         bmpInfo.bmiHeader.biClrUsed = 1;
249         bmpInfo.bmiHeader.biClrImportant = 0;
250         bmpInfo.bmiColors[0].rgbBlue = 128;
251         bmpInfo.bmiColors[0].rgbGreen = 128;
252         bmpInfo.bmiColors[0].rgbRed = 128;
253         hDIB = CreateDIBSection ((dc = GetDC(pSource->hwndOwner)), &bmpInfo,
254                                  DIB_RGB_COLORS, &pBits, 0, 0);
255         if (!hDIB)
256         {
257             sane_cancel (pSource->deviceHandle);
258             pSource->twCC = TWCC_LOWMEMORY;
259             return TWRC_FAILURE;
260         }
261
262         do
263         {
264             status = sane_read (pSource->deviceHandle, buffer,
265                                 sizeof (buffer),  &buff_len);
266             if (status == SANE_STATUS_GOOD)
267             {
268                 /* FIXME: put code for converting the image data into DIB here */
269
270             }
271             else if (status != SANE_STATUS_EOF)
272             {
273                 WARN("sane_read: %s\n", sane_strstatus (status));
274                 sane_cancel (pSource->deviceHandle);
275                 pSource->twCC = TWCC_OPERATIONERROR;
276                 return TWRC_FAILURE;
277             }
278         } while (status == SANE_STATUS_GOOD);
279
280         sane_cancel (pSource->deviceHandle);
281         ReleaseDC (pSource->hwndOwner, dc);
282         *pHandle = (TW_UINT32)hDIB;
283         twRC = TWRC_XFERDONE;
284         pSource->twCC = TWCC_SUCCESS;
285         pSource->currentState = 7;
286     }
287     return twRC;
288 #endif
289 }
290
291 /* DG_IMAGE/DAT_JPEGCOMPRESSION/MSG_GET */
292 TW_UINT16 TWAIN_JPEGCompressionGet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
293                                     TW_MEMREF pData)
294 {
295     FIXME ("stub!\n");
296
297     return TWRC_FAILURE;
298 }
299
300 /* DG_IMAGE/DAT_JPEGCOMPRESSION/MSG_GETDEFAULT */
301 TW_UINT16 TWAIN_JPEGCompressionGetDefault (pTW_IDENTITY pOrigin,
302                                            pTW_IDENTITY pDest,
303                                            TW_MEMREF pData)
304 {
305     FIXME ("stub!\n");
306
307     return TWRC_FAILURE;
308 }
309
310 /* DG_IMAGE/DAT_JPEGCOMPRESSION/MSG_RESET */
311 TW_UINT16 TWAIN_JPEGCompressionReset (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
312                                       TW_MEMREF pData)
313 {
314     FIXME ("stub!\n");
315
316     return TWRC_FAILURE;
317 }
318
319 /* DG_IMAGE/DAT_JPEGCOMPRESSION/MSG_SET */
320 TW_UINT16 TWAIN_JPEGCompressionSet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
321                                     TW_MEMREF pData)
322 {
323     FIXME ("stub!\n");
324
325     return TWRC_FAILURE;
326 }
327
328 /* DG_IMAGE/DAT_PALETTE8/MSG_GET */
329 TW_UINT16 TWAIN_Palette8Get (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
330                              TW_MEMREF pData)
331 {
332     FIXME ("stub!\n");
333
334     return TWRC_FAILURE;
335 }
336
337 /* DG_IMAGE/DAT_PALETTE8/MSG_GETDEFAULT */
338 TW_UINT16 TWAIN_Palette8GetDefault (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
339                                     TW_MEMREF pData)
340 {
341     FIXME ("stub!\n");
342
343     return TWRC_FAILURE;
344 }
345
346 /* DG_IMAGE/DAT_PALETTE8/MSG_RESET */
347 TW_UINT16 TWAIN_Palette8Reset (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
348                                TW_MEMREF pData)
349 {
350     FIXME ("stub!\n");
351
352     return TWRC_FAILURE;
353 }
354
355 /* DG_IMAGE/DAT_PALETTE8/MSG_SET */
356 TW_UINT16 TWAIN_Palette8Set (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
357                              TW_MEMREF pData)
358 {
359     FIXME ("stub!\n");
360
361     return TWRC_FAILURE;
362 }
363
364 /* DG_IMAGE/DAT_RGBRESPONSE/MSG_RESET */
365 TW_UINT16 TWAIN_RGBResponseReset (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
366                                   TW_MEMREF pData)
367 {
368     FIXME ("stub!\n");
369
370     return TWRC_FAILURE;
371 }
372
373 /* DG_IMAGE/DAT_RGBRESPONSE/MSG_SET */
374 TW_UINT16 TWAIN_RGBResponseSet (pTW_IDENTITY pOrigin, pTW_IDENTITY pDest,
375                                 TW_MEMREF pData)
376 {
377     FIXME ("stub!\n");
378
379     return TWRC_FAILURE;
380 }