Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

» Total Code Generator
9/9/2016, 17:43 por robsonpassos

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

TRANSPOR TABELA

9/11/2016, 10:34 por hidroluz

Bom dia a todos, gostaria de saber como consigo fazer a transposição de uma tabela no VFP.



Comentários: 0

Estatísticas
Temos 6959 usuários registrados
O último usuário registrado atende pelo nome de EDBERTO

Os nossos membros postaram um total de 17117 mensagens em 2575 assuntos

Converter arquivo .BMP para .TIF

Página 1 de 2 1, 2  Seguinte

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 15/2/2011, 09:44

Oi gente, encaminhado meu problema com o scanner, apareceu outra pedra no caminho. Preciso fazer um shellexec para usar o visualizador de fotos do Win XP para converter arquivos .BMP para .TIF. Alguem poderia me ajudar? Obrigado,
Guilherme

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 15/2/2011, 09:50

Se for paint
comando direto
****
Código:

 
RUN /n mspaint 
 

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 15/2/2011, 09:58

OUTRA forma
Código:

DECLARE INTEGER ShellExecute IN SHELL32.DLL INTEGER, STRING CDIR, STRING CFILE, ;
STRING , STRING, INTEGER
cArqbm=getfile('BMP','Selecione o arquivo','SelecionE')

If File(cArqbm)
 ShellExecute(0, "Open", cArqbm,"", Fullpath(""),0)
Else
Wait Window ' O arquivo nao esta na pasta!! ' Timeout 2
Endif


alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 15/2/2011, 10:07

Obrigado Alceu. Acho que a segunda opção vai funcionar, mais tarde darei notícias. Guilherme

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 15/2/2011, 10:23

pocha so mais tarde ,,,,,,,pensei ke era andrenalina pura ctrl C Ctrl v e run
e dar a reposta.

so lembrando
To esperando o codigo, o link la no seu topico, scaner.

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 15/2/2011, 16:37

Com o código consegui abrir o arquivo .BMP, assim:
cArqbm=('g:\Meuarq.bmp') Mas falta agora salva-lo como .TIF, ainda não consegui um caminho. Seria um "save as g:\Meuarq.tif" Por enquanto, muito obrigado pelas dicas, se tiver mais... Vou colocar o código para ler do scanner.
Guilherme

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 15/2/2011, 16:48

para imprimir e assim
Código:

DECLARE INTEGER ShellExecute IN SHELL32.DLL INTEGER, STRING CDIR, STRING CFILE, ;
STRING , STRING, INTEGER
cArqbm=getfile('BMP','Selecione o arquivo','SelecionE')

If File(cArqbm)
 ShellExecute(0, "Print", cArqbm,"", Fullpath(""),0)
Else
Wait Window ' O arquivo nao esta na pasta!! ' Timeout 2
Endif



tenta o "save as g:\Meuarq.tif" no lugar do print
no printer da ate o tamanho da foto no win7

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 16/2/2011, 07:02

Oi Dirceu, com o código da forma que está, consigo salvar manualmente a imagem clicando no ícone do disquete na parte inferior da janela. Eu gostaria de salvar automaticamente a imagem... Colocando aquele "save as g:\Meuarq.tif" não funcionou.
O sistema já está funcionando meio capenga:digito o cadastro do doc, escaneio o doc, mostro o .BMP, converto para TIF manualmente e salvo. Vou tocando o código, se tiver alguma idéia sobre a conversão automática, me avisa. Muito agradecido. Guilherme

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 16/2/2011, 07:33

Grecelp meu nome É Alceu
Qto digitar o cadastro do doc, ?
O que significa isto, vc entra no ms word,,,,,para digitar,,,,,,,,?
if
Se sim,,, olhe o topico do Mauro Victoria.!!! la vc tera um documento
[Você precisa estar registrado e conectado para ver este link.]
depois peguei o modelo dia 9/2/2010 as 15:o1 hs
e teste, ainda hj,,,,,,nao va demorar uma semana,,,,,,,,,
****
else
se nao
explique melhor esta situacao........
endif

Qto salvar compo shell executa api do window executa aplicativos word acrobat, excel, mais salvar como nao sei se e possivel!!!

Qto estar da forma artesanal,,,,,,,,,e pq isto esta me parecendo uma grafica!!!

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 16/2/2011, 09:30

