Distribuidor Clarion Brasil

-É free, não depende de licença. -Tem todas as características do Mscomm32, mas não depende de de se instalar o Visual Basic. -Simples e eficiente. -Baixar do Site http://www.procia.com Depois de instala-lo, inclua o objeto OLE em uma Window. Depois selecione o OCX nas "Propriedades" do OLE.

Algumas Propriedades: ?com1{ 'CommPort' } = nporta !determina número da porta serial (1=COM1, 2=COM2, etc...) ?com1{ 'Settings' } = string (Ex de string: '9600,N,8,1' ; Velocidade,Paridade,bits,stop bit) ou ?com1{ 'set_Settings' } = string (versão mais recente) ?com1{ 'PortOpen' } = x !Abrir/Fechar Porta (0=Fechar; 1=Abrir ; retorna -1(true) se conseguiu abrir) ?com1{ 'InBufferCount' } !Retorna nro. de bytes recebidos na porta. vstring = ?com1{ 'InputData' } !Retorna dados recebido(s) ?com1{ 'Output' } = string !Envia caracteres para a porta. ou ?com1{ 'set_Output' } = string (versão mais recente) Obs: Para alterar Settings a porta deve estar fechada. as Propriedades devem ser digitadas exatamente como aparecem. Para saber mais sobre Propriedades do MsComm, acesse : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/comm98/html/vbobjcomm.asp Mais informações sobre o NetCommOcx: http://ourworld.compuserve.com/homepages/richard_grier/NETCommOCX.htm

Autor: Elvis Sales - Manaus/AM
e-mail: ecs900@yahoo.com.br
Especialista ENGa./Automação Industrial



-Incluir na Window dois objetos do Imaging, como segue...
 
Objeto 1: Controle de Edição de Imagens - Visualização da imagem "escaneada"

 
 

 
Objeto 2: Controle do Scanner
 


Capturar imagem do Scanner:
 
    ?OLE2{'ShowSelectScanner'}   !Mostra cx de diálogo com o(s) Scanner(s) instalado(s), para selecionar.
 
    ?ole2{'Scroll'}=false  !Indica que não deixará usar barras de rolagem enquanto a imagem estiver sendo escaneada.
 
    ?ole2{'OpenScanner'}  !Abre o Scanner selecionado.
 
    ?ole2{'StartScan'}  !Inicia o programa do Scanner e Captura figura para ser visualizado no Objeto1.

    ?ole2{'CloseScanner'}  !Fecha o Scanner.
 
    ?ole{'Refresh'}  !Atualiza o Objeto1 com a imagem escaneada.
 
    ?ole{'DisplayScaleAlgorithm'}=1  !Tipo de escala. 
 
    ?ole{'Display'} !Atualiza visualização do Objeto1
 
    ?ole{prop:height}=window{prop:height}-23    !Atualiza tamanho do Objeto1 de acordo com o tamanho da tela.
    ?ole{PROP:Width}=window{prop:width}+1
 
    unhide(?ole)  !Mostra Objeto1.
 
Manipulação da imagem:
 
    ?ole{'RotateLeft'}   !Rotaciona -90 Graus.
 
    ?ole{'RotateRight'} !Rotaciona +90 Graus.
     
    ?ole{'Zoom'} = Valor (de 2 a 6500)  (Depois do Zoom usar  ?ole{'Refresh'} )

    ?ole{'SaveAs("GenImagem#1.BMP",3,1,,,true)'}  !Salva imagem em arquivo BMP  - preto e branco)
    ?ole{'SaveAs("GenImagem#1.BMP",3,2,,,true)'}  !Salva imagem em arquivo BMP  - Normal)

    Para mais detalhes sobre o Método "SaveAs", veja o Help dos Componentes KODAK . Caso não tenha solicite pelo e-mail: ecs900@yahoo.com.br (Elvis)
 
    Abrindo um arquivo de imagem:
    hide(?ole)
 
    ?ole{'Image'}=clip(OpenImage)  !Abre o arquivo.  OpenImage é uma string contendo o nome do arquivo

    ?ole{prop:height}=window{prop:height}-23
    ?ole{PROP:Width}=window{prop:width}+1
 
    unhide(?ole)
 
    ?ole{'DisplayScaleAlgorithm'}=1
 
    ?ole{'Display'}
 
     OBS: O imaging não grava JPEG.