Fórum Scaneamento #157486

Trape,

Se precisa visualizar uma imagem, o delphi 7 (não me lembro se as versões anteriores o incluem) tem um componente que a ajudará nessa tarefa. Trata-se do ´OpenPictureDialog´ que está na paleta ´Dialogs´. Faça o seguinte:

- Colocoque um componente ´OpenPictureDialog´ no formulário;
- Colocoque um componente ´Image´ no formulário e ajuste o tamanho
da moldura de visualização da imagem;
- Ajuste a propriedade ´Proporcional´ do objeto ´Timage´, para ´True´ e a
propriedade ´Stretch´ para ´False´;
- Inclua um componente ´Button´ e adicione esse código ao evento ´OnClick´ deste:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

Ou seja, ao clicar no botão, será exibida uma caixa de diálogo solicitando que seja escolhida uma imagem da lista.

Espero ter ajudado a tempo! (Se não der certo solicite o exemplo via e-mail - leoback@ig.com.br)

Um abraço

aproveitando o gancho

vc esta scaneando a partir do delphi?
se sim, poderia me dizer qual componente esta usando? é que eu preciso fazer um soft de scaneamento em delphi

vlw!

Um adendo:

Para visualizar imagens com a extensão JPG é necessário incluir na seção
´Uses´ da Unit que contém o controle ´OpenPictureDialog1´, a palavra
jpeg.

exemplo

[b:1e0600b355]unit[/b:1e0600b355] Unit1
[b:1e0600b355]
interface[/b:1e0600b355]

[b:1e0600b355]uses[/b:1e0600b355]
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls, Buttons, ExtCtrls, jpeg;

Um abraço

Leoback