并口访问方面的编程程序出错原因 200分相送在线等解决问题马上给分 ( 积分: 100 )

fisheryj · 2005-06-03

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons, ComCtrls; type  TForm1 = class(TForm)    GroupBox1: TGroupBox;    BitBtn1: TBitBtn;    PortIOLabel: TLabel;    StatusBar1: TStatusBar;    Label1: TLabel;    PortIOStatusEdit: TEdit;    BitBtn2: TBitBtn;    SendDataMemo: TMemo;    ReadDataMemo: TMemo;    BitBtn3: TBitBtn;    procedure BitBtn1Click(Sender: TObject);    procedure BitBtn2Click(Sender: TObject);    procedure BitBtn3Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  Temp:byte;   Flag:byte;   chr:byte; implementation uses UnitPortTalk; {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin  Temp:=Inportb($000379);//读状态口数据  PortIOStatusEdit.Text:=IntToStr(Temp);  asm    MOV AH,Temp ;    MOV AL,AH           //开始判断位0    AND AL,01H   //与操作    MOV FLAG,AL  end;  if flag<>0 then PortIOLabel.Caption:='连接超时'  else  begin  PortIOLabel.Caption:='已打开';  //判断其他状态位  asm  end;  end; end; procedure TForm1.BitBtn2Click(Sender: TObject); //var //N:integer; //chr:char; begin  {asm    MOV AH,TEMP;    MOV AL,AH   //判断位7    AND AL,80H    MOV FLAG,AL  end;  IF  FLAG=0 THEN StatusBar1.Panels[0].Text:='打印机忙'  else  begin  //确认接受数据  asm    MOV AH,TEMP    MOV AL,AH    ADD AL,40H  //判断位6    MOV FLAG,AL  end;  IF FLAG=0 THEN     BEGIN       StatusBar1.Panels[0].Text:='打印机未确认';     END     ELSE       N:=Length(SendDataMemo.Text)       for I:=1 to N do           begin           end;  end;} end; procedure TForm1.BitBtn3Click(Sender: TObject); begin  asm    MOV AH,Temp ;    MOV AL,AH           //开始判断位0    AND AL,08H   //与操作    MOV FLAG,AL  end;  if flag<>0 then StatusBar1.Panels[0].Text:='打印机离线，缺纸或检测出错'  else  begin    StatusBar1.Panels[0].Text:='可以开始读数据';    chr:=InPortb($000378);    ReadDataMemo.Text:=IntToStr(Chr);  end; end; end.

fisheryj · 2005-06-03

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons, ComCtrls; type  TForm1 = class(TForm)    GroupBox1: TGroupBox;    BitBtn1: TBitBtn;    PortIOLabel: TLabel;    StatusBar1: TStatusBar;    Label1: TLabel;    PortIOStatusEdit: TEdit;    BitBtn2: TBitBtn;    SendDataMemo: TMemo;    ReadDataMemo: TMemo;    BitBtn3: TBitBtn;    procedure BitBtn1Click(Sender: TObject);    procedure BitBtn2Click(Sender: TObject);    procedure BitBtn3Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  Temp:byte;   Flag:byte;   chr:byte; implementation uses UnitPortTalk; {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin  Temp:=Inportb($000379);//读状态口数据  PortIOStatusEdit.Text:=IntToStr(Temp);  asm    MOV AH,Temp ;    MOV AL,AH           //开始判断位0    AND AL,01H   //与操作    MOV FLAG,AL  end;  if flag<>0 then PortIOLabel.Caption:='连接超时'  else  begin  PortIOLabel.Caption:='已打开';  //判断其他状态位  asm  end;  end; end; procedure TForm1.BitBtn2Click(Sender: TObject); //var //N:integer; //chr:char; begin  {asm    MOV AH,TEMP;    MOV AL,AH   //判断位7    AND AL,80H    MOV FLAG,AL  end;  IF  FLAG=0 THEN StatusBar1.Panels[0].Text:='打印机忙'  else  begin  //确认接受数据  asm    MOV AH,TEMP    MOV AL,AH    ADD AL,40H  //判断位6    MOV FLAG,AL  end;  IF FLAG=0 THEN     BEGIN       StatusBar1.Panels[0].Text:='打印机未确认';     END     ELSE       N:=Length(SendDataMemo.Text)       for I:=1 to N do           begin           end;  end;} end; procedure TForm1.BitBtn3Click(Sender: TObject); begin  asm    MOV AH,Temp ;    MOV AL,AH           //开始判断位0    AND AL,08H   //与操作    MOV FLAG,AL  end;  if flag<>0 then StatusBar1.Panels[0].Text:='打印机离线，缺纸或检测出错'  else  begin    StatusBar1.Panels[0].Text:='可以开始读数据';    chr:=InPortb($000378);    ReadDataMemo.Text:=IntToStr(Chr);  end; end; end.

fisheryj · 2005-06-03

工程文件在 fisheryj.ys168.com 2000硬件访问下面

tseug · 2005-06-03

没见到你Open这个Porttalk，是不是这个原因？

fisheryj · 2005-06-03

在UNITPORTTALK。PAS 单元里面提供了打开断口的函数 unit UnitPortTalk; interface uses  Windows, SysUtils, Dialogs,WinSvc; const  PORTTALK_TYPE = 40000; { 32768-65535是保留给用户使用的}  METHOD_BUFFERED = 0;  FILE_ANY_ACCESS = 0;  IOCTL_IOPM_RESTRICT_ALL_ACCESS  = PORTTALK_TYPE shl 16 +    $900 shl 2 +    METHOD_BUFFERED +    FILE_ANY_ACCESS shl 14;  IOCTL_IOPM_ALLOW_EXCUSIVE_ACCESS = PORTTALK_TYPE shl 16 +    $901 shl 2 +    METHOD_BUFFERED +    FILE_ANY_ACCESS shl 14;  IOCTL_SET_IOPM = PORTTALK_TYPE shl 16 +    $902 shl 2 +    METHOD_BUFFERED +    FILE_ANY_ACCESS shl 14;  IOCTL_ENABLE_IOPM_ON_PROCESSID = PORTTALK_TYPE shl 16 +    $903 shl 2 +    METHOD_BUFFERED +    FILE_ANY_ACCESS shl 14;  IOCTL_READ_PORT_UCHAR = PORTTALK_TYPE shl 16 +    $904 shl 2 +    METHOD_BUFFERED +    FILE_ANY_ACCESS shl 14;  IOCTL_WRITE_PORT_UCHAR = PORTTALK_TYPE shl 16 +    $905 shl 2 +    METHOD_BUFFERED +    FILE_ANY_ACCESS shl 14;  function OpenPortTalk:boolean;  procedure ClosePortTalk;  procedure outportb(PortAddress:word;byte1:byte);  function inportb(PortAddress:word):byte;  function StartPortTalkDriver:boolean;  procedure InstallPortTalkDriver;   var  PortTalk_Handle:THANDLE;        {PortTalk句柄} implementation procedure outportb(PortAddress:word;byte1:byte); var    error:boolean;    BytesReturned

WORD;    Buffer:array[0..2]of byte;    pBuffer

word; begin    pBuffer := pword(@Buffer[0]);    pBuffer^ := PortAddress;    Buffer[2] := byte1;    error := DeviceIoControl(PortTalk_Handle,                            Cardinal(IOCTL_WRITE_PORT_UCHAR),                            @Buffer,                            3,                            nil,                            0,                            BytesReturned,                            nil);    if (not error) then showmessagefmt('从PortTalk输出端口数据时出错:%d',[GetLastError]); end; function inportb(PortAddress:word):byte; var    error:boolean;    BytesReturned

WORD;    Buffer:array[0..2]of byte;    pBuffer

word; begin    pBuffer := pword(@Buffer[0]);    pBuffer^ := PortAddress;    error := DeviceIoControl(PortTalk_Handle,                            cardinal(IOCTL_READ_PORT_UCHAR),                            @Buffer,                            2,                            @Buffer,                            1,                            BytesReturned,                            nil);    if (not error) then showmessagefmt('从PortTalk输入端口数据时出错:%d',[GetLastError]);    result:=Buffer[0]; end; function OpenPortTalk:boolean; begin    {打开PortTalk，如果不能打开，则安装它}    PortTalk_Handle := CreateFile('//./PortTalk',                                 GENERIC_READ,                                 0,                                 nil,                                 OPEN_EXISTING,                                 FILE_ATTRIBUTE_NORMAL,                                 0);    if(PortTalk_Handle = INVALID_HANDLE_VALUE) then    begin            {启动驱动程序}            StartPortTalkDriver;            {再次打开PortTalk}            PortTalk_Handle := CreateFile('//./PortTalk',                                         GENERIC_READ,                                         0,                                         nil,                                         OPEN_EXISTING,                                         FILE_ATTRIBUTE_NORMAL,                                         0);            if(PortTalk_Handle = INVALID_HANDLE_VALUE) then            begin                    showmessage('PortTalk: 不能存取PortTalk，请确保驱动程序已安装。');                    result:=false;                    exit;            end;    end;    result:=true; end; procedure ClosePortTalk; begin    CloseHandle(PortTalk_Handle); end; function StartPortTalkDriver:boolean; type  TNewStartService=function (hService: SC_HANDLE; dwNumServiceArgs: DWORD;    lpServiceArgVectors: PPChar): BOOL; stdcall; var    SchSCManager:SC_HANDLE;    schService:SC_HANDLE;    ret:BOOL;    err

WORD; begin    {打开Service Control Manager}    SchSCManager := OpenSCManager (nil,                       { 机器 (nil = 本机) }                                  nil,                        { 数据库 (nil = 默认 }                                  SC_MANAGER_ALL_ACCESS);     { 访问权 }    if (SchSCManager = 0) then      if (GetLastError = ERROR_ACCESS_DENIED) then      begin         { 没有权限打开SCM管理,必须是poor用户}         showmessage('PortTalk: 没有权限访问Service Control Manager，'#$D#$A+                     '不能安装和启动PortTalk，请使用超级用户来安装。');         result:=false;         exit;      end;    repeat begin         {打开PortTalk服务数据库}         schService := OpenService(SchSCManager,       {服务数据库句柄}                                  'PortTalk',          {要启动的服务名}                                  SERVICE_ALL_ACCESS); {存取的权限}         if (schService = 0) then            case (GetLastError) of                ERROR_ACCESS_DENIED:                   begin                        showmessage('PortTalk: 没有权限访问PortTalk服务数据库');                        result:=false;                        exit;                   end;                ERROR_INVALID_NAME:                   begin                        showmessage('PortTalk: 指定的服务名无效');                        result:=false;                        exit;                   end;                ERROR_SERVICE_DOES_NOT_EXIST:                   begin                        //showmessage('PortTalk: PortTalk驱动程序不存在');                        InstallPortTalkDriver;                   end;            end;     end until (schService <> 0);    {启动PortTalk驱动程序，如果发生错误，一般是由于PortTalk.SYS不存在。}    ret := TNewStartService(@StartService) (schService,  {服务标识}                        0,             {参数个数}                        nil);         {参数}    if (ret) then //showmessage('PortTalk: PortTalk安装成功！')    else begin        err := GetLastError;        if (err = ERROR_SERVICE_ALREADY_RUNNING) then          showmessage('PortTalk: PortTalk已经安装')        else begin          showmessage('PortTalk: 启动PortTalk时发生未知错误。'+#$D#$A+                      'PortTalk.SYS没有放入/System32/Drivers目录吗?');          result:=false;          exit;        end;    end;    {关闭Service Control Manager}    CloseServiceHandle (schService);    result:=TRUE; end; procedure InstallPortTalkDriver; var    SchSCManager:SC_HANDLE;    schService:SC_HANDLE;    err

WORD;    DriverFileName:array[0..79]of CHAR; begin    if (GetSystemDirectory(DriverFileName, 55)=0) then    begin       showmessage('PortTalk: 取System目录出错');       exit;    end;    {加入驱动程序文件名}    lstrcat(DriverFileName,'/Drivers/PortTalk.sys');    //showmessagefmt('PortTalk: 拷贝驱动程序到%s',[DriverFileName]);    {拷贝驱动程序到System32/drivers目录，如果出错，一般是因为文件不存在。}    if (not CopyFile('PortTalk.sys', DriverFileName, FALSE)) then    begin         showmessagefmt('PortTalk: 拷贝驱动程序到以下位置出错：%s'+#$D#$A+                        '请手工拷贝到system32/driver目录',                        [DriverFileName]);         exit;    end;    {打开Service Control Manager}    SchSCManager := OpenSCManager (nil,                   { 机器 (nil = 本机) }                                  nil,                    { 数据库 (nil = 默认 }                                  SC_MANAGER_ALL_ACCESS); { 访问权 }    schService := CreateService (SchSCManager,                     { SCManager数据库 }                                'PortTalk',                        { 服务个数 }                                'PortTalk',                        { 显示名 }                                SERVICE_ALL_ACCESS,                { 权限 }                                SERVICE_KERNEL_DRIVER,             { 服务类别 }                                SERVICE_DEMAND_START,              { 启动类别 }                                SERVICE_ERROR_NORMAL,              { 出错控件类别 }                                'System32/Drivers/PortTalk.sys',   { 服务二进制文件 }                                nil,                               { 加入的组 }                                nil,                               { 标识 }                                nil,                               { 隶属 }                                nil,                               { 本地帐户 }                                nil                                { 密码 }                               &nbsp

;    if (schService = 0) then    begin         err := GetLastError;         if (err = ERROR_SERVICE_EXISTS) then               showmessage('PortTalk: 驱动程序不存在。')         else  showmessage('PortTalk:建立服务时发生未知的错误。');    end;    //else showmessage('PortTalk: 成功安装！');    { 关闭Service Control Manager }    CloseServiceHandle (schService); end; end.

tseug · 2005-06-03

这个我知道，问题是我没看到你在那里调用OpenPortTalk函数

fisheryj · 2005-06-03

好象是 我调试一下看看

刘麻子 · 2005-06-03

不好意思,我没搞过,所以帮不上忙了

fisheryj · 2005-06-04

我吧 OpenPortTalk函数   给楼了 好了弄好了

并口访问方面的编程程序出错原因 200分相送在线等解决问题马上给分 ( 积分: 100 )

fisheryj

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

Similar threads

并口访问方面的编程 程序出错原因 200分相送 在线等 解决问题马上给分 ( 积分: 100 )

fisheryj

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

fisheryj

Unregistered / Unconfirmed

Similar threads

并口访问方面的编程程序出错原因 200分相送在线等解决问题马上给分 ( 积分: 100 )