各位大哥、大姐，小弟现在手头上有一设备的串口通讯协议，想把它用Spcomm封装到DLL里面，可是做了几次都不成功，大家能不能帮忙给看一下？ (200分)

Spring_Thunder · 2003-06-08

通讯格式采用RS232/RS485 通讯协议。 采用半双工通讯方式。 波特率：9600 数据位：8 停止位：1 奇偶校验位：无 相同的协议对于不同的设备在内部的数据存放格式不一定相同，但是对于外部主机设备，通讯的过程表现一样但是对于不同的设备具体的数据格式可能不同。 通讯流程： 1, 通讯主机向从机发送命令。发送的过程完全是主机主动，所有通讯都是由主机发送命令引起的。 2，每次通讯都以主机呼叫，收到从机的应答为一次通讯过程。 3，每次通讯的时间限定在100MS以内。（包括所有通讯过程，1主机发送的呼叫命令必须在100MS内发完        从机发送的应答命令也必须在100MS内发送完毕，） 4，通讯出错处理。 A，主机发送呼叫命令从机接收出错 接收错误从机不应答，主机连续呼叫3次无应答者把该机当作没有开机或线路故障处理。 B，从机发送应答命令主机接收出错 从机能够收到命令，但是主机收不到应答，或收到的应答错误如果连续3次错误当作没有开机或线路故障处理。 C，从机根本收不到命令 检查通讯线路和接口芯片。 D，主机根本收不到应答 检查通讯线路和接口芯片。 E，传送的命令总是校验错误 检查通讯线是否接反。 F，收不到引导字66,bb,CC 检查是否有干扰。 5，通讯命令每次以固定的引导字66, BB，CC + 命令长度 + 命令字 + 地址 + 数据 + XOR校验 6，应答命令  命令长度 + 命令字反 + 地址 + 数据 + 校验和 应答命令长度不固定，具体长度由 ‘长度’BYTE 确定。 校验：XOR校验=一条命令的累计XOR，但是不包括 66，BB，CC引导字。 1、读取时间 A2H A2H+地址+ XOR 应答 5DH + 地址 + year + month + date + week+ hour + minute + second 返回该设备时间 2、时间设置 A3H A3H+地址+时间信息+xor 应答 5CH + 地址 + XOR 这只是其中的一部分协议， 我的DLL是这样写的 function Com_Open(aComName:String;aBaudRate:integer;aParity:TParity;aByteSize:TByteSize;                     aStopBits:TStopBits):integer;StdCall; begin   if FCom=nil then     FCom:=TComm.Create(nil);     FCom.CommName:=aComName;     FCom.BaudRate:=aBaudRate;     FCom.Parity:=aParity;     FCom.ByteSize:=aByteSize;     FCom.StopBits:=aStopBits;     FCOM.OnReceiveData:=ReceiveData;   try     FCom.StartComm;     Result:=0;   except     Result:=-1;   end; end; delphi的事件是不是不能写在DLL里面，我这样写都无法编译，不知道还望各位DFW帮忙看一下。如果有时间的话，用我上面的协议帮忙写一下，小弟将不盛感激。 小弟200分送上，

宋菲 · 2003-06-08

我是个菜鸟！：） 我以前做过类似的东东，不知道是否能帮上你。 FCom:=TComm.Create(nil); 好象有问题 是否应该将TComm声明一下。 只是提个建议，见笑了

Spring_Thunder · 2003-06-08

肯定是已经提前声明过了，

KN · 2003-06-08

FCom,ReceiveData,StartComm你是怎么定义的，我做了以下修改可以通过编译了，可能不是 你想要的，但是希望对你有点帮助 function Com_Open(aComName:String):integer; var   FCom:TCommConfig;   hComm:Cardinal; begin   //if FCom=nil then    hComm :=CreateFile(PChar(aComName),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0);//打开通信端口    GetCommstate(hComm,FCom.dcb);    if (hComm=INVALID_HANDLE_VALUE)then    begin      ShowMessage('打开通信端口错误！');      CloseHandle(hComm);      Result:=-1;    end;    //FCom.dcb.:=aComName;    with FCom.dcb do    begin      BaudRate:=CBR_9600;      Parity:=NoPArity;      ByteSize:=8;      StopBits:=OneStopBit;//1停止位      Result:=0;    end;    //FCOM.OnReceiveData:=ReceiveData; end;

Spring_Thunder · 2003-06-08

KN兄， 你用的是API吧？我想用SPCOMM做