Desculpe-me a troca de nomes, Alceu. É a força dos 74 janeiros...
Meu aplicativo está em VFP8. Em um form cadastro características dos documentos antigos de um cartório. Terminada aquela digitação, por um botão chamo o scanner que vai digitalizar o documento e mandar para uma pasta.
Tenho um problema com o código do scanner, e só consigo soltar arquivos .BMP. Como estes arquivos ficam enormes, transformo em .tif para não ocupar tanto espaço. Tenho 80.000 arquivos para digitalizar.
Em outro botão pesquiso os documentos que podem vistos e impressos.
Deu prá entender? Continuo grato!

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 16/2/2011, 09:52

Deu para entender, mas nao da para ver o codigo, e sempre assim a gente, nao tem uma simulacao ,,
Precisamos criar uma simulacao demo do seu codigo, para, ke nao seja esposta dados da sua empresa, voce poder fazer isto!!!,
video
link
[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

o codigo deste video esta na minha resposta anterior, e no topico do mauro.
Victoria.!!! la vc tera um documento
[Você precisa estar registrado e conectado para ver este link.]

So uma pergunta, pq nao usar impressora virtual bulzip, e salva com arquivo pdf, nao seria menor o arquivo , enquanto isto tente ,,,,,,,verei o que posso fazer

Ps .veja a dificuldade que tenho em dar a resposta , tenho ke criar um video, mostrando , um documento, com tag <nome> <endereco> para tentar simular sua situacao nao e facil para mim......entrar en sitonia com o usuario........
Se vc for programador entendera meu ponto de vista..

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 16/2/2011, 10:10

Alceu, como faço para juntar um código?

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 16/2/2011, 10:17

Guilherme,

Voce tem 2 codigos,
exemplo : progr1.prg , e progr2.prg

Tecle o comandos "Ctrl +f2 "
Irei colar o 2o.codigo no primeiro,,,,,,,,,,vou abrir o segundo ke kero colar.
1-) modi comm progr2.prg
seleciona tudo copia com ctrl+C

2-) abre o primeiro codigo

modi comm progr1.prg
vai para o final do codigo com a seta
abre mais uma dando um enter......
linha
e cola o codigo progr2

da pra entender!! sera ke realmente e isto ke voce ker, juntar dois codigos?

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 16/2/2011, 10:32

Pocha achei um assunto interessante sobre arquivos tif de imagens como imprimir
link
[Você precisa estar registrado e conectado para ver este link.]

O codigo ,,,,,,,,vou deixar registrado para futuras consultas
link do image kodac
[Você precisa estar registrado e conectado para ver este link.]
Código:

*!* START SAMPLE CODE.

PUBLIC goImaging, goImageFile
LOCAL laTiffArray[1], lcTiffDir, lcTiffFullPath, i

*!* Let user choose a DIR and generate a list of *.TIF files
*!* to print using ADIR().
lcTiffDir = GETDIR(SYS(5) + SYS(2003),"Select *.TIF Directory")
IF EMPTY(lcTiffDir)
   MESSAGEBOX("No directory selected. Aborting program.",64,"")
   RETURN .F.
ENDIF

CD (lcTiffDir)
ADIR(laTiffArray,"*.TIF")
IF TYPE("laTiffArray") = "L"
   MESSAGEBOX("There are no *.TIF files in the  selected directory. Aborting program.",64,"")
   RETURN .F.
ENDIF

*!* Start Kodak Imaging.
goImaging = CREATEOBJECT("Imaging.application")
*!* Make the Kodak Imaging window as small as possible. You cannot hide it.
goImaging.LEFT = 0
goImaging.TOP = 0
goImaging.WIDTH = 112
goImaging.HEIGHT = 27
goImaging.TopWindow = .F.

goImageFile = goImaging.CreateImageViewerObject()

WAIT WINDOW "Printing .TIF files. Please wait..." NOWAIT NOCLEAR

*!* Loop through the array and print the .tif files.
FOR i = 1 TO ALEN(laTiffArray) STEP 5
*!* We only have file names in the array. We need to give the imaging
*!* object a full path to each file.   
   lcTiffFullPath = lcTiffDir + laTiffArray[i]
   goImageFile.OPEN(lcTiffFullPath)
   goImageFile.PRINT(.F.)   && .F. suppresses the print options dialog.
   goImageFile.CLOSE(.F.)   && .F. closes file without saving changes.
ENDFOR

*!* Clean up.
goImaging.QUIT()
RELEASE goImaging, goImageFile
WAIT WINDOW "Complete!" TIME 2

*!* END SAMPLE CODE.
               

So ke no vista nao ta rodando!!! se alguem conseguir da um toque.


