Porta Paralela

[danielrgoes]

Bom dia Pessoal

Pegue esse codigo na internet para controlar a porta paralela

procedure outportb(EndPorta: Integer; Valor:BYTE); stdcall; external 'inpout32.DLL' name 'Out32';

function inportb(EndPorta: Integer): BYTE stdcall; external 'inpout32.DLL' name 'Inp32';

procedure TForm1.Button1Click(Sender: TObject);

begin

outportb($378,$01);

end;

Porem baixei o Parmon para ver o resultado

mais quando eu clico no botão para acender o LED do Parmon nada acontece

alguém tem uma ideia ??

Estou usando Windows 7 com o Delphi 2007

[Jhonas]

Veja se é isso:

{Definição das funções da DLL.}
function inportb(EndPorta: Integer): BYTE stdcall; external 'inpout32.DLL' name 'Inp32';
procedure outportb(EndPorta: Integer; Valor:BYTE); stdcall; external 'inpout32.DLL' name 'Out32';

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Label2.Caption := IntToStr( inportb($379) );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    outportb($378,255); //Liga todos os pinos do Registro de Dados.
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    outportb($378,0); //Desliga todos os pinos do Registro de Dados.
end;

end.

OBS: Veja a partir da pagina 20 , vai te dar uma idéia melhor

http://www.google.com.br/url?q=http://bibd...Zrwrr2V5G3C0dWQ

abraço

[danielrgoes]

então Jhonas

Foi exatamente o que eu usei

so que presisava ver o resultado qual pino da LPT1 foi enviado o sinal

Ai usei o Parmon, mas não mostra nada no display dele

por isso to achando que a aplicação não esta funcionando

[Jhonas]

como voce usa o Parmon para fazer o teste ?

me passa o link dele para que eu possa fazer o mesmo teste aqui

abraço

[danielrgoes]

Segue o link do parmon

http://www.geekhideout.com/downloads/parmon.zip

[Jhonas]

a versão que voce passou é para o windows 95/98/NT ... se voce estiver usando XP ou outro não vai funcionar

veja outra versão do Parmon

http://www.freedownloadscenter.com/Utiliti...ies/Parmon.html

exemplo de leitura e escrita na porta paralela usando o delphi

http://www.rogercom.com/pparalela/FuncoesDelphi.htm

abraço

[danielrgoes]

Eu baixei essa versao que aparentemente é para XP

http://www.geekhideout.com/parmon.shtml

E mesmo assim não deu certo

[Jhonas]

use o componente IOPort

http://www.planetadelphi.com.br/delphi/com...ma/00000514.zip

abraço

[danielrgoes]

Jhonas antes de mais nada obrigado pelas ajudas

Porem o IOPort não funciona o D2007 ou você tem algum que funcione ???

[Jhonas]

componente IOPort para o delphi 2007

http://www.torry.net/vcl/system/portaccess/ioport.exe

outros

http://www.torry.net/pages.php?id=227

abraço