chenxz · 2003-06-09

无法编译的错误什么啊。

Spring_Thunder · 2003-06-09

Incompatible types: 'method pointer and regular procedure' 提示这个错误

Spring_Thunder · 2003-06-09

各位高手，如果是用API来做的话，都要用到哪些API函数，使用的顺序是怎样的？

sunwill · 2003-06-09

CreatFile 打开串口 ReadFile 从串口读数据 WriteFile  向串口发送数据

luyear · 2003-06-09

pengfeiyan · 2003-06-09

spcom有源码的吧！你可以在dll里面直接调用spcom的源代码！我用cport就是这样做的！ 我去研究一下spcom再给你答复吧！

pengfeiyan · 2003-06-09

我看了spcom的源代码，你可以两种选择： 1：在dll里面用个窗体，把spcom放进去。 2：在dll里面把spcom.pas加进来。我写了一点，你看看，应该可以参照！具体的函数就要你自己写了！ library dlldemo { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } uses   windows,   function_you in 'function_you .pas',   //CommUnit in 'CommUnit.pas',   SPComm in 'SPComm.pas'; procedure DLLEntryPoint(dwReason : DWord); begin   case dwReason of     DLL_PROCESS_ATTACH:     begin       Comm := TComm.Create(nil);     end;     DLL_PROCESS_DETACH:     begin       Comm.Destroy;     end;   end; end; exports   OpenCommPort, CloseCommPort........; begin   DllProc := @DLLEntryPoint;   DLLEntryPoint(DLL_PROCESS_ATTACH); end.

Spring_Thunder · 2003-06-09

谢谢，众位高手，我正在集大家的意见改写， 等到我写完后，一定给大家散分， 欢迎大家    多多发言

Spring_Thunder · 2003-06-09

procedure TForm1.Button3Click(Sender: TObject); var   aComDev:integer;   aDCB:TDCB;   aTimeOut:TCommTimeOuts; begin   aComDev:=CreateFile(pChar('COM1'),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,                         FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0);   if aComDev=INVALID_HANDLE_VALUE then     Exit   else   begin     if SetupComm(aComDev,4096,4096)=False then     begin       StatusBar1.Panels[0].Text:=inttostr(-2);       Exit;     end;     if GetCommState(aComDev,aDCB)=False then     begin       StatusBar1.Panels[0].Text:=inttostr(-3);       Exit;     end;     aDCB.BaudRate:=9600;     if SetCommMask(aComDev,EV_RXCHAR)=False then     begin       StatusBar1.Panels[0].Text:=inttostr(-4);       Exit;     end;     if SetCommState(aComDev,aDCB)=False then     begin       StatusBar1.Panels[0].Text:=inttostr(-5);       Exit;     end;   end; end; 用API来实现 为什么执行到     if SetCommState(aComDev,aDCB)=False then     begin       StatusBar1.Panels[0].Text:=inttostr(-5);       Exit;     end; 的时候会返回False呢？ 用WriteFile也返回False 有没有人做过给一段代码看一看好吗？

pengfeiyan · 2003-06-10