Última edição por alceu11 em 16/2/2011, 10:43, editado 1 vez(es)

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 16/2/2011, 10:36

Como colocar o código nesta janela? POsso descarregar com Ctrl V aqui? Ou tem algum comando, icone, para fazer isso?

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 16/2/2011, 10:40

seleciona tudo ctrl+c para copiar
abre um novo prg no fox, e ctrl+v para colar.
depois so executar.....
veja o detalhes do artigo no link que passei na resposta anterior

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 16/2/2011, 11:35

Alceu, este é o codigo original de onde retirei o meu e adicionei um pedaço final.

Código:
* XDefs translation of \EZTwain\VC\eztwain.h
*-----------------------------------------------------------------
* EZTWAIN.H - interface to Easy TWAIN library
* (DLL=eztw32.dll)
*
* 1.15    2006.05.09 Fix: If user closed the scan dialog during an Acquire,
*                    the last DIB handle, if any, was returned!
*                    Added VB\Eztwain.bas to package.
* 1.14    2004.08.06 Set XFERMECH=NATIVE as soon as DS is opened.
*                    trying to deal with scanners that default to memory xfer.
* 1.13    1999.09.08 Documented correct return codes of AcquireToFilename.
*                    - No code changes -
* 1.12    1998.09.14 Added Fix32ToFloat, allow MSG_OPENDS triplet.
*                    Added SetXferMech, XferMech.
* 1.11    1998.08.17 Added ToFix32, SetContrast, SetBrightness.
*                    Modified TWAIN_ToFix32 to round away-from-zero.
* 1.09beta 1998.07.27 Reverted from 1.08 to 1.06 and worked forward again.
* 1.06    1997.08.21 correction to message hook, fixed 32-bit exports
* 1.05    1996.11.06 32-bit conversion
* 1.04    1995.05.03 added: WriteNativeToFile, WriteNativeToFilename,
*                        FreeNative, SetHideUI, GetHideUI, SetCurrentUnits,
*                        GetCurrentUnits, SetCurrentResolution, SetBitDepth,
*                        SetCurrentPixelType, SetCapOneValue.
* 1.0a      1994.06.23 first alpha version
* 0.0      1994.05.11 created
*
* EZTWAIN 1.x is not a product, and is not the work of any company involved
* in promoting or using the TWAIN standard.  This code is sample code,
* provided without charge, and you use it entirely at your own risk.
* No rights or ownership is claimed by the author, or by any company
* or organization.  There are no restrictions on use or (re)distribution.
*
* Download from:    [Você precisa estar registrado e conectado para ver este link.]
*
* Support contact:  [Você precisa estar registrado e conectado para ver este link.]
*




       
*--------- Basic calls

DECLARE LONG TWAIN_AcquireNative IN eztw32.dll ;
  LONG hwndApp, ;
  LONG wPixTypes
