自认为的超难问题(200分)

vickymade · 2003-12-08

最近小弟下载了一个LPTCtrl的控件，可能是D3或D4的。 小弟在D7下编译，发现有一个函数编译不过去。如下： procedure TlptCtrl.FindLptAddr; begin   FPortAddrArr[1] := mem[$0040:$08] + mem[$0040:$09]*256;   if FPortAddrArr[1] > 0 then FLptAvail[1] := true;   FPortAddrArr[2] := mem[$0040:$0A] + mem[$0040:$0B]*256;   if FPortAddrArr[2] > 0 then FLptAvail[2] := true;   FPortAddrArr[3] := mem[$0040:$0C] + mem[$0040:$0D]*256;   if FPortAddrArr[3] > 0 then FLptAvail[3] := true; end; 这个函数编译不过去的地方就在于使用了MEM这个函数，可小弟查遍了Delphi参考手册也没有找到这个函数，在Source找了半天也还是没有找到，请各位高人相助。

vickymade · 2003-12-08

连个关注的人都没有啊？也帮个门儿顶顶啊。其实我的问题就是想要得到能够在2K下不通过驱动程序来控制并口的代码。谁给偶一个代码，便已过去了，偶就把200分给他。

vickymade · 2003-12-08

该控件全部代码如下： unit LptCtrl; {-------------------------------------------------------------------- IDENTIFICATION Unit Name:      LptCtrl Reg No:         - Revision:       See revision history. File Name:      LptCtrl.pas Target:         PC w Intel 386+, LPT port, Windows 3.1 or compatible. Compiler:       Delphi 1.x. Note! This unit will probably                 not compile with Delphi 2.x. Issued By:      (c) Tord Andersson, 1996. (anderssonto@decus.se). Legal disclaimer. The author will take no responsibilty for damages that could be the result of using this component. Reviewed By:    - Tested By:      - DESCRIPTION This unit holds TlptCtrl, a class/component which is intended for reading/writing directly to an LPT port. REVISION HISTORY Version  Date    Change/addition                  Resp 0.2      960606  Released to the public domain.   Tord Andersson ====================================================================} interface uses   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,   Forms, Dialogs; type   TLpt = (None, Lpt1, Lpt2, Lpt3);   TLptAvail = array [1..3] of boolean; { is port available? }   TPortAddrArr = array [1..3] of word;   TlptCtrl = class(TComponent)   private     { Private declarations }     FLpt: TLpt;     FPortAddrArr: TPortAddrArr;         { LPT port addresses }     FPortAddr: word; { selected LPT port address }     FLptAvail: TLptAvail;     FData: byte;        { LPT data out }     FDummy: byte;       { will only be used to make 'Status' published }     procedure SetLptPort(Value: Tlpt);     { SetPortAddress will usually be automatically handled       through SetLptPort. }     procedure SetPortAddress(Value: word);     procedure SetData(Value: byte);     function  GetStatus: byte;     function  GetCtrl: byte;     procedure SetCtrl(Value: byte);     procedure FindLptAddr;   protected     { Protected declarations }   public     { Public declarations }     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;     property LptAvail: TLptAvail read FLptAvail; { what ports are available? }   published     { Published declarations }     property LptPort: TLpt read FLpt write SetLptPort default None;     property PortAdress: word read FPortAddr write SetPortAddress;     property Data: byte read Fdata write SetData default 0;     property Status: byte read GetStatus write FDummy;     property Ctrl: byte read GetCtrl write SetCtrl;   end; procedure Register; implementation {  FindLptAddr - Will find the addresses of LPT port (1-3).    Non valid ports will result in address 0.    Note FLptPortAddr[] and FLptAvail will be affected. } procedure TlptCtrl.FindLptAddr; begin   { Yes, I know, this could have been coded as a loop... }   FPortAddrArr[1] := mem[$0040:$08] + mem[$0040:$09]*256;   if FPortAddrArr[1] > 0 then FLptAvail[1] := true;   FPortAddrArr[2] := mem[$0040:$0A] + mem[$0040:$0B]*256;   if FPortAddrArr[2] > 0 then FLptAvail[2] := true;   FPortAddrArr[3] := mem[$0040:$0C] + mem[$0040:$0D]*256;   if FPortAddrArr[3] > 0 then FLptAvail[3] := true; end; procedure TLptCtrl.SetLptPort(Value: Tlpt); { To set up the choosen port } begin   case Value of     Lpt1: if FLptAvail[1] then           begin             FPortAddr := FPortAddrArr[1];             FLpt := Lpt1;           end;     Lpt2: if FLptAvail[2] then           begin             FPortAddr := FPortAddrArr[2];             FLpt := Lpt2;           end;     Lpt3: if FLptAvail[3] then           begin             FPortAddr := FPortAddrArr[3];             FLpt := Lpt3;           end;     else           begin             FPortAddr := 0;             FLpt := None;           end;   end; end; procedure TlptCtrl.SetPortAddress(Value: word); { for those who hate automation : ) } begin   FPortAddr := Value; end; procedure TlptCtrl.SetData(Value: byte); { put data on LPT data lines } begin   if FLpt <> None then     begin       Port[FPortAddr] := Value;       FData := Value;     end; end; function TlptCtrl.GetStatus: byte; { read data from LPT status lines } begin   if FLpt <> None then     begin       Result := Port[FPortAddr + 1];     end   else     Result := 0; end; function TlptCtrl.GetCtrl: byte;{ to read what was put on the Ctrl lines } begin if FLpt <> None then   begin     Result := Port[FPortAddr + 2];   end   else     Result := 0; end; procedure TlptCtrl.SetCtrl(Value: byte); { put data on Ctrl lines } begin   if FLpt <> None then   begin     Port[FPortAddr + 2] := Value;   end; end; procedure Register; begin   RegisterComponents('I/O', [TlptCtrl]); end; { constructor } constructor TLptCtrl.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FindLptAddr; (* find available LPT ports *) end; { destructor - just as a placeholder if cleanup will be necessary } destructor TLptCtrl.Destroy; begin   inherited Destroy; end; end.