type   TCOMMINFO = Record     hComHandle : Thandle;               // Comm handle     {m_hSuperWnd : Thandle;              // Handle of Windows     nMessageID : Cardinal;              // Message ID}     hRevEvent : TEvent;                 // Event     nComPort : longword;                // COM1 COM2...     dwBaudRate : dword;     dwEvtMask : dword;                  // Event mask     byParity : Byte;                    // Parity     byDataSize : Byte;                  // Data size     byStopSize : Byte;                  // Stop size     byFlowControl : Byte;               // Flow control   1 : none                                         //                2 : Hardware                                         //                3 : Software     dwInBufferSize : dword;     dwOutBufferSize : dword;     ReadOv, WriteOv  : TOverLapped;   end; function TComm.OpenCom({m_hWnd : THandle;nMessage : Cardinal}) : Cardinal; var   bSuccessCode : Boolean;   dcb : TDCB;   CommTimeOuts : TCOMMTIMEOUTS;   CommProp : TCommProp;   cpPort : string; begin   if bIsComOpen then begin result := 2; exit; end;  //Alerady Open Com   /////////////////////////////////////////////   if (CommInfo.nComPort = 0) or (CommInfo.nComPort > $10) then   begin result := 0; exit; end;   cpPort:=format('COM%d',[CommInfo.nComPort]);   CommInfo.hComHandle:= CreateFile(pChar(cpPort),                    GENERIC_READ+GENERIC_WRITE,                                     0,                                     nil,                                     OPEN_EXISTING,                                     FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,                                     0);   if CommInfo.hComHandle =INVALID_HANDLE_VALUE then begin result := 0; exit; end;   bSuccessCode:=SetCommMask(CommInfo.hComHandle,CommInfo.dwEvtMask);   if not bSuccessCode then   begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;   bSuccessCode:=SetupComm(CommInfo.hComHandle,CommInfo.dwInBufferSize,CommInfo.dwOutBufferSize);   if not bSuccessCode then   begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;   bSuccessCode:=PurgeComm(CommInfo.hComHandle,             PURGE_TXABORT or PURGE_TXCLEAR or PURGE_RXABORT or PURGE_RXCLEAR);   if not bSuccessCode then   begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;   bSuccessCode:=GetCommTimeouts(CommInfo.hComHandle,CommTimeOuts);   if not bSuccessCode then   begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;   CommTimeOuts.ReadIntervalTimeout:=$ffffffff;   CommTimeOuts.ReadTotalTimeoutMultiplier:=0;   CommTimeOuts.ReadTotalTimeoutConstant:=1000;   CommTimeOuts.WriteTotalTimeoutMultiplier:=50;   CommTimeOuts.WriteTotalTimeoutConstant:=0;   CommTimeOuts.WriteTotalTimeoutConstant := 2000;   bSuccessCode:=SetCommTimeouts(CommInfo.hComHandle,CommTimeOuts);   if not bSuccessCode then   begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;   CommProp.wPacketLength:=sizeof(COMMPROP);   GetCommProperties(CommInfo.hComHandle,CommProp);   if ((CommProp.dwSettableBaud and CommInfo.dwBaudRate) <> 0) and      ((CommInfo.byParity = 0)or      ((CommProp.wSettableStopParity and CommInfo.byParity) <> 0)) then   begin     FillChar(dcb, sizeof(dcb), 0);     dcb.DCBlength := sizeof(dcb);     bSuccessCode:=GetCommState(CommInfo.hComHandle,dcb);     if not bSuccessCode then     begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;     dcb.BaudRate:=(CommInfo).dwBaudRate;     dcb.Flags := $00000003;     dcb.ByteSize := 8;     dcb.Parity := NOPARITY;     dcb.StopBits := OneStopBit;     dcb.XonLim := 50;     dcb.XoffLim := 50;     dcb.XonChar := char($11);   // XON     dcb.XoffChar := char($13);  // XOFF}     bSuccessCode:=SetCommState((CommInfo).hComHandle,dcb);     if not bSuccessCode then     begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;   end;   bSuccessCode:=EscapeCommFunction(CommInfo.hComHandle,SETDTR);   if not bSuccessCode then   begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;   bSuccessCode:=EscapeCommFunction(CommInfo.hComHandle,SETRTS);   if not bSuccessCode then   begin CloseHandle(CommInfo.hComHandle); result := 0; exit; end;   bIsComOpen:=TRUE;   /////////////////////////////////////////////   CommInfo.hRevEvent:=TEvent.Create(nil,True,True,'');   if CommInfo.hRevEvent.Handle = THandle(nil) then   begin CloseCom(); result := 0; exit; end;   WatchCommThread := TWatchCommThread.Create(True);   WatchCommThread.Resume;   result := 1;   //Success end;

Spring_Thunder · 2003-11-25

多人接受答案了。

各位大哥、大姐，小弟现在手头上有一设备的串口通讯协议，想把它用Spcomm封装到DLL里面，可是做了几次都不成功，大家能不能帮忙给看一下？ (200分)

Spring_Thunder

Unregistered / Unconfirmed

宋菲

Unregistered / Unconfirmed

Spring_Thunder

Unregistered / Unconfirmed

KN

Unregistered / Unconfirmed

Spring_Thunder

Unregistered / Unconfirmed

chenxz

Unregistered / Unconfirmed

Spring_Thunder

Unregistered / Unconfirmed

Spring_Thunder

Unregistered / Unconfirmed

sunwill

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

pengfeiyan

Unregistered / Unconfirmed

pengfeiyan

Unregistered / Unconfirmed

Spring_Thunder

Unregistered / Unconfirmed

Spring_Thunder

Unregistered / Unconfirmed

pengfeiyan

Unregistered / Unconfirmed

Spring_Thunder

Unregistered / Unconfirmed

Similar threads