Ayuda para el manejo del puerto paralelo con delphi 6

[RCaceres]

Hola amigos en este momento estoy realizando un proyecto robotico y es muy necesario que obtenga información sobre el manejo del puerto paralelo mediante delphi 6. si alguien tiene algo referente a ello se los agradeceria que me envien la documentación.


GRRRRRAAAACIAS

Atte Ronald

[andesgui]

Para poder programar el puerto paralelo en delphi y winxp/win2000/2003 debes primero conseguir una libreria para acceder a los puertos como puede ser la "inpout32.dll", esta ocupa 32.768 bytes de lo contrario no va a andar tu programa. Esta libreria se debe poner en la ruta del sistema o en su defecto en la misma carpeta del programa.

aqui va un codigo que muestra como se usa dicha libreria (anda en todos los sistemas win)

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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.Button1Click(Sender: TObject);
begin
outportb($378,255); //pone el byte del puerto paralelo D0...D7 en alto (5 volts)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
outportb($378,0); //pone el byte del puerto paralelo D0...D7 en bajo (0 volts)
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption := IntToStr( inportb($379) ); //lee el byte de STATUS
end;
end.

Navegando por ahi encontre un programita hecho en delphi (con codigo fuente) que usa esta misma libreria y se encuentra en esta pag:
www.ajpdsoft.com

Espero que sea de utilidad.