zhang_yz6666 · 2003-12-08

不好意思，帮不了你！ 帮你定，提前！

windbell · 2003-12-08

MEM不是函数，而是一个delphi系统内建的数组变量，它以内存地址为下标来存取指定的地址(实际相当一个指针构造器)，由于进入了windows以后，系统不允许存取物理地址，所以在后来的版本中它就可能被取消了(同时好象还有一个指示字abstract后跟一个地址的那种用法)，你可以根据你的程序中的功能，用相应的代码变换一下。 分析你的上面这段程序，是判断打印机的接口是否可用，你可以用相应的api来进行。

乖乖兔 · 2003-12-08

这种形式的地址声明不能用于WINDOWS的保护模式下，因为WINDOWS不允许你的应用程序访问程序外的内存区域，如果这种形式指定的地址不在WINDOWS分配给应用程序的内存范围内，将引起落架 General Protection Fault 错误！还有 MemW,MemL 都是不可以用了。 你可以用以下的变通用法来改此函数： procedure TlptCtrl.FindLptAddr; var aStr: String;     aStraddr: Byte Absolute aStr; begin   {FPortAddrArr[1] := mem[$0040:$08] + mem[$0040:$09]*256;} //此句是原来的   FPortAddrArr[1] :=  aStraddr + (aStraddr+1) * 256; //改后的语句   if FPortAddrArr[1] > 0 then FLptAvail[1] := true;   ///...... end;

fly2003 · 2003-12-08

我只能帮你提前了！

vickymade · 2003-12-09

水平太洼了。那位老兄能将这个控件改得在D7下可以用了啊？

乖乖兔 · 2003-12-09

晕死,我给得你代码,你把那个函数换一下不就行了吗!

kimlon · 2003-12-09

我有DLL，与我联系.kimlon@163.com

Aiirii · 2003-12-09

>>Compiler:       Delphi 1.x. Note! This unit will probably 這個是個d1編的東西, 也就是說是十六位的, 估計已經無法在現在版本用了, 因為, 直接用到硬件地址的, 就算按乖乖兔的說法做, 我想也是不行的! 找新的相關功能的控件吧!

vickymade · 2003-12-11

我的信箱：VSoft@163.com

自认为的超难问题(200分)

vickymade

Unregistered / Unconfirmed

vickymade

Unregistered / Unconfirmed

vickymade

Unregistered / Unconfirmed

zhang_yz6666

Unregistered / Unconfirmed

windbell

Unregistered / Unconfirmed

乖乖兔

Unregistered / Unconfirmed

fly2003

Unregistered / Unconfirmed

vickymade

Unregistered / Unconfirmed

乖乖兔

Unregistered / Unconfirmed

kimlon

Unregistered / Unconfirmed

Aiirii

Unregistered / Unconfirmed

vickymade

Unregistered / Unconfirmed

Similar threads