DELPHI并口编程范例.doc

DELPHI并口编程范例DELPHI并口编程范例WritenbyCatSoftwareunitFileTransfer;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Buttons,ExtCtrls,FileCtrl,ComCtrls;constBlockSize=64512;64510bytesofdata+2byteschecksumthisblockcouldbemuchbiggerbutthenextimplementationwillbeinDMAinsteadofprogrammedIOandDMAblocksarelimitedto64Kbbesidesthedosversionalsohasalimittedblocksizeandthiswaythe2versionscouldbecompatibletypeTFloatFormat=(ffGeneral);FileType=ARRAY0.BlockSize-1ofbyte;TForm1=class(TForm)Edit1:TEdit;DirectoryListBox1:TDirectoryListBox;FileListBox1:TFileListBox;DriveComboBox1:TDriveComboBox;Bevel1:TBevel;Send:TBitBtn;Receive1:TBitBtn;Close:TBitBtn;Bevel2:TBevel;CheckBox1:TCheckBox;CheckBox2:TCheckBox;CheckBox3:TCheckBox;CheckBox4:TCheckBox;Label5:TLabel;Label6:TLabel;Label7:TLabel;Label8:TLabel;Label9:TLabel;Label10:TLabel;Label11:TLabel;Label12:TLabel;Label14:TLabel;Label15:TLabel;ProgressBar1:TProgressBar;ComboBox2:TComboBox;Label1:TLabel;Label2:TLabel;Label3:TLabel;Label4:TLabel;Label13:TLabel;Label16:TLabel;Label17:TLabel;Label18:TLabel;Label19:TLabel;Label20:TLabel;Bevel3:TBevel;ProgressBar2:TProgressBar;procedureCloseClick(Sender:TObject);procedureFileListBox1Click(Sender:TObject);procedureSendClick(Sender:TObject);procedureReceive1Click(Sender:TObject);procedureComboBox2Change(Sender:TObject);procedureInitialisePort;procedureResetPort;privatePrivatedeclarationspublicPublicdeclarationsend;varForm1:TForm1;implementationvarLPTnAddress,ECRAddress,DCRAddress,DSRAddress,ecpDFifoAddress,cnfgAAddress,cnfgBAddress:word;Size,RealBlockSize,ThisBlockSize:integer;LengthOfName,NumberOfBlocks:integer;Implement:(EightBit,SixteenBit,ThirtytwoBit);fname:string;AttrByte:integer;NameString:string255;f:file;FileData:FileType;CSCOk,Error,ImplementationNr:byte;NoFile,ImplementTest:Boolean;$R*.DFMProcedureTForm1.ResetPort;beginLabel12.Show;ProgressBar1.Position:=0;ASMmovdx,ECRAddressmoval,$04SPPmode,FIFOwillberesetwhengoingtoECPmodeoutdx,almoval,$74ECPmode,FIFOresetoutdx,almovdx,DCRAddressmoval,$08;resetcontrollinesoutdx,alend;Exit;end;ProcedureTForm1.InitialisePort;beginASMinitialisationmovax,LPTnAddressincaxmovDSRAddress,axLPTnAddress+$001,DeviceStatusRegisterincaxmovDCRAddress,axLPTnAddress+$002,DeviceControlRegisteraddax,$3FEmovecpDFifoAddress,axLPTnAddress+$400,ECPdataFIFOmovcnfgAAddress,axLPTnAddress+$400,ConfigurationRegisterAincaxmovcnfgBAddress,axLPTnAddress+$401,ConfigurationRegisterBincaxmovECRAddress,axLPTnAddress+$402,ExtendedControlRegistermovdx,ECRAddressmoval,$04SPPmode,FIFOwillberesetwhengoingtoECPmodeoutdx,almoval,$F4configurationAmode,gettypeofport(8,16or32bit)outdx,almovdx,cnfgAAddressgettheimplementationnumberwhichcorrespondswiththetypeoftheportinal,dxandal,$70shral,4movImplementationNr,almovdx,ECRAddressmoval,$74ECPmode,noIRQofnFault,noDMAandnoserviceIRQoutdx,alend;IFImplementationNr=0THENBeginImplement:=SixteenBit;Label15.Caption:=16-bitimplementation;ImplementTest:=true;end;IFImplementationNr=1THENBeginImplement:=EightBit;Label15.Caption:=8-bitimplementation;ImplementTest:=true;end;IFImplementationNr=2THENBeginImplement:=SixteenBit;32-bitimplementationneverfound,doesitexist?Label15.Caption:=32-bitimplementation,16-bitused;ImplementTest:=true;end;IFImplementationNr>2THENBeginLabel15.Caption:=NotavalidECPport;ImplementTest:=false;end;end;ProcedureReceiveCheckSumCheck;BeginASMmovecx,$00FFFFFFloadtime-outcountermovdx,ECRAddressfifoNotEmpty:waitforemptyFIFO,thiskindofpollingisfrequentlyusedintheprograminal,dxtestal,$01testFIFO-fullbitjnzfifoEmptydececxtime-outcounterjnzfifoNotEmptymovError,1time-outoccuredjmpendfifoEmpty:movdx,DCRAddressRequestforresultofchecksummoval,$00Selectlnlow,resultsinnFaulthighforreceiveroutdx,almovecx,$00FFFFFFmovdx,DSRAddressWaitForAck:Waitstillreceiverisdonewithchecksuminal,dxtestal,$08nFaulthigh,comesfromnSelectLnlowjnzGotAcknowledgedececxjnzWaitForAckmovError,1jmpendGotAcknowledge:getschecksumresult:PError,comesfromnInitandal,$20shral,4movCSCOk,almovdx,ECRAddressresetFIFOmoval,$14outdx,almoval,$74outdx,almovdx,DCRAddresssendacknowledge,resetcontrollinesmoval,$08;nSelectlnhigh,resultsinnFaultlowforreceiveroutdx,alend:end;end;ProcedureSendCheckSumCheck;BeginASMmovecx,$00FFFFFFmovdx,DSRAddressWaitSend:waitingforsendertorequestchecksumresultinal,dxtestal,$08waitfornFaulttobehigh(nSelectlnissetlow)jnzSendCheckSumdececxjnzWaitSendmovError,1jmpendSendCheckSum:movdx,ECRAddressresetFIFOBEFOREReceiveCheckSumCheckresetshisFIFOmoval,$14elsesomebytesmaygetlostduringresetingoutdx,almoval,$74outdx,almovdx,DCRAddresssendchecksumresult:nInit,resultsinPErrormoval,CSCOkshlal,2outdx,almovdx,DSRAddressmovecx,$00FFFFFFWaitReceive:waitforacknowledgeofsenderinal,dxtestal,$08waitfornFaulttobelow(nSelectlnissethigh)jzGotAcknowledgedececxjnzWaitReceivemovError,1jmpendGotAcknowledge:movdx,DCRAddressresetcontrollinesmoval,$28outdx,alend:end;end;ProcedureReceiveSynchronisation;basiclythesameasReceiveCheckSumCheckBeginASMmovecx,$1FFFFFFFlargetimeoutcountertogiveenoughtimetoclickthebuttonmovdx,DSRAddressWaitSend:waitingforsendertorequestsynchroinal,dxtestal,$08waitfornFaulttobehigh(nSelectlnissetlow)jnzGotRequestdececxjnzWaitSendmovError,1jmpendGotRequest:movdx,ECRAddressresetFIFOmoval,$14outdx,almovdx,ECRAddressmoval,$74outdx,almovdx,DCRAddresssendacknowledgemoval,$00outdx,almovecx,$00FFFFFFmovdx,DSRAddressWaitReceive:waitforacknowledgeofsenderinal,dxtestal,$08waitfornFaulttobelow(nSelectlnissethigh)jzGotAcknowledgedececxjnzWaitReceivemovError,1jmpendGotAcknowledge:movdx,DCRAddressresetcontrollines,readmoval,$28outdx,alend:end;end;ProcedureSendSynchronisation;basiclythesameasSendCheckSumCheckBeginASMmovdx,DCRAddressRequestforresultofchecksummoval,$00Selectlnlow,resultsinnFaulthighforreceiveroutdx,almovecx,$1FFFFFFFmovdx,DSRAddressWaitForAck:Waitstillreceiversendacknowledgeinal,dxtestal,$08nFaulthigh,comesfromnSelectLnlowjnzGotAcknowledgedececxjnzWaitForAckmovError,1jmpendGotAcknowledge:movdx,ECRAddressresetFIFOmoval,$14outdx,almoval,$74outdx,almovdx,DCRAddresssendacknowledge,resetcontrollines,writemoval,$08;nSelectlnhigh,resultsinnFaultlowforreceiveroutdx,alend:end;end;procedureTForm1.CloseClick(Sender:TObject);beginApplication.Terminate;end;procedureTForm1.FileListBox1Click(Sender:TObject);proceduretochangetheattributeofafilebeginNoFile:=FALSE;AttrByte:=0;Edit1.Text:=ExtractRelativePath(ExtractFileDir(FileListBox1.FileName)+,FileListBox1.FileName);Edit1.OEMConvert:=TRUE;fname:=Edit1.Text;NameString:=Edit1.Text;AttrByte:=FileGetAttr(fname);AssignFile(f,fname);reset(f);CloseFile(f);IF(IOResult<>0)OR(fname=)THENBeginLabel12.Caption:=Filenotfound!;NoFile:=TRUE;endELSEBeginLabel12.Caption:=fname+selected;Label12.Update;end;IfAttrByteANDfaReadOnly=faReadOnlythenCheckBox1.Checked:=TrueelseCheckBox1.Checked:=False;IfAttrByteANDfaHidden=faHiddenthenCheckBox2.Checked:=TrueelseCheckBox2.Checked:=False;IfAttrByteANDfaSysFile=faSysFilethenCheckBox3.Checked:=TrueelseCheckBox3.Checked:=False;IfAttrByteANDfaArchive=faArchivethenCheckBox4.Checked:=TrueelseCheckBox4.Checked:=False;end;procedureTForm1.SendClick(Sender:TObject);proceduretosendafilevarTime1,Time2,BlockTime1,BlockTime2,BlockTransferRate,TransferRate:Double;Tel,BlockCount:Integer;beginLabel6.Caption:=;clearthemessagesLabel8.Caption:=;Label10.Caption:=;Label12.Caption:=;Label18.Caption:=;Label19.Caption:=;Label20.Caption:=;Label6.Update;Label8.Update;Label10.Update;Label12.Update;Label18.Update;Label19.Update;Label20.Update;BlockTime1:=0;BlockTime2:=0;IFNOTImplementTestTHENBeginLabel12.Caption:=Novalidportselected!;Exit;End;IFNoFileTHENBeginLabel12.Caption:=Novalidfileselected!;Exit;End;NameString:=Edit1.Text;LengthOfName:=ByteToCharLen(NameString,254)+1;AssignFile(f,NameString);reset(f,1);IF(IOResult<>0)OR(fname=)THENBeginLabel12.Caption:=Filenotfound!;ResetPort;end;Label18.Caption:=NameString;Label19.Caption:=IntToStr(BlockSize);Label18.Update;Label19.Update;SendSynchronisation;waitforreceivertobereadyIFError=1THENBeginLabel12.Caption:=01ECPtimeout,datatransferisaborted;ResetPort;end;Time1:=Now;Size:=FileSize(f);NumberOfBlocks:=SizeDIV(BlockSize-2);IF(SizeMOD(BlockSize-2)<>0THENNumberOfBLocks:=NumberOfBlocks+1;Label6.Caption:=IntToStr(NumberOfBlocks);Label8.Caption:=IntToStr(Size);Label6.Update;LAbel8.Update;Error:=0;ASMmovecx,$0FFFFFFFmovdx,ECRAddressfifoNotEMPTY_SendBlockSize:waitforFIFOtobeempty(shouldbe)andreportstallinal,dxtestal,$01jnzfifoEMPTY_SendBlockSizedececxjnzfifoNotEMPTY_SendBlockSizemovError,1jmpendfifoEMPTY_SendBlockSize:movdx,ecpDFifoAddressmoveax,SizeloadseaxwithSizeoutdx,alsendlowbyteoflowwordmoval,ahoutdx,alsendhighbyteoflowwordshreax,16movehighwordtolowwordoutdx,alsendlowbytehighwordmoval,ahoutdx,alsendlowbytehighwordmoveax,LengthOfNameloadeaxwithlengthofthefilenamemovTel,eaxloadloopcounterwithlengthoutdx,alsendlengthofthefilenameleaebx,NameStringgetaddressofstringcontainingfilenameLoopSendName:returnofloopTelmovecx,$000FFFFFmovdx,ECRAddressfifoFULL_SendName:waitforFIFOtobeemptyandreportstallinal,dxtestal,$02jzfifoNotFULL_SendNamedececxjnzfifoFULL_SendNamemovError,1jmpendfifoNotFULL_SendName:transmitdatamovdx,ecpDFifoAddressmoval,ebxmovebyteofNameStringinaloutdx,alsenditincebxpointatnextbytedecTelcmpTel,0jnzLoopSendNameuntilTel=0moveax,$05addeax,LengthOfNamecomputethenumberofbytessendcmpal,$0Flowerthan16?jnb16BytesSendmovcl,$10computenumberofbytestoreachablockof16bytessubcl,alFillFIFO:sendsomeextrabytestofillaFIFO=16bytesoutdx,aldeccljnzFillFIFOjmpend16BytesSend:testal,$01numberofbytessendoddoreven?jzendoutdx,alsendextrabytetosupport16bitFIFOend:end;IFError=1THENBeginLabel12.Caption:=02ECPtimeout,datatransferisaborted;ResetPort;end;SendSynchronisation;secondsynchrotoclearFIFOProgressBar1.Max:=NumberOfBlocks;ProgressBar1.Step:=1;CaseImplementOFdifferentimplementationfor8bitand16bitECPportsEightBit:BeginFORBlockCount:=1TONumberOfBlocksDOBeginBlockRead(f,FileData,BlockSize-2,RealBlockSize);readblocksize-2bytesoffileatonceIFBlockCount=1THENBlockTime1:=Now;usedtocomputeblocktransferrateREPEATASMleaebx,FileDatagetaddressofdatatobesendxorax,axmovecx,RealBlockSizeloadecxwithRealBlockSizeChecksumLoop:computechecksumbyxor-ingwiththebyteandrotatethewordtoleftxoral,ebxrolax,1incebxdececxjnzCheckSumLoopmovebx,axstorechecksumafterdatablockmovedx,RealBlockSizeloadedxwithRealBlockSizeincedxlast2bytesarechecksumincedxmoveax,edxshredx,4getRealBlockSizediv16andeax,$0Fisblockdividebleby16?cmpeax,0jzBlockDivideble16incedxifnot:incresenumberof16byteblocksby1BlockDivideble16:movTel,edxloadtheloopcounterTelleaebx,FileDatagetaddressofdatatobesendLoopSendData:returnmovecx,$00FFFFFFmovdx,ECRAddressfifoNotEMPTY_SendData:waitforFIFOtobeemptyandreportstallinal,dxtestal,$01jnzfifoEMPTY_SendDatadececxjnzfifoNotEMPTY_SendDatamovError,1jmpendfifoEMPTY_SendData:transmitdatainaburstof16bytesmovcl,$10loadsloopcounterwith16movdx,ecpDFifoAddressLoop16Bytes:returnofloopmoval,ebxsendabyteofthedataoutdx,alincebxdeccljnzLoop16Bytesuntil16bytesaresenddecTelcmpTel,0jnzLoopSendDatauntilTel=0end:end;IFError=1THENBeginLabel12.Caption:=03ECPtimeout,datatransferaborted;ResetPort;end;ReceiveCheckSumCheck;IFError=1THENBeginLabel12.Caption:=04ECPtimeout,datatransferisaborted;ResetPort;end;IFCSCOk=0THENBeginLabel12.Caption:=Checksumerroronblock+IntToStr(BlockCount);Label12.update;end;UNTILCSCOk<>0;ProgressBar1.StepIt;IFBlockCount=1THENBlockTime2:=Now;usedtocomputeblocktransferrateEnd;End;SixteenBit:basiclythesameas8bitbutinsteadofsendingabyte,sendawordBeginFORBlockCount:=1TONumberOfBlocksDOBeginBlockRead(f,FileData,BlockSize-2,RealBlockSize);IFBlockCount=1THENBlockTime1:=Now;REPEATASMleaebx,FileDatacomputechecksumxorax,axmovecx,RealBlockSizeChecksumLoop:xoral,ebxrolax,1incebxdececxjnzCheckSumLoopmovebx,axmovedx,RealBlockSizedeterminenumberof16byteblocksincedxincedxmoveax,edxshredx,4andeax,$0Fcmpeax,0jzBlockDivideble16incedxBlockDivideble16:movTel,edxloadtheloopcounterTelleaebx,FileDatagetaddressofFileDataLoopSendData:returnmovecx,$00FFFFFFmovdx,ECRAddressfifoNotEMPTY_SendData:waitforFIFOtobeemptyandreportstallinal,dxtestal,$01jnzfifoEMPTY_SendDatadececxjnzfifoNotEMPTY_SendDatamovError,1jmpendfifoEMPTY_SendData:transmitdatainaburstof16bytesmovcl,$08loadsloopcounterwith8,8times2bytesis?movdx,ecpDFifoAddressLoop16Bytes:returnmovax,ebxoutdx,axincebxincebxdeccljnzLoop16Bytesuntil16bytesaresenddecTelcmpTel,0jnzLoopSendDatauntilTel=0end:end;IFError=1THENBeginLabel12.Caption:=03ECPtimeout,datatransferaborted;ResetPort;end;ReceiveCheckSumCheck;receivesthechecksumcopmparingresultIFError=1THENBeginLabel12.Caption:=04ECPtimeout,datatransferisaborted;ResetPort;end;IFCSCOk=0THENBeginLabel12.Caption:=Checksumerroronblock+IntToStr(BlockCount);Label12.Show;end;UNTILCSCOk<>0;ProgressBar1.StepIt;IFBlockCount=1THENBlockTime2:=Now;End;End;End;ProgressBar1.Position:=0;CloseFile(f);Time2:=Now;TransferRate:=Size/(Time2-Time1)*24*3600*1024);IFBlockTime1<>BlockTime2THENBlockTransferRate:=BlockSize/(BlockTime2-BlockTime1)*24*3600*1024)ELSEBlockTransferRate:=0;Label10.Caption:=FloatToStrF(TransferRate,FFfixed,5,2);Label12.Caption:=Datatransmitted;Label20.Caption:=FloatToStrF(BlockTransferRate,FFfixed,6,2);end;procedureTForm1.Receive1Click(Sender:TObject);proceduretoreceiveafileVarTel,BlockCount:Integer;beginLabel6.Caption:=;Label8.Caption:=;Label10.Caption:=;Label12.Caption:=;Label18.Caption:=;Label19.Caption:=;Label20.Caption:=;Label6.Update;Label8.Update;Label10.Update;Label12.Update;Label18.Update;Label19.Update;Label20.Update;IFNOTImplementTestTHENBeginLabel12.Caption:=Novalidportselected!;ResetPort;End;NameString:=;Error:=0;ReceiveSynchronisation;waitsforsendertobereadyIFError=1THENBeginLabel12.Caption:=01ECPtimeout,datatransferaborted;ResetPort;end;ASMvirtualythesameasinSendClick,butininsteadofoutmovecx,$00FFFFFFmovdx,ECRAddressfifoNotFULL_ReceiveBlockSize:waitforFIFOtobeemptyandreportstallinal,dxtestal,$02jnzfifoFULL_ReceiveBlockSizedececxjnzfifoNotFULL_ReceiveBlockSizemovError,1jmpendfifoFULL_ReceiveBlockSize:receivethesizeofthefilexorebx,ebxmovdx,ecpDFifoAddressinal,dxmovbl,alrece