* The minimal use of EZTWAIN.DLL is to just call this routine, with 0 for
* both params.  EZTWAIN creates a window if hwndApp is 0.
*
* Acquires a single image, from the currently selected Data Source, using
* Native-mode transfer. It waits until the source closes (if it's modal) or
* forces the source closed if not.  The return value is a handle to the
* acquired image.  Only one image can be acquired per call.
*
* Under Windows, the return value is a global memory handle - applying
* GlobalLock to it will return a (huge) pointer to the DIB, which
* starts with a BITMAPINFOHEADER.
* NOTE: You are responsible for disposing of the returned DIB - these things
* can eat up your Windows memory fast!  See TWAIN_FreeNative below.
*
* The image type can be restricted using the following masks.  A mask of 0
* means 'any pixel type is welcome'.
* Caution: You should not assume that the source will honor a pixel type
* restriction!  If you care, check the parameters of the DIB.

#DEFINE TWAIN_BW 1
#DEFINE TWAIN_GRAY 2
#DEFINE TWAIN_RGB 4
#DEFINE TWAIN_PALETTE 8
#DEFINE TWAIN_ANYTYPE 0

DECLARE TWAIN_FreeNative IN eztw32.dll ;
  LONG hdib
* Release the memory allocated to a native format image, as returned by
* TWAIN_AcquireNative. (If you are coding in C or C++, this is just a call
* to GlobalFree.)
* If you use TWAIN_AcquireNative and don't free the returned image handle,
* it stays around taking up Windows (virtual) memory until your application
* terminates.  Memory required per square inch:
*            1 bit B&W      8-bit grayscale    24-bit color
* 100 dpi      1.25KB              10KB              30KB
* 200 dpi        5KB              40KB              120KB
* 300 dpi      11.25KB            90KB              270KB
* 400 dpi      20KB              160KB              480KB
*

DECLARE LONG TWAIN_AcquireToClipboard IN eztw32.dll ;
  LONG hwndApp, ;
  LONG wPixTypes
* Like AcquireNative, but puts the resulting image, if any, into the system
* clipboard.  Under Windows, this will put a CF_DIB item in the clipboard
* if successful.  If this call fails, the clipboard is either empty or
* contains the old contents.
* A return value of 1 indicates success, 0 indicates failure.
*
* Useful for environments like Visual Basic where it is hard to make direct
* use of a DIB handle.  In fact, TWAIN_AcquireToClipboard uses
* TWAIN_AcquireNative for all the hard work.

DECLARE LONG TWAIN_AcquireToFilename IN eztw32.dll ;
  LONG hwndApp, ;
  STRING sFile
* Acquire an image and write it to a .BMP (Windows Bitmap) file.
* The file name and path in pszFile are used.  If pszFile is NULL or
* points to an empty string, the user is prompted with a Save File dialog.
* Return values:
* 0 success
* -1 Acquire failed OR user cancelled File Save dialog
* -2 file open error (invalid path or name, or access denied)
* -3 (weird) unable to lock DIB - probably an invalid handle.
* -4 writing BMP data failed, possibly output device is full

DECLARE LONG TWAIN_SelectImageSource IN eztw32.dll ;
  LONG hwnd
* This is the routine to call when the user chooses the "Select Source..."
* menu command from your application's File menu.  Your app has one of
* these, right?  The TWAIN spec calls for this feature to be available in
* your user interface, preferably as described.
* Note: If only one TWAIN device is installed on a system, it is selected
* automatically, so there is no need for the user to do Select Source.
* You should not require your users to do Select Source before Acquire.
*
* This function posts the Source Manager's Select Source dialog box.
* It returns after the user either OK's or CANCEL's that dialog.
* A return of 1 indicates OK, 0 indicates one of the following:
*  a) The user cancelled the dialog
*  b) The Source Manager found no data sources installed
*  c) There was a failure before the Select Source dialog could be posted
* -- details --
* Only sources that can return images (that are in the DG_IMAGE group) are
* displayed.  The current default source will be highlighted initially.
* In the standard implementation of "Select Source...", your application
* doesn't need to do anything except make this one call.
*
* If you want to be meticulous, disable your "Acquire" and "Select Source"
* menu items or buttons if TWAIN_IsAvailable() returns 0 - see below.


*--------- Basic TWAIN Inquiries

DECLARE LONG TWAIN_IsAvailable IN eztw32.dll
* Call this function any time to find out if TWAIN is installed on the
* system.  It takes a little time on the first call, after that it's fast,
* just testing a flag.  It returns 1 if the TWAIN Source Manager is
* installed & can be loaded, 0 otherwise.


DECLARE LONG TWAIN_EasyVersion IN eztw32.dll
* Returns the version number of EZTWAIN.DLL, multiplied by 100.
* So e.g. version 2.01 will return 201 from this call.

DECLARE LONG TWAIN_State IN eztw32.dll
* Returns the TWAIN Protocol State per the spec.
#DEFINE TWAIN_PRESESSION 1
#DEFINE TWAIN_SM_LOADED 2
#DEFINE TWAIN_SM_OPEN 3
#DEFINE TWAIN_SOURCE_OPEN 4
#DEFINE TWAIN_SOURCE_ENABLED 5
#DEFINE TWAIN_TRANSFER_READY 6
#DEFINE TWAIN_TRANSFERRING 7

*--------- DIB handling utilities ---------

DECLARE LONG TWAIN_DibDepth IN eztw32.dll ;
  LONG hdib
* Depth of DIB, in bits i.e. bits per pixel.
DECLARE LONG TWAIN_DibWidth IN eztw32.dll ;
  LONG hdib
* Width of DIB, in pixels (columns)
DECLARE LONG TWAIN_DibHeight IN eztw32.dll ;
  LONG hdib
* Height of DIB, in lines (rows)
DECLARE LONG TWAIN_DibNumColors IN eztw32.dll ;
  LONG hdib
* Number of colors in color table of DIB

DECLARE LONG TWAIN_RowSize IN eztw32.dll ;
  LONG hdib

DECLARE TWAIN_ReadRow IN eztw32.dll ;
  LONG hdib, ;
  LONG nRow, ;
  STRING @prow
* Read row n of the given DIB into buffer at prow.
* Caller is responsible for ensuring buffer is large enough.
* Row 0 is the *top* row of the image, as it would be displayed.

DECLARE LONG TWAIN_CreateDibPalette IN eztw32.dll ;
  LONG hdib
* Create and return a logical palette to be used for drawing the DIB.
* For 1, 4, and 8-bit DIBs the palette contains the DIB color table.
* For 24-bit DIBs, a default halftone palette is returned.

DECLARE TWAIN_DrawDibToDC IN eztw32.dll ;
  LONG hDC, ;
  LONG dx, ;
  LONG dy, ;
  LONG w, ;
  LONG h, ;
  LONG hdib, ;
  LONG sx, ;
  LONG sy
* Draws a DIB on a device context.
* You should call CreateDibPalette, select that palette
* into the DC, and do a RealizePalette(hDC) first.

*--------- BMP file utilities
 
DECLARE LONG TWAIN_WriteNativeToFilename IN eztw32.dll ;
  LONG hdib, ;
  STRING sFile
* Writes a DIB handle to a .BMP file
*
* hdib      = DIB handle, as returned by TWAIN_AcquireNative
* pszFile  = far pointer to NUL-terminated filename
* If pszFile is NULL or points to a null string, prompts the user
* for the filename with a standard file-save dialog.
*
* Return values:
*    0  success
*  -1  user cancelled File Save dialog
*  -2  file open error (invalid path or name, or access denied)
*  -3  (weird) unable to lock DIB - probably an invalid handle.
*  -4  writing BMP data failed, possibly output device is full

DECLARE LONG TWAIN_WriteNativeToFile IN eztw32.dll ;
  LONG hdib, ;
  LONG fh
* Writes a DIB to a file in .BMP format.
*
* hdib      = DIB handle, as returned by TWAIN_AcquireNative
* fh        = file handle, as returned by _open, _lopen or OpenFile
*
* Return value as for TWAIN_WriteNativeToFilename

DECLARE LONG TWAIN_LoadNativeFromFilename IN eztw32.dll ;
  STRING sFile
* Load a .BMP file and return a DIB handle (as from AcquireNative.)
* Accepts a filename (including path & extension).
* If pszFile is NULL or points to a null string, the user is prompted.
* Returns a DIB handle if successful, otherwise NULL.

DECLARE LONG TWAIN_LoadNativeFromFile IN eztw32.dll ;
  LONG fh
* Like LoadNativeFromFilename, but takes an already open file handle.


DECLARE TWAIN_SetHideUI IN eztw32.dll ;
  LONG fHide
DECLARE LONG TWAIN_GetHideUI IN eztw32.dll
* These functions control the 'hide source user interface' flag.
* This flag is cleared initially, but if you set it non-zero, then when
* a source is enabled it will be asked to hide its user interface.
* Note that this is only a request - some sources will ignore it!
* This affects AcquireNative, AcquireToClipboard, and EnableSource.
* If the user interface is hidden, you will probably want to set at least
* some of the basic acquisition parameters yourself - see
* SetCurrentUnits, SetBitDepth, SetCurrentPixelType and
* SetCurrentResolution below.

*--------- Application Registration

DECLARE TWAIN_RegisterApp IN eztw32.dll ;
  LONG nMajorNum, ;
  LONG nMinorNum, ;
  LONG nLanguage, ;
  LONG nCountry, ;
  STRING @lpszVersion, ;
  STRING @lpszMfg, ;
  STRING @lpszFamily, ;
  STRING @lpszProduct
*
* TWAIN_RegisterApp can be called *AS THE FIRST CALL*, to register the
* application. If this function is not called, the application is given a
* 'generic' registration by EZTWAIN.
* Registration only provides this information to the Source Manager and any
* sources you may open - it is used for debugging, and (frankly) by some
* sources to give special treatment to certain applications.

*--------- Error Analysis and Reporting ------------------------------------

DECLARE LONG TWAIN_GetResultCode IN eztw32.dll
* Return the result code (TWRC_xxx) from the last triplet sent to TWAIN

DECLARE LONG TWAIN_GetConditionCode IN eztw32.dll
* Return the condition code from the last triplet sent to TWAIN.
* (To be precise, from the last call to TWAIN_DS below)
* If a source is NOT open, return the condition code of the source manager.

DECLARE TWAIN_ErrorBox IN eztw32.dll ;
  STRING sMsg
* Post an error message dialog with an exclamation mark, OK button,
* and the title 'TWAIN Error'.
* pszMsg points to a null-terminated message string.

DECLARE TWAIN_ReportLastError IN eztw32.dll ;
  STRING sMsg
* Like TWAIN_ErrorBox, but if some details are available from
* TWAIN about the last failure, they are included in the message box.


*--------- TWAIN State Control ------------------------------------

DECLARE LONG TWAIN_LoadSourceManager IN eztw32.dll
* Finds and loads the Data Source Manager, TWAIN.DLL.
* If Source Manager is already loaded, does nothing and returns TRUE.
* This can fail if TWAIN.DLL is not installed (in the right place), or
* if the library cannot load for some reason (insufficient memory?) or
* if TWAIN.DLL has been corrupted.

DECLARE LONG TWAIN_OpenSourceManager IN eztw32.dll ;
  LONG hwnd
* Opens the Data Source Manager, if not already open.
* If the Source Manager is already open, does nothing and returns TRUE.
* This call will fail if the Source Manager is not loaded.

DECLARE LONG TWAIN_OpenDefaultSource IN eztw32.dll
* This opens the source selected in the Select Source dialog.
* If a source is already open, does nothing and returns TRUE.
* Fails if the source manager is not loaded and open.

DECLARE LONG TWAIN_EnableSource IN eztw32.dll ;
  LONG hwnd
* Enables the open Data Source. This posts the source's user interface
* and allows image acquisition to begin.  If the source is already enabled,
* this call does nothing and returns TRUE.

DECLARE LONG TWAIN_DisableSource IN eztw32.dll
* Disables the open Data Source, if any.
* This closes the source's user interface.
* If there is not an enabled source, does nothing and returns TRUE.

DECLARE LONG TWAIN_CloseSource IN eztw32.dll
* Closes the open Data Source, if any.
* If the source is enabled, disables it first.
* If there is not an open source, does nothing and returns TRUE.

DECLARE LONG TWAIN_CloseSourceManager IN eztw32.dll ;
  LONG hwnd
* Closes the Data Source Manager, if it is open.
* If a source is open, disables and closes it as needed.
* If the Source Manager is not open, does nothing and returns TRUE.

DECLARE LONG TWAIN_UnloadSourceManager IN eztw32.dll
* Unloads the Data Source Manager i.e. TWAIN.DLL - releasing
* any associated memory or resources.
* This call will fail if the Source Manager is open, otherwise
* it always succeeds and returns TRUE.



DECLARE LONG TWAIN_WaitForNativeXfer IN eztw32.dll ;
  LONG hwnd

DECLARE TWAIN_ModalEventLoop IN eztw32.dll
* Process messages until termination, source disable, or image transfer.


DECLARE LONG TWAIN_EndXfer IN eztw32.dll

DECLARE LONG TWAIN_AbortAllPendingXfers IN eztw32.dll


*--------- High-level Capability Negotiation Functions --------

DECLARE LONG TWAIN_NegotiateXferCount IN eztw32.dll ;
  LONG nXfers
* Negotiate with open Source the number of images application will accept.
* This is only allowed in State 4 (TWAIN_SOURCE_OPEN)
* nXfers = -1 means any number

DECLARE LONG TWAIN_NegotiatePixelTypes IN eztw32.dll ;
  LONG wPixTypes
* Negotiate with the source to restrict pixel types that can be acquired.
* This tries to restrict the source to a *set* of pixel types,
* See TWAIN_AcquireNative above for some mask constants.
* --> This is only allowed in State 4 (TWAIN_SOURCE_OPEN)
* A parameter of 0 (TWAIN_ANYTYPE) causes no negotiation & no restriction.
* You should not assume that the source will honor your restrictions, even
* if this call succeeds!

DECLARE LONG TWAIN_GetCurrentUnits IN eztw32.dll
* Ask the source what its current unit of measure is.
* If anything goes wrong, this function just returns TWUN_INCHES (0).

DECLARE LONG TWAIN_SetCurrentUnits IN eztw32.dll ;
  LONG nUnits
* Set the current unit of measure for the source.
* Unit of measure codes are in TWAIN.H, but TWUN_INCHES is 0.

DECLARE LONG TWAIN_GetBitDepth IN eztw32.dll
* Get the current bitdepth, which can depend on the current PixelType.
* Bit depth is per color channel e.g. 24-bit RGB has bit depth 8.
* If anything goes wrong, this function returns 0.

DECLARE LONG TWAIN_SetBitDepth IN eztw32.dll ;
  LONG nBits
* (Try to) set the current bitdepth (for the current pixel type).

DECLARE LONG TWAIN_GetPixelType IN eztw32.dll
* Ask the source for the current pixel type.
* If anything goes wrong (it shouldn't), this function returns 0 (TWPT_BW).

DECLARE LONG TWAIN_SetCurrentPixelType IN eztw32.dll ;
  LONG nPixType
* (Try to) set the current pixel type for acquisition.
* This is only allowed in State 4 (TWAIN_SOURCE_OPEN)
* The source may select this pixel type, but don't assume it will.

DECLARE DOUBLE TWAIN_GetCurrentResolution IN eztw32.dll
* Ask the source for the current (horizontal) resolution.
* Resolution is in dots per current unit! (See TWAIN_GetCurrentUnits above)
* If anything goes wrong (it shouldn't) this function returns 0.0

DECLARE DOUBLE TWAIN_GetYResolution IN eztw32.dll
* Returns the current vertical resolution, in dots per *current unit*.
* In the event of failure, returns 0.0.

DECLARE LONG TWAIN_SetCurrentResolution IN eztw32.dll ;
  DOUBLE dRes
* (Try to) set the current resolution for acquisition.
* Resolution is in dots per current unit! (See TWAIN_GetCurrentUnits above)
* This is only allowed in State 4 (TWAIN_SOURCE_OPEN)
* Note: The source may select this resolution, but don't assume it will.

DECLARE LONG TWAIN_SetContrast IN eztw32.dll ;
  DOUBLE dCon
* (Try to) set the current contrast for acquisition.
* The TWAIN standard says that the range for this cap is -1000 ... +1000

DECLARE LONG TWAIN_SetBrightness IN eztw32.dll ;
  DOUBLE dBri
* (Try to) set the current brightness for acquisition.
* The TWAIN standard says that the range for this cap is -1000 ... +1000

DECLARE LONG TWAIN_SetXferMech IN eztw32.dll ;
  LONG mech
DECLARE LONG TWAIN_XferMech IN eztw32.dll
* (Try to) set or get the transfer mode - one of the following:
#DEFINE XFERMECH_NATIVE 0
#DEFINE XFERMECH_FILE 1
#DEFINE XFERMECH_MEMORY 2

*--------- Low-level Capability Negotiation Functions --------

* Setting a capability is valid only in State 4 (TWAIN_SOURCE_OPEN)
* Getting a capability is valid in State 4 or any higher state.
 
DECLARE LONG TWAIN_SetCapOneValue IN eztw32.dll ;
  LONG Cap, ;
  LONG ItemType, ;
  LONG ItemVal
* Do a DAT_CAPABILITY/MSG_SET, on capability 'Cap' (e.g. ICAP_PIXELTYPE,
* CAP_AUTOFEED, etc.) using a TW_ONEVALUE container with the given item type
* and value.  The item value must fit into 32 bits.
* Returns TRUE (1) if successful, FALSE (0) otherwise.

DECLARE LONG TWAIN_GetCapCurrent IN eztw32.dll ;
  LONG Cap, ;
  LONG ItemType, ;
  STRING @pVal
* Do a DAT_CAPABILITY/MSG_GETCURRENT on capability 'Cap'.
* Copy the current value out of the returned container into *pVal.
* If the operation fails (the source refuses the request), or if the
* container is not a ONEVALUE or ENUMERATION, or if the item type of the
* returned container is incompatible with the expected TWTY_ type in nType,
* returns FALSE.  If this function returns FALSE, *pVal is not touched.

DECLARE LONG TWAIN_ToFix32 IN eztw32.dll ;
  DOUBLE d
* Convert a floating-point value to a 32-bit TW_FIX32 value that can be passed
* to e.g. TWAIN_SetCapOneValue

DECLARE DOUBLE TWAIN_Fix32ToFloat IN eztw32.dll ;
  LONG nfix
* Convert a TW_FIX32 value (as returned from some capability inquiries)
* to a double (floating point) value.

*--------- Lowest-level functions for TWAIN protocol --------


DECLARE LONG TWAIN_DS IN eztw32.dll ;
  LONG DG, ;
  LONG DAT, ;
  LONG MSG, ;
  STRING @pData
* Passes the triplet (DG, DAT, MSG, pData) to the open data source if any.
* Returns 1 (TRUE) if the result code is TWRC_SUCCESS, 0 (FALSE) otherwise.
* The last result code can be retrieved with TWAIN_GetResultCode(), and the corresponding
* condition code can be retrieved with TWAIN_GetConditionCode().
* If no source is open this call will fail, result code TWRC_FAILURE, condition code TWCC_NODS.

DECLARE LONG TWAIN_Mgr IN eztw32.dll ;
  LONG DG, ;
  LONG DAT, ;
  LONG MSG, ;
  STRING @pData
* Passes a triplet to the Data Source Manager (DSM).
* Returns 1 (TRUE) if the result code is TWRC_SUCCESS, 0 (FALSE) otherwise.
* The last result code can be retrieved with TWAIN_GetResultCode(), and the corresponding
* condition code can be retrieved with TWAIN_GetConditionCode().
* If the Source Manager is not open, this call will fail, and set the result code to TWRC_FAILURE,
* with a condition code of TWCC_SEQERROR (triplet out of sequence).


******************  juntei aqui o resto do meu código para escanear
****************************************************************************
LOCAL lcFile, lnImageHandle, lnReply
*lcFile = "c:\test\test_image.bmp"
lcFile = "\\recepcao\digital\&lugar..bmp"
* Get the image
lnImageHandle = TWAIN_AcquireNative(0,0)
* Write the image to a disk file
lnReply = ;
  TWAIN_WriteNativeToFilename(lnImageHandle,lcFile)

* Release the image handle
TWAIN_FreeNative(lnImageHandle)

* Check for errors
IF lnReply = 0
  * image successfully written to file
ELSE
  * something went wrong
ENDIF
******************************************* salva em .tif

DECLARE INTEGER ShellExecute IN SHELL32.DLL INTEGER, STRING CDIR, STRING CFILE, ;
STRING , STRING, INTEGER
cArqbm=('\\recepcao\digital\&lugar..bmp')

ShellExecute(0, "Open", cArqbm,"", Fullpath(""),0)

If File(cArqbm)
 ShellExecute(0, "save as \\recepcao\digital\&lugar.tif", cArqbm,"", Fullpath(""),0)
Else
Wait Window ' O arquivo nao esta na pasta!! ' Timeout 2
Endif



Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 16/2/2011, 11:54

Guilherme
Perguntas para que possa entender:
1-)este é o codigo que vc usara para imprimir no seu Scanner?

2-) Este codigo estava no foxit? o qual site.? pode postar o link? do local?

3-) este codigo ta funcionando ? a ondi esta o error?

4-)Voce postando este codigo,vc quer que eu faca, ja que nao tenho scaner aqui , qual seria o objetivo?

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 16/2/2011, 12:54

Este é o código que uso para DIGITALIZAR o documento no scanner, que no caso, não tem a função de printer. Digitalizo e mando prá uma pasta. Depois de fazer algumas gambi ele funciona. Se eu conseguisse mudar este código para saida do escanner em preto e branco, arquivo .tif não precisava das gambi...
O resto do código, anterior à este, é fácil e funciona muito bem. Vai ficar legal o sistema!
Foi tirado do FOXITE, daqui um pouco envio o link.

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 17/2/2011, 12:01

Nesta operação, só consigo salvar o arquivo manualmente. Como eu poderia transformar em código um "Ctrl + S"? Acho que se conseguir, salvarei o arquivo por código.

Código:
If File(cArqbm)
 ShellExecute(0, "save as \\recepcao\digital\&lugar2.tif[/u]", cArqbm,"", Fullpath(""),0)
Else
Wait Window ' O arquivo nao esta na pasta!! ' Timeout 2
Endif

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 17/2/2011, 21:48

Este codigo voce saveas tentei nao funcionou,,,ja procurei alguma referencia sobre isto nao achei....!!!

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por memarques em 18/2/2011, 15:54

Po povo

Deixa eu entender. O que se está querendo é uma rotina para transformar BMP em TIF, é isso?

Se for, ainda estão precisando?

Ate
Mauro

memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por alceu11 em 18/2/2011, 15:59

Sim Mauro e isto mesmo!!
pega o bmp e save as em tif para diminuir o tamanho!!

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por memarques em 18/2/2011, 16:16

usando o GDI é easy

Estou subindo um arquivo *.zip, com exemplo ...

Clique aqui para baixar o arquivo!

Ate
Mauro

memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Grecelp em 18/2/2011, 16:50

Acho que esta do Mauro vai resolver meu problema. Hoje à noite vou testar, obrigado, Guilherme

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Converter arquivo .BMP para .TIF

Mensagem por Conteúdo patrocinado Hoje à(s) 09:26


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Página 1 de 2 1, 2  Seguinte